2000-03-22 Elena Zannoni <ezannoni@kwikemart.cygnus.com>

[deliverable/binutils-gdb.git] / gdb / gdbarch.sh

diff --git a/gdb/gdbarch.sh b/gdb/gdbarch.sh
index 539f99a5477e940fce62dbbdfce1762da71059a9..32b8d94550d144315ba9f848a083c9b0db3bdcfb 100755 (executable)
--- a/gdb/gdbarch.sh
+++ b/gdb/gdbarch.sh
@@ -180,6 +180,7 @@ f:2:FIX_CALL_DUMMY:void:fix_call_dummy:char *dummy, CORE_ADDR pc, CORE_ADDR fun,
 #
 v:2:BELIEVE_PCC_PROMOTION:int:believe_pcc_promotion::::0:::::#
 v:2:BELIEVE_PCC_PROMOTION_TYPE:int:believe_pcc_promotion_type::::0:::::#
+f:2:COERCE_FLOAT_TO_DOUBLE:int:coerce_float_to_double:struct type *formal, struct type *actual:formal, actual:::default_coerce_float_to_double
 f:1:GET_SAVED_REGISTER:void:get_saved_register:char *raw_buffer, int *optimized, CORE_ADDR *addrp, struct frame_info *frame, int regnum, enum lval_type *lval:raw_buffer, optimized, addrp, frame, regnum, lval::generic_get_saved_register:0
 #
 f:1:REGISTER_CONVERTIBLE:int:register_convertible:int nr:nr::0:0
@@ -511,6 +512,10 @@ extern struct gdbarch_list *gdbarch_list_lookup_by_info (struct gdbarch_list *ar
 extern struct gdbarch *gdbarch_alloc (const struct gdbarch_info *info, struct gdbarch_tdep *tdep);
 
 
+/* Helper function.  Free a partially-constructed \`\`struct gdbarch''.  */
+extern void gdbarch_free (struct gdbarch *);
+
+
 /* Helper function. Force an update of the current architecture.  Used
    by legacy targets that have added their own target specific
    architecture manipulation commands.
@@ -636,7 +641,7 @@ extern int (*target_architecture_hook) (const struct bfd_arch_info *);
 #include "dis-asm.h"           /* Get defs for disassemble_info */
 
 extern int dis_asm_read_memory (bfd_vma memaddr, bfd_byte *myaddr,
-                               int len, disassemble_info *info);
+                               unsigned int len, disassemble_info *info);
 
 extern void dis_asm_memory_error (int status, bfd_vma memaddr,
                                  disassemble_info *info);
@@ -770,7 +775,7 @@ cat <<EOF
 #include "frame.h"
 #include "inferior.h"
 #include "breakpoint.h"
-#include "wait.h"
+#include "gdb_wait.h"
 #include "gdbcore.h"
 #include "gdbcmd.h"
 #include "target.h"
@@ -881,7 +886,13 @@ echo "  /* basic architecture information */"
 function_list | while eval read $read
 do
   case "${class}" in
-    "i" ) echo "  ${default}," ;;
+    "i" ) 
+      if [ "${default}" = "" ]; then
+        echo "  0,"
+      else
+        echo "  ${default},"
+      fi
+    ;;
   esac
 done
 cat <<EOF
@@ -894,7 +905,13 @@ EOF
 function_list | while eval read $read
 do
   case "${class}" in
-    "f" | "v" ) echo "  ${default}," ;;
+    "f" | "v" )
+      if [ "${default}" = "" ]; then
+        echo "  0,"
+      else
+        echo "  ${default},"
+      fi
+    ;;
   esac
 done
 cat <<EOF
@@ -948,6 +965,23 @@ cat <<EOF
 }
 EOF
 
+# Free a gdbarch struct.
+echo ""
+echo ""
+cat <<EOF
+/* Free a gdbarch struct.  This should never happen in normal
+   operation --- once you've created a gdbarch, you keep it around.
+   However, if an architecture's init function encounters an error
+   building the structure, it may need to clean up a partially
+   constructed gdbarch.  */
+void
+gdbarch_free (struct gdbarch *arch)
+{
+  /* At the moment, this is trivial.  */
+  free (arch);
+}
+EOF
+
 # verify a new architecture
 echo ""
 echo ""