diff options
Diffstat (limited to 'gdb/guile')
| -rw-r--r-- | gdb/guile/scm-param.c | 3 | ||||
| -rw-r--r-- | gdb/guile/scm-utils.c | 4 | ||||
| -rw-r--r-- | gdb/guile/scm-value.c | 2 |
3 files changed, 4 insertions, 5 deletions
diff --git a/gdb/guile/scm-param.c b/gdb/guile/scm-param.c index 9737c25e03b..3ddd98f3108 100644 --- a/gdb/guile/scm-param.c +++ b/gdb/guile/scm-param.c @@ -503,8 +503,7 @@ compute_enum_list (SCM enum_values_scm, int arg_pos, const char *func_name) _("enumeration list is empty")); } - enum_values = xmalloc ((size + 1) * sizeof (char *)); - memset (enum_values, 0, (size + 1) * sizeof (char *)); + enum_values = XCNEWVEC (char *, size + 1); i = 0; while (!scm_is_eq (enum_values_scm, SCM_EOL)) diff --git a/gdb/guile/scm-utils.c b/gdb/guile/scm-utils.c index 07401e6476e..b0873f336c6 100644 --- a/gdb/guile/scm-utils.c +++ b/gdb/guile/scm-utils.c @@ -432,8 +432,8 @@ gdbscm_parse_function_args (const char *func_name, if (num_keywords > 0) { - SCM *keyword_args = (SCM *) alloca (num_keywords * sizeof (SCM)); - int *keyword_positions = (int *) alloca (num_keywords * sizeof (int)); + SCM *keyword_args = XALLOCAVEC (SCM, num_keywords); + int *keyword_positions = XALLOCAVEC (int, num_keywords); gdb_assert (*p == '#'); ++p; diff --git a/gdb/guile/scm-value.c b/gdb/guile/scm-value.c index d26ab0d7459..25c29574985 100644 --- a/gdb/guile/scm-value.c +++ b/gdb/guile/scm-value.c @@ -851,7 +851,7 @@ gdbscm_value_call (SCM self, SCM args) SCM except_scm; long i; - vargs = alloca (sizeof (struct value *) * args_count); + vargs = XALLOCAVEC (struct value *, args_count); for (i = 0; i < args_count; i++) { SCM arg = scm_car (args); |