2003-01-07 Andrew Cagney <cagney@redhat.com>

	* xstormy16-tdep.c (xstormy16_init_extra_frame_info): Allocate
	extra_info using frame_extra_info_zalloc.
	* sparc-tdep.c (sparc_init_extra_frame_info): Ditto.
	* sh-tdep.c (sh_init_extra_frame_info): Ditto.
	(sh64_init_extra_frame_info): Ditto.
	* mn10300-tdep.c (mn10300_init_extra_frame_info): Ditto.
	* s390-tdep.c (s390_init_extra_frame_info): Ditto.
	* mips-tdep.c (mips_init_extra_frame_info): Ditto.
	* mcore-tdep.c (mcore_init_extra_frame_info): Ditto.
	* frv-tdep.c (frv_init_extra_frame_info): Ditto.
	* m68hc11-tdep.c (m68hc11_init_extra_frame_info): Ditto.
	* ia64-tdep.c (ia64_init_extra_frame_info): Ditto.
	* h8300-tdep.c (h8300_init_extra_frame_info): Ditto.
	* d10v-tdep.c (d10v_init_extra_frame_info): Ditto.
	* cris-tdep.c (cris_init_extra_frame_info): Ditto.
	* arm-tdep.c (arm_init_extra_frame_info): Ditto.
	* alpha-tdep.c (alpha_init_extra_frame_info): Ditto.

	* mn10300-tdep.c (analyze_dummy_frame): Use
	deprecated_set_frame_extra_info_hack.
	* mcore-tdep.c (analyze_dummy_frame): Ditto.

17 files changed, 47 insertions, 36 deletions

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 8cae190..6d2e1fc 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,27 @@
+2003-01-07  Andrew Cagney  <cagney@redhat.com>
+
+	* xstormy16-tdep.c (xstormy16_init_extra_frame_info): Allocate
+	extra_info using frame_extra_info_zalloc.
+	* sparc-tdep.c (sparc_init_extra_frame_info): Ditto.
+	* sh-tdep.c (sh_init_extra_frame_info): Ditto.
+	(sh64_init_extra_frame_info): Ditto.
+	* mn10300-tdep.c (mn10300_init_extra_frame_info): Ditto.
+	* s390-tdep.c (s390_init_extra_frame_info): Ditto.
+	* mips-tdep.c (mips_init_extra_frame_info): Ditto.
+	* mcore-tdep.c (mcore_init_extra_frame_info): Ditto.
+	* frv-tdep.c (frv_init_extra_frame_info): Ditto.
+	* m68hc11-tdep.c (m68hc11_init_extra_frame_info): Ditto.
+	* ia64-tdep.c (ia64_init_extra_frame_info): Ditto.
+	* h8300-tdep.c (h8300_init_extra_frame_info): Ditto.
+	* d10v-tdep.c (d10v_init_extra_frame_info): Ditto.
+	* cris-tdep.c (cris_init_extra_frame_info): Ditto.
+	* arm-tdep.c (arm_init_extra_frame_info): Ditto.
+	* alpha-tdep.c (alpha_init_extra_frame_info): Ditto.
+
+	* mn10300-tdep.c (analyze_dummy_frame): Use
+	deprecated_set_frame_extra_info_hack.
+	* mcore-tdep.c (analyze_dummy_frame): Ditto.
+
 2003-01-07  J. Brobecker  <brobecker@gnat.com>
 
 	* mdebugread.c (parse_symbol): Skip stProc entries which storage
diff --git a/gdb/alpha-tdep.c b/gdb/alpha-tdep.c
index b63a1c6..645b6b0 100644
--- a/gdb/alpha-tdep.c
+++ b/gdb/alpha-tdep.c
@@ -982,8 +982,7 @@ alpha_init_extra_frame_info (int fromleaf, struct frame_info *frame)
   alpha_extra_func_info_t proc_desc =
   frame->next ? cached_proc_desc : find_proc_desc (get_frame_pc (frame), frame->next);
 
-  frame->extra_info = (struct frame_extra_info *)
-    frame_obstack_alloc (sizeof (struct frame_extra_info));
+  frame_extra_info_zalloc (frame, sizeof (struct frame_extra_info));
 
   /* NOTE: cagney/2003-01-03: No need to set saved_regs to NULL,
      always NULL by default.  */
diff --git a/gdb/arm-tdep.c b/gdb/arm-tdep.c
index 52729a2..eedd64b 100644
--- a/gdb/arm-tdep.c
+++ b/gdb/arm-tdep.c
@@ -1082,8 +1082,7 @@ arm_init_extra_frame_info (int fromleaf, struct frame_info *fi)
   if (get_frame_saved_regs (fi) == NULL)
     frame_saved_regs_zalloc (fi);
 
-  fi->extra_info = (struct frame_extra_info *)
-    frame_obstack_alloc (sizeof (struct frame_extra_info));
+  frame_extra_info_zalloc (fi, sizeof (struct frame_extra_info));
 
   fi->extra_info->framesize = 0;
   fi->extra_info->frameoffset = 0;
diff --git a/gdb/avr-tdep.c b/gdb/avr-tdep.c
index 07f0ece..779b5b4 100644
--- a/gdb/avr-tdep.c
+++ b/gdb/avr-tdep.c
@@ -737,8 +737,7 @@ avr_init_extra_frame_info (int fromleaf, struct frame_info *fi)
   if (fi->next)
     deprecated_update_frame_pc_hack (fi, FRAME_SAVED_PC (fi->next));
 
-  fi->extra_info = (struct frame_extra_info *)
-    frame_obstack_alloc (sizeof (struct frame_extra_info));
+  frame_extra_info_zalloc (fi, sizeof (struct frame_extra_info));
   frame_saved_regs_zalloc (fi);
 
   fi->extra_info->return_pc = 0;
diff --git a/gdb/cris-tdep.c b/gdb/cris-tdep.c
index fdc3afb..ec342b6 100644
--- a/gdb/cris-tdep.c
+++ b/gdb/cris-tdep.c
@@ -1206,8 +1206,7 @@ cris_init_extra_frame_info (int fromleaf, struct frame_info *fi)
       deprecated_update_frame_pc_hack (fi, FRAME_SAVED_PC (fi->next));
     }
  
-  fi->extra_info = (struct frame_extra_info *)
-    frame_obstack_alloc (sizeof (struct frame_extra_info));
+  frame_extra_info_zalloc (fi, sizeof (struct frame_extra_info));
  
   fi->extra_info->return_pc = 0;
   fi->extra_info->leaf_function = 0;
diff --git a/gdb/d10v-tdep.c b/gdb/d10v-tdep.c
index 3707cd0..a745a97 100644
--- a/gdb/d10v-tdep.c
+++ b/gdb/d10v-tdep.c
@@ -894,8 +894,7 @@ d10v_frame_init_saved_regs (struct frame_info *fi)
 static void
 d10v_init_extra_frame_info (int fromleaf, struct frame_info *fi)
 {
-  fi->extra_info = (struct frame_extra_info *)
-    frame_obstack_alloc (sizeof (struct frame_extra_info));
+  frame_extra_info_zalloc (fi, sizeof (struct frame_extra_info));
   frame_saved_regs_zalloc (fi);
 
   fi->extra_info->frameless = 0;
diff --git a/gdb/frv-tdep.c b/gdb/frv-tdep.c
index 0736312..b89e54e 100644
--- a/gdb/frv-tdep.c
+++ b/gdb/frv-tdep.c
@@ -793,8 +793,7 @@ frv_saved_pc_after_call (struct frame_info *frame)
 static void
 frv_init_extra_frame_info (int fromleaf, struct frame_info *frame)
 {
-  frame->extra_info = (struct frame_extra_info *)
-    frame_obstack_alloc (sizeof (struct frame_extra_info));
+  frame_extra_info_zalloc (frame, sizeof (struct frame_extra_info));
   frame->extra_info->fp_to_callers_sp_offset = 0;
   frame->extra_info->lr_saved_on_stack = 0;
 }
diff --git a/gdb/h8300-tdep.c b/gdb/h8300-tdep.c
index 8ebf604..471a3c0 100644
--- a/gdb/h8300-tdep.c
+++ b/gdb/h8300-tdep.c
@@ -523,8 +523,7 @@ h8300_init_extra_frame_info (int fromleaf, struct frame_info *fi)
 {
   if (!fi->extra_info)
     {
-      fi->extra_info = (struct frame_extra_info *)
-        frame_obstack_alloc (sizeof (struct frame_extra_info));
+      frame_extra_info_zalloc (fi, sizeof (struct frame_extra_info));
       fi->extra_info->from_pc = 0;
       fi->extra_info->args_pointer = 0;		/* Unknown */
       fi->extra_info->locals_pointer = 0;	/* Unknown */
diff --git a/gdb/ia64-tdep.c b/gdb/ia64-tdep.c
index c5f447c..46285edd 100644
--- a/gdb/ia64-tdep.c
+++ b/gdb/ia64-tdep.c
@@ -1484,8 +1484,7 @@ ia64_init_extra_frame_info (int fromleaf, struct frame_info *frame)
     && DEPRECATED_PC_IN_CALL_DUMMY (get_frame_pc (frame->next), frame->next->frame,
                                           frame->next->frame));
 
-  frame->extra_info = (struct frame_extra_info *)
-    frame_obstack_alloc (sizeof (struct frame_extra_info));
+  frame_extra_info_zalloc (frame, sizeof (struct frame_extra_info));
 
   if (frame->next == 0)
     {
diff --git a/gdb/m68hc11-tdep.c b/gdb/m68hc11-tdep.c
index 323200d..fa7b6f5 100644
--- a/gdb/m68hc11-tdep.c
+++ b/gdb/m68hc11-tdep.c
@@ -877,8 +877,7 @@ m68hc11_init_extra_frame_info (int fromleaf, struct frame_info *fi)
 {
   CORE_ADDR addr;
 
-  fi->extra_info = (struct frame_extra_info *)
-    frame_obstack_alloc (sizeof (struct frame_extra_info));
+  frame_extra_info_zalloc (fi, sizeof (struct frame_extra_info));
   
   if (fi->next)
     deprecated_update_frame_pc_hack (fi, FRAME_SAVED_PC (fi->next));
diff --git a/gdb/mcore-tdep.c b/gdb/mcore-tdep.c
index 118fa86..a0a78d0 100644
--- a/gdb/mcore-tdep.c
+++ b/gdb/mcore-tdep.c
@@ -289,10 +289,11 @@ analyze_dummy_frame (CORE_ADDR pc, CORE_ADDR frame)
 
   if (dummy == NULL)
     {
+      struct frame_extra_info *extra_info;
       dummy = deprecated_frame_xmalloc ();
       dummy->saved_regs = (CORE_ADDR *) xmalloc (SIZEOF_FRAME_SAVED_REGS);
-      dummy->extra_info =
-	(struct frame_extra_info *) xmalloc (sizeof (struct frame_extra_info));
+      extra_info = XMALLOC (struct frame_extra_info);
+      deprecated_set_frame_extra_info_hack (dummy, extra_info);
     }
 
   dummy->next = NULL;
@@ -1043,8 +1044,7 @@ mcore_init_extra_frame_info (int fromleaf, struct frame_info *fi)
 
   frame_saved_regs_zalloc (fi);
 
-  fi->extra_info = (struct frame_extra_info *)
-    frame_obstack_alloc (sizeof (struct frame_extra_info));
+  frame_extra_info_zalloc (fi, sizeof (struct frame_extra_info));
   fi->extra_info->status = 0;
   fi->extra_info->framesize = 0;
 
diff --git a/gdb/mips-tdep.c b/gdb/mips-tdep.c
index 3dac672..267b780 100644
--- a/gdb/mips-tdep.c
+++ b/gdb/mips-tdep.c
@@ -2468,8 +2468,7 @@ mips_init_extra_frame_info (int fromleaf, struct frame_info *fci)
   mips_extra_func_info_t proc_desc =
     fci->next ? cached_proc_desc : find_proc_desc (get_frame_pc (fci), fci->next, 1);
 
-  fci->extra_info = (struct frame_extra_info *)
-    frame_obstack_alloc (sizeof (struct frame_extra_info));
+  frame_extra_info_zalloc (fci, sizeof (struct frame_extra_info));
 
   fci->saved_regs = NULL;
   fci->extra_info->proc_desc =
diff --git a/gdb/mn10300-tdep.c b/gdb/mn10300-tdep.c
index 4d8e1e7..92f67cb 100644
--- a/gdb/mn10300-tdep.c
+++ b/gdb/mn10300-tdep.c
@@ -153,9 +153,11 @@ analyze_dummy_frame (CORE_ADDR pc, CORE_ADDR frame)
   static struct frame_info *dummy = NULL;
   if (dummy == NULL)
     {
+      struct frame_extra_info *extra_info;
       dummy = deprecated_frame_xmalloc ();
       dummy->saved_regs = xmalloc (SIZEOF_FRAME_SAVED_REGS);
-      dummy->extra_info = xmalloc (sizeof (struct frame_extra_info));
+      extra_info = XMALLOC (struct frame_extra_info);
+      deprecated_set_frame_extra_info_hack (dummy, extra_info);
     }
   dummy->next = NULL;
   dummy->prev = NULL;
@@ -899,8 +901,7 @@ mn10300_init_extra_frame_info (int fromleaf, struct frame_info *fi)
     deprecated_update_frame_pc_hack (fi, FRAME_SAVED_PC (fi->next));
 
   frame_saved_regs_zalloc (fi);
-  fi->extra_info = (struct frame_extra_info *)
-    frame_obstack_alloc (sizeof (struct frame_extra_info));
+  frame_extra_info_zalloc (fi, sizeof (struct frame_extra_info));
 
   fi->extra_info->status = 0;
   fi->extra_info->stack_size = 0;
diff --git a/gdb/s390-tdep.c b/gdb/s390-tdep.c
index efae4d4..390a1a8 100644
--- a/gdb/s390-tdep.c
+++ b/gdb/s390-tdep.c
@@ -904,7 +904,7 @@ s390_init_frame_pc_first (int next_fromleaf, struct frame_info *fi)
 void
 s390_init_extra_frame_info (int fromleaf, struct frame_info *fi)
 {
-  fi->extra_info = frame_obstack_alloc (sizeof (struct frame_extra_info));
+  frame_extra_info_zalloc (fi, sizeof (struct frame_extra_info));
   if (get_frame_pc (fi))
     s390_get_frame_info (s390_sniff_pc_function_start (get_frame_pc (fi), fi),
 			 fi->extra_info, fi, 1);
diff --git a/gdb/sh-tdep.c b/gdb/sh-tdep.c
index 10abefc..ed655ea 100644
--- a/gdb/sh-tdep.c
+++ b/gdb/sh-tdep.c
@@ -1721,8 +1721,7 @@ static void
 sh_init_extra_frame_info (int fromleaf, struct frame_info *fi)
 {
 
-  fi->extra_info = (struct frame_extra_info *)
-    frame_obstack_alloc (sizeof (struct frame_extra_info));
+  frame_extra_info_zalloc (fi, sizeof (struct frame_extra_info));
 
   if (fi->next)
     deprecated_update_frame_pc_hack (fi, FRAME_SAVED_PC (fi->next));
@@ -1753,8 +1752,7 @@ sh64_init_extra_frame_info (int fromleaf, struct frame_info *fi)
 {
   int media_mode = pc_is_isa32 (get_frame_pc (fi));
 
-  fi->extra_info = (struct frame_extra_info *)
-    frame_obstack_alloc (sizeof (struct frame_extra_info));
+  frame_extra_info_zalloc (fi, sizeof (struct frame_extra_info));
 
   if (fi->next) 
     deprecated_update_frame_pc_hack (fi, FRAME_SAVED_PC (fi->next));
diff --git a/gdb/sparc-tdep.c b/gdb/sparc-tdep.c
index b7acbda..8ef36d6 100644
--- a/gdb/sparc-tdep.c
+++ b/gdb/sparc-tdep.c
@@ -292,8 +292,7 @@ sparc_init_extra_frame_info (int fromleaf, struct frame_info *fi)
   CORE_ADDR prologue_start, prologue_end;
   int insn;
 
-  fi->extra_info = (struct frame_extra_info *)
-    frame_obstack_alloc (sizeof (struct frame_extra_info));
+  frame_extra_info_zalloc (fi, sizeof (struct frame_extra_info));
   frame_saved_regs_zalloc (fi);
 
   fi->extra_info->bottom =
diff --git a/gdb/xstormy16-tdep.c b/gdb/xstormy16-tdep.c
index aaf5ae2..664de22 100644
--- a/gdb/xstormy16-tdep.c
+++ b/gdb/xstormy16-tdep.c
@@ -781,8 +781,7 @@ xstormy16_init_extra_frame_info (int fromleaf, struct frame_info *fi)
 {
   if (!fi->extra_info)
     {
-      fi->extra_info = (struct frame_extra_info *)
-	frame_obstack_alloc (sizeof (struct frame_extra_info));
+      frame_extra_info_zalloc (fi, sizeof (struct frame_extra_info));
       fi->extra_info->framesize = 0;
       fi->extra_info->frameless_p = 1;	/* Default frameless, detect framed */