This is the mail archive of the gdb-patches@sources.redhat.com mailing list for the GDB project.
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
Other format: | [Raw text] |
This patch fixes regressions in ada-tasks.c and ada-lang.c caused by the use of free and malloc instead of xfree() and xmalloc(). Commited as obvious. Index: gdb/ChangeLog =================================================================== RCS file: /cvs/src/src/gdb/ChangeLog,v retrieving revision 1.2904 diff -c -3 -r1.2904 ChangeLog *** gdb/ChangeLog 13 Jul 2002 00:29:37 -0000 1.2904 --- gdb/ChangeLog 13 Jul 2002 01:29:24 -0000 *************** *** 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, Index: gdb/ada-lang.c =================================================================== RCS file: /cvs/src/src/gdb/ada-lang.c,v retrieving revision 1.3 diff -c -3 -r1.3 ada-lang.c *** gdb/ada-lang.c 11 Jul 2002 20:46:18 -0000 1.3 --- gdb/ada-lang.c 13 Jul 2002 01:29:33 -0000 *************** *** 2891,2897 **** newexp->elts[pc + 5].symbol = sym; *expp = newexp; ! free (exp); } /* Type-class predicates */ --- 2891,2897 ---- newexp->elts[pc + 5].symbol = sym; *expp = newexp; ! xfree (exp); } /* Type-class predicates */ *************** *** 4363,4369 **** if (nargs == 0) { static struct field dummy_field = {0, 0, 0, 0}; ! free (TYPE_FIELDS (ftype)); TYPE_FIELDS (ftype) = &dummy_field; } else --- 4363,4369 ---- if (nargs == 0) { static struct field dummy_field = {0, 0, 0, 0}; ! xfree (TYPE_FIELDS (ftype)); TYPE_FIELDS (ftype) = &dummy_field; } else *************** *** 4373,4379 **** memcpy ((char*) fields, (char*) TYPE_FIELDS (ftype), nargs * sizeof (struct field)); ! free (TYPE_FIELDS (ftype)); TYPE_FIELDS (ftype) = fields; } } --- 4373,4379 ---- memcpy ((char*) fields, (char*) TYPE_FIELDS (ftype), nargs * sizeof (struct field)); ! xfree (TYPE_FIELDS (ftype)); TYPE_FIELDS (ftype) = fields; } } *************** *** 4586,4592 **** 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); i = 0; while (i < selected.nelts) --- 4586,4592 ---- 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 (xfree, selected.sals); i = 0; while (i < selected.nelts) *************** *** 5065,5078 **** if (canonical != NULL) { *canonical = (char**) xmalloc (result.nelts * sizeof (char**)); ! make_cleanup (free, *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]); } } } --- 5065,5078 ---- if (canonical != NULL) { *canonical = (char**) xmalloc (result.nelts * sizeof (char**)); ! 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 (xfree, (*canonical)[k]); } } } *************** *** 5328,5334 **** arg = (char*) xmalloc (sizeof ("__gnat_raise_nodefer_with_msg if " "long_integer(e) = long_integer(&)") + toklen + 1); ! make_cleanup (free, arg); if (toklen == 0) strcpy (arg, "__gnat_raise_nodefer_with_msg"); else if (STREQN (tok, "unhandled", toklen)) --- 5328,5334 ---- arg = (char*) xmalloc (sizeof ("__gnat_raise_nodefer_with_msg if " "long_integer(e) = long_integer(&)") + toklen + 1); ! make_cleanup (xfree, arg); if (toklen == 0) strcpy (arg, "__gnat_raise_nodefer_with_msg"); else if (STREQN (tok, "unhandled", toklen)) *************** *** 5354,5360 **** arg = (char*) xmalloc (sizeof ("system__assertions__raise_assert_failure") + strlen (tok) + 1); ! make_cleanup (free, arg); sprintf (arg, "system__assertions__raise_assert_failure%s", tok); } */ --- 5354,5360 ---- arg = (char*) xmalloc (sizeof ("system__assertions__raise_assert_failure") + strlen (tok) + 1); ! make_cleanup (xfree, arg); sprintf (arg, "system__assertions__raise_assert_failure%s", tok); } */ Index: gdb/ada-tasks.c =================================================================== RCS file: /cvs/src/src/gdb/ada-tasks.c,v retrieving revision 1.1 diff -c -3 -r1.1 ada-tasks.c *** gdb/ada-tasks.c 4 Jun 2002 15:28:48 -0000 1.1 --- gdb/ada-tasks.c 13 Jul 2002 01:29:34 -0000 *************** *** 164,170 **** struct task_entry *pt; highest_task_num++; ! new_task_entry = malloc (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; --- 164,170 ---- struct task_entry *pt; highest_task_num++; ! 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,242 **** { old_pt = pt; pt = pt->next_task; ! free (old_pt); }; task_list = NULL; highest_task_num = 0; --- 236,242 ---- { old_pt = pt; pt = pt->next_task; ! xfree (old_pt); }; task_list = NULL; highest_task_num = 0; - Aidan -- aidan@velvet.net http://www.velvet.net/~aidan/ aim:aidans42 finger for pgp key fingerprint |- - - - - - - - - - - - - - - 01AA 1594 2DB0 09E3 B850 | Take down the Union Jack C2D0 9A2C 4CC9 3EC4 75E1 | it clashes with the sunset
Attachment:
msg00291/pgp00000.pgp
Description: PGP signature
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |