* 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()

3 files changed, 22 insertions, 12 deletions

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 861f270a96e..dda63f5a6a9 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 feb5a68bf37..83c32b1fa73 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 6d715944346..e3a135151d6 100644
--- a/gdb/ada-tasks.c
+++ b/gdb/ada-tasks.c
@@ -4,7 +4,7 @@
 .
    This file is part of GDB.
 
-   [$Id: ada-tasks.c,v 1.1.2.13 2001/11/05 19:01:03 brobecke Exp $]
+   [$Id: ada-tasks.c,v 1.1 2002/06/04 15:28:48 aidan Exp $]
    Authors: Roch-Alexandre Nomine Beguin, Arnaud Charlet <charlet@gnat.com>
 
    This program is free software; you can redistribute it and/or modify
@@ -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;