diff options
| -rw-r--r-- | gdb/ChangeLog | 12 | ||||
| -rw-r--r-- | gdb/ada-lang.c | 16 | ||||
| -rw-r--r-- | gdb/ada-tasks.c | 4 |
3 files changed, 21 insertions, 11 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 861f270..dda63f5 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,13 @@ +2002-07-13 Aidan Skinner <aidan@velvet.net> + + * ada-tasks.c (add_task_entry): replace calls to + malloc() with xmalloc + * ada-tasks.c (init_task_list): replace calls to free with xfree() + + * ada-lang.c (replace_operator_with_call, fill_in_ada_prototype, + ada_finish_decode_line_1, all_sals_for_line + ada_breakpoint_rewrite): replace calls to free() with xfree() + 2002-07-12 Kevin Buettner <kevinb@redhat.com> From Nicholas Duffek (with minor changes by Martin Hunt, @@ -3965,7 +3975,7 @@ Fri May 17 14:26:19 2002 J"orn Rennecke <joern.rennecke@superh.com> 2002-04-24 Pierre Muller <ics.u-strasbg.fr> * hpread.c (hpread_psymtab_to_symtab_1, - hpread_psymtab_to_symtab): Replace fprintf (stderr,...) + hpread_psymtab_to_symtab): Replace fprintf tab_to_s...) with fprintf_unfiltered (gdb_stderr,...). 2002-04-24 Pierre Muller <ics.u-strasbg.fr> diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index feb5a68..83c32b1 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -2891,7 +2891,7 @@ replace_operator_with_call (expp, pc, nargs, oplen, sym, block) newexp->elts[pc + 5].symbol = sym; *expp = newexp; - free (exp); + xfree (exp); } /* Type-class predicates */ @@ -4363,7 +4363,7 @@ fill_in_ada_prototype (func) if (nargs == 0) { static struct field dummy_field = {0, 0, 0, 0}; - free (TYPE_FIELDS (ftype)); + xfree (TYPE_FIELDS (ftype)); TYPE_FIELDS (ftype) = &dummy_field; } else @@ -4373,7 +4373,7 @@ fill_in_ada_prototype (func) memcpy ((char*) fields, (char*) TYPE_FIELDS (ftype), nargs * sizeof (struct field)); - free (TYPE_FIELDS (ftype)); + xfree (TYPE_FIELDS (ftype)); TYPE_FIELDS (ftype) = fields; } } @@ -4586,7 +4586,7 @@ ada_finish_decode_line_1 (spec, file_table, funfirstline, canonical) selected.sals = (struct symtab_and_line*) xmalloc (sizeof (struct symtab_and_line) * selected.nelts); memset (selected.sals, 0, selected.nelts * sizeof (selected.sals[i])); - make_cleanup (free, selected.sals); + make_cleanup (xfree, selected.sals); i = 0; while (i < selected.nelts) @@ -5065,14 +5065,14 @@ all_sals_for_line (filename, line_num, canonical) if (canonical != NULL) { *canonical = (char**) xmalloc (result.nelts * sizeof (char**)); - make_cleanup (free, *canonical); + make_cleanup (xfree, *canonical); for (k = 0; k < result.nelts; k += 1) { (*canonical)[k] = extended_canonical_line_spec (result.sals[k], func_names[k]); if ((*canonical)[k] == NULL) error ("Could not locate one or more breakpoints."); - make_cleanup (free, (*canonical)[k]); + make_cleanup (xfree, (*canonical)[k]); } } } @@ -5328,7 +5328,7 @@ char* ada_breakpoint_rewrite (char* arg, int* break_on_exceptionp) arg = (char*) xmalloc (sizeof ("__gnat_raise_nodefer_with_msg if " "long_integer(e) = long_integer(&)") + toklen + 1); - make_cleanup (free, arg); + make_cleanup (xfree, arg); if (toklen == 0) strcpy (arg, "__gnat_raise_nodefer_with_msg"); else if (STREQN (tok, "unhandled", toklen)) @@ -5354,7 +5354,7 @@ char* ada_breakpoint_rewrite (char* arg, int* break_on_exceptionp) arg = (char*) xmalloc (sizeof ("system__assertions__raise_assert_failure") + strlen (tok) + 1); - make_cleanup (free, arg); + make_cleanup (xfree, arg); sprintf (arg, "system__assertions__raise_assert_failure%s", tok); } */ diff --git a/gdb/ada-tasks.c b/gdb/ada-tasks.c index 23dc105..426fdff 100644 --- a/gdb/ada-tasks.c +++ b/gdb/ada-tasks.c @@ -164,7 +164,7 @@ static int add_task_entry (p_task_id, index) struct task_entry *pt; highest_task_num++; - new_task_entry = malloc (sizeof (struct task_entry)); + new_task_entry = xmalloc (sizeof (struct task_entry)); new_task_entry->task_num = highest_task_num; new_task_entry->task_id = p_task_id; new_task_entry->known_tasks_index = index; @@ -236,7 +236,7 @@ void init_task_list () { old_pt = pt; pt = pt->next_task; - free (old_pt); + xfree (old_pt); }; task_list = NULL; highest_task_num = 0; |