* stabsread.c (get_substring): Declare second arg as int.

[deliverable/binutils-gdb.git] / gdb / gdbtk.c

diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c
index 2e244480c728f8fd6f64710c0ecf74d25ec5c0bd..b6a2ea70582093273bd03e96b46aaa4b4a6cd707 100644 (file)
--- a/gdb/gdbtk.c
+++ b/gdb/gdbtk.c
@@ -55,6 +55,44 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 #undef SIOCSPGRP
 #endif
 
+static void null_routine PARAMS ((int));
+static void gdbtk_flush PARAMS ((FILE *));
+static void gdbtk_fputs PARAMS ((const char *, FILE *));
+static int gdbtk_query PARAMS ((const char *, va_list));
+static char *gdbtk_readline PARAMS ((char *));
+static void gdbtk_init PARAMS ((void));
+static void tk_command_loop PARAMS ((void));
+static void gdbtk_call_command PARAMS ((struct cmd_list_element *, char *, int));
+static int gdbtk_wait PARAMS ((int, struct target_waitstatus *));
+static void x_event PARAMS ((int));
+static void gdbtk_interactive PARAMS ((void));
+static void cleanup_init PARAMS ((int));
+static void tk_command PARAMS ((char *, int));
+static int gdb_disassemble PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
+static int compare_lines PARAMS ((const PTR, const PTR));
+static int gdbtk_dis_asm_read_memory PARAMS ((bfd_vma, bfd_byte *, int, disassemble_info *));
+static int gdb_stop PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
+static int gdb_listfiles PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
+static int call_wrapper PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
+static int gdb_cmd PARAMS ((ClientData, Tcl_Interp *, int, char *argv[]));
+static int gdb_fetch_registers PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
+static void gdbtk_readline_end PARAMS ((void));
+static int gdb_changed_register_list PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
+static void register_changed_p PARAMS ((int, void *));
+static int gdb_get_breakpoint_list PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
+static int gdb_get_breakpoint_info PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
+static void breakpoint_notify PARAMS ((struct breakpoint *, const char *));
+static void gdbtk_create_breakpoint PARAMS ((struct breakpoint *));
+static void gdbtk_delete_breakpoint PARAMS ((struct breakpoint *));
+static void gdbtk_modify_breakpoint PARAMS ((struct breakpoint *));
+static int gdb_loc PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
+static int gdb_eval PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
+static int gdb_sourcelines PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
+static int map_arg_registers PARAMS ((int, char *[], void (*) (int, void *), void *));
+static void get_register_name PARAMS ((int, void *));
+static int gdb_regnames PARAMS ((ClientData, Tcl_Interp *, int, char *[]));
+static void get_register PARAMS ((int, void *));
+
 /* Handle for TCL interpreter */
 
 static Tcl_Interp *interp = NULL;
@@ -166,7 +204,7 @@ gdbtk_fputs (ptr, stream)
 
 static int
 gdbtk_query (query, args)
-     char *query;
+     const char *query;
      va_list args;
 {
   char buf[200], *merge[2];
@@ -591,7 +629,7 @@ gdb_regnames (clientData, interp, argc, argv)
   argc--;
   argv++;
 
-  return map_arg_registers (argc, argv, get_register_name, 0);
+  return map_arg_registers (argc, argv, get_register_name, NULL);
 }
 
 #ifndef REGISTER_CONVERTIBLE
@@ -631,8 +669,20 @@ get_register (regnum, fp)
   else
     memcpy (virtual_buffer, raw_buffer, REGISTER_VIRTUAL_SIZE (regnum));
 
-  val_print (REGISTER_VIRTUAL_TYPE (regnum), virtual_buffer, 0,
-            gdb_stdout, format, 1, 0, Val_pretty_default);
+  if (format == 'r')
+    {
+      int j;
+      printf_filtered ("0x");
+      for (j = 0; j < REGISTER_RAW_SIZE (regnum); j++)
+       {
+         register int idx = TARGET_BYTE_ORDER == BIG_ENDIAN ? j
+           : REGISTER_RAW_SIZE (regnum) - 1 - j;
+         printf_filtered ("%02x", (unsigned char)raw_buffer[idx]);
+       }
+    }
+  else
+    val_print (REGISTER_VIRTUAL_TYPE (regnum), virtual_buffer, 0,
+              gdb_stdout, format, 1, 0, Val_pretty_default);
 
   Tcl_DStringAppend (result_ptr, " ", -1);
 }
@@ -655,7 +705,7 @@ gdb_fetch_registers (clientData, interp, argc, argv)
   argc--;
   format = **argv++;
 
-  return map_arg_registers (argc, argv, get_register, format);
+  return map_arg_registers (argc, argv, get_register, (void *) format);
 }
 
 /* This contains the previous values of the registers, since the last call to
@@ -669,7 +719,6 @@ register_changed_p (regnum, argp)
      void *argp;               /* Ignored */
 {
   char raw_buffer[MAX_REGISTER_RAW_SIZE];
-  char buf[100];
 
   if (read_relative_register_raw_bytes (regnum, raw_buffer))
     return;
@@ -879,13 +928,20 @@ gdb_disassemble (clientData, interp, argc, argv)
 
   if (! di_initialized)
     {
-      INIT_DISASSEMBLE_INFO (di, gdb_stdout,
-                            (fprintf_ftype) fprintf_unfiltered);
+      INIT_DISASSEMBLE_INFO_NO_ARCH (di, gdb_stdout,
+                                    (fprintf_ftype) fprintf_unfiltered);
+      di.flavour = bfd_target_unknown_flavour;
       di.memory_error_func = dis_asm_memory_error;
       di.print_address_func = dis_asm_print_address;
       di_initialized = 1;
     }
 
+  di.mach = tm_print_insn_info.mach;
+  if (TARGET_BYTE_ORDER == BIG_ENDIAN)
+    tm_print_insn_info.endian = BFD_ENDIAN_BIG;
+  else
+    tm_print_insn_info.endian = BFD_ENDIAN_LITTLE;
+
   if (argc != 3 && argc != 4)
     error ("wrong # args");
 
@@ -1233,7 +1289,8 @@ gdbtk_init ()
                     gdb_get_breakpoint_info, NULL);
 
   command_loop_hook = tk_command_loop;
-  print_frame_info_listing_hook = null_routine;
+  print_frame_info_listing_hook =
+    (void (*) PARAMS ((struct symtab *, int, int, int))) null_routine;
   query_hook = gdbtk_query;
   flush_hook = gdbtk_flush;
   create_breakpoint_hook = gdbtk_create_breakpoint;