* corelow.c, exec.c, inftarg.c, m3-nat.c, op50-rom.c, procfs.c,
[deliverable/binutils-gdb.git] / gdb / infcmd.c
index 1df2c8fa23f34dfa2575aa468804b396624735db..1867b9abcf083da573897e3d294baf5ccebd7fc0 100644 (file)
@@ -30,6 +30,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #include "gdbcmd.h"
 #include "gdbcore.h"
 #include "target.h"
+#include "language.h"
 
 static void
 continue_command PARAMS ((char *, int));
@@ -127,16 +128,12 @@ int inferior_pid;
 
 /* Last signal that the inferior received (why it stopped).  */
 
-int stop_signal;
+enum target_signal stop_signal;
 
 /* Address at which inferior stopped.  */
 
 CORE_ADDR stop_pc;
 
-/* Stack frame when program stopped.  */
-
-FRAME_ADDR stop_frame_address;
-
 /* Chain containing status of breakpoint(s) that we have stopped at.  */
 
 bpstat stop_bpstat;
@@ -172,6 +169,10 @@ CORE_ADDR step_range_end; /* Exclusive */
 
 FRAME_ADDR step_frame_address;
 
+/* Our notion of the current stack pointer.  */
+
+CORE_ADDR step_sp;
+
 /* 1 means step over all subroutine calls.
    0 means don't step over calls (used by stepi).
    -1 means step over calls to undebuggable functions.  */
@@ -211,7 +212,6 @@ run_command (args, from_tty)
 
   dont_repeat ();
 
-  /* Shouldn't this be target_has_execution?  FIXME.  */
   if (inferior_pid)
     {
       if (
@@ -221,12 +221,22 @@ Start it from the beginning? "))
       target_kill ();
     }
 
+  clear_breakpoint_hit_counts ();
+
   exec_file = (char *) get_exec_file (0);
 
   /* The exec file is re-read every time we do a generic_mourn_inferior, so
      we just have to worry about the symbol file.  */
   reread_symbols ();
 
+  /* We keep symbols from add-symbol-file, on the grounds that the
+     user might want to add some symbols before running the program
+     (right?).  But sometimes (dynamic loading where the user manually
+     introduces the new symbols with add-symbol-file), the code which
+     the symbols describe does not persist between runs.  Currently
+     the user has to manually nuke all symbols between runs if they
+     want them to go away (PR 2207).  This is probably reasonable.  */
+
   if (args)
     {
       char *cmd;
@@ -243,7 +253,7 @@ Start it from the beginning? "))
       puts_filtered(" ");
       puts_filtered(inferior_args);
       puts_filtered("\n");
-      fflush (stdout);
+      gdb_flush (gdb_stdout);
     }
 
   target_create_inferior (exec_file, inferior_args,
@@ -286,7 +296,7 @@ continue_command (proc_count_exp, from_tty)
 
   clear_proceed_status ();
 
-  proceed ((CORE_ADDR) -1, -1, 0);
+  proceed ((CORE_ADDR) -1, TARGET_SIGNAL_DEFAULT, 0);
 }
 \f
 /* Step until outside of current statement.  */
@@ -358,6 +368,7 @@ step_1 (skip_subroutines, single_inst, count_string)
       if (!fr)                         /* Avoid coredump here.  Why tho? */
        error ("No current frame");
       step_frame_address = FRAME_FP (fr);
+      step_sp = read_sp ();
 
       if (! single_inst)
        {
@@ -373,7 +384,7 @@ step_1 (skip_subroutines, single_inst, count_string)
              printf_filtered ("\
 Single stepping until exit from function %s, \n\
 which has no line number information.\n", name);
-             fflush (stdout);
+             gdb_flush (gdb_stdout);
            }
        }
       else
@@ -391,9 +402,13 @@ which has no line number information.\n", name);
        step_over_calls = 1;
 
       step_multi = (count > 1);
-      proceed ((CORE_ADDR) -1, -1, 1);
+      proceed ((CORE_ADDR) -1, TARGET_SIGNAL_DEFAULT, 1);
       if (! stop_step)
        break;
+
+      /* FIXME: On nexti, this may have already been done (when we hit the
+        step resume break, I think).  Probably this should be moved to
+        wait_for_inferior (near the top).  */
 #if defined (SHIFT_INST_REGS)
       SHIFT_INST_REGS();
 #endif
@@ -448,13 +463,17 @@ jump_command (arg, from_tty)
        }
     }
 
-  addr = ADDR_BITS_SET (sal.pc);
+  addr = sal.pc;
 
   if (from_tty)
-    printf_filtered ("Continuing at %s.\n", local_hex_string(addr));
+    {
+      printf_filtered ("Continuing at ");
+      print_address_numeric (addr, 1, gdb_stdout);
+      printf_filtered (".\n");
+    }
 
   clear_proceed_status ();
-  proceed (addr, 0, 0);
+  proceed (addr, TARGET_SIGNAL_0, 0);
 }
 
 /* Continue program giving it specified signal.  */
@@ -464,7 +483,7 @@ signal_command (signum_exp, from_tty)
      char *signum_exp;
      int from_tty;
 {
-  register int signum;
+  enum target_signal oursig;
 
   dont_repeat ();              /* Too dangerous.  */
   ERROR_NO_INFERIOR;
@@ -475,25 +494,36 @@ signal_command (signum_exp, from_tty)
   /* It would be even slicker to make signal names be valid expressions,
      (the type could be "enum $signal" or some such), then the user could
      assign them to convenience variables.  */
-  signum = strtosigno (signum_exp);
+  oursig = target_signal_from_name (signum_exp);
 
-  if (signum == 0)
-    /* Not found as a name, try it as an expression.  */
-    signum = parse_and_eval_address (signum_exp);
+  if (oursig == TARGET_SIGNAL_UNKNOWN)
+    {
+      /* Not found as a name, try it as an expression.  */
+      /* The numeric signal refers to our own internal signal numbering
+        from target.h, not to host/target signal number.  This is a
+        feature; users really should be using symbolic names anyway,
+        and the common ones like SIGHUP, SIGINT, SIGALRM, etc.  will
+        work right anyway.  */
+      int signum = parse_and_eval_address (signum_exp);
+      if (signum < 0
+         || signum >= (int)TARGET_SIGNAL_LAST
+         || signum == (int)TARGET_SIGNAL_UNKNOWN
+         || signum == (int)TARGET_SIGNAL_DEFAULT)
+       error ("Invalid signal number %d.", signum);
+      oursig = signum;
+    }
 
   if (from_tty)
     {
-      char *signame = strsigno (signum);
-      printf_filtered ("Continuing with signal ");
-      if (signame == NULL || signum == 0)
-       printf_filtered ("%d.\n", signum);
+      if (oursig == TARGET_SIGNAL_0)
+       printf_filtered ("Continuing with no signal.\n");
       else
-       /* Do we need to print the number as well as the name?  */
-       printf_filtered ("%s (%d).\n", signame, signum);
+       printf_filtered ("Continuing with signal %s.\n",
+                        target_signal_to_name (oursig));
     }
 
   clear_proceed_status ();
-  proceed (stop_pc, signum, 0);
+  proceed (stop_pc, oursig, 0);
 }
 
 /* Call breakpoint_auto_delete on the current contents of the bpstat
@@ -544,10 +574,20 @@ run_stack_dummy (addr, buffer)
     struct breakpoint *bpt;
     struct symtab_and_line sal;
 
+#if CALL_DUMMY_LOCATION != AT_ENTRY_POINT
     sal.pc = addr - CALL_DUMMY_START_OFFSET + CALL_DUMMY_BREAKPOINT_OFFSET;
+#else
+    sal.pc = CALL_DUMMY_ADDRESS ();
+#endif
     sal.symtab = NULL;
     sal.line = 0;
 
+    /* Set up a FRAME for the dummy frame so we can pass it to
+       set_momentary_breakpoint.  We need to give the breakpoint a
+       frame in case there is only one copy of the dummy (e.g.
+       CALL_DUMMY_LOCATION == AFTER_TEXT_END).  */
+    flush_cached_frames ();
+
     /* If defined, CALL_DUMMY_BREAKPOINT_OFFSET is where we need to put
        a breakpoint instruction.  If not, the call dummy already has the
        breakpoint instruction in it.
@@ -555,7 +595,7 @@ run_stack_dummy (addr, buffer)
        addr is the address of the call dummy plus the CALL_DUMMY_START_OFFSET,
        so we need to subtract the CALL_DUMMY_START_OFFSET.  */
     bpt = set_momentary_breakpoint (sal,
-                                   NULL,
+                                   get_current_frame (),
                                    bp_call_dummy);
     bpt->disposition = delete;
 
@@ -567,7 +607,7 @@ run_stack_dummy (addr, buffer)
 #endif /* CALL_DUMMY_BREAKPOINT_OFFSET.  */
 
   proceed_to_finish = 1;       /* We want stop_registers, please... */
-  proceed (addr, 0, 0);
+  proceed (addr, TARGET_SIGNAL_0, 0);
 
   discard_cleanups (old_cleanups);
 
@@ -585,8 +625,8 @@ run_stack_dummy (addr, buffer)
 
    Note that eventually this command should probably be changed so
    that only source lines are printed out when we hit the breakpoint
-   we set.  I'm going to postpone this until after a hopeful rewrite
-   of wait_for_inferior and the proceed status code. -- randy */
+   we set.  This may involve changes to wait_for_inferior and the
+   proceed status code.  */
 
 /* ARGSUSED */
 static void
@@ -629,10 +669,11 @@ until_next_command (from_tty)
   
   step_over_calls = 1;
   step_frame_address = FRAME_FP (frame);
-  
+  step_sp = read_sp ();
+
   step_multi = 0;              /* Only one call to proceed */
   
-  proceed ((CORE_ADDR) -1, -1, 1);
+  proceed ((CORE_ADDR) -1, TARGET_SIGNAL_DEFAULT, 1);
 }
 
 static void 
@@ -698,14 +739,14 @@ finish_command (arg, from_tty)
     }
 
   proceed_to_finish = 1;               /* We want stop_registers, please... */
-  proceed ((CORE_ADDR) -1, -1, 0);
+  proceed ((CORE_ADDR) -1, TARGET_SIGNAL_DEFAULT, 0);
 
   /* Did we stop at our breakpoint? */
   if (bpstat_find_breakpoint(stop_bpstat, breakpoint) != NULL
       && function != 0)
     {
       struct type *value_type;
-      register value val;
+      register value_ptr val;
       CORE_ADDR funcaddr;
 
       value_type = TYPE_TARGET_TYPE (SYMBOL_TYPE (function));
@@ -724,7 +765,7 @@ finish_command (arg, from_tty)
                BLOCK_GCC_COMPILED (SYMBOL_BLOCK_VALUE (function))));
 
       printf_filtered ("Value returned is $%d = ", record_latest_value (val));
-      value_print (val, stdout, 0, Val_no_prettyprint);
+      value_print (val, gdb_stdout, 0, Val_no_prettyprint);
       printf_filtered ("\n");
     }
   do_cleanups(old_chain);
@@ -746,7 +787,8 @@ program_info (args, from_tty)
     }
 
   target_files_info ();
-  printf_filtered ("Program stopped at %s.\n", local_hex_string(stop_pc));
+  printf_filtered ("Program stopped at %s.\n",
+                  local_hex_string((unsigned long) stop_pc));
   if (stop_step)
     printf_filtered ("It stopped after being stepped.\n");
   else if (num != 0)
@@ -762,21 +804,12 @@ program_info (args, from_tty)
          num = bpstat_num (&bs);
        }
     }
-  else if (stop_signal)
+  else if (stop_signal != TARGET_SIGNAL_0)
     {
-#ifdef PRINT_RANDOM_SIGNAL
-      PRINT_RANDOM_SIGNAL (stop_signal);
-#else
-      char *signame = strsigno (stop_signal);
-      printf_filtered ("It stopped with signal ");
-      if (signame == NULL)
-       printf_filtered ("%d", stop_signal);
-      else
-       /* Do we need to print the number as well as the name?  */
-       printf_filtered ("%s (%d)", signame, stop_signal);
-      printf_filtered (", %s.\n", safe_strsignal (stop_signal));
-#endif
-  }
+      printf_filtered ("It stopped with signal %s, %s.\n",
+                      target_signal_to_name (stop_signal),
+                      target_signal_to_string (stop_signal));
+    }
 
   if (!from_tty)
     printf_filtered ("Type \"info stack\" or \"info registers\" for more information.\n");
@@ -929,82 +962,6 @@ path_command (dirname, from_tty)
     path_info ((char *)NULL, from_tty);
 }
 \f
-/* This routine is getting awfully cluttered with #if's.  It's probably
-   time to turn this into READ_PC and define it in the tm.h file.
-   Ditto for write_pc.  */
-
-CORE_ADDR
-read_pc ()
-{
-#ifdef TARGET_READ_PC
-  return TARGET_READ_PC ();
-#else
-  return ADDR_BITS_REMOVE ((CORE_ADDR) read_register (PC_REGNUM));
-#endif
-}
-
-void
-write_pc (val)
-     CORE_ADDR val;
-{
-#ifdef TARGET_WRITE_PC
-  TARGET_WRITE_PC (val);
-#else
-  write_register (PC_REGNUM, (long) val);
-#ifdef NPC_REGNUM
-  write_register (NPC_REGNUM, (long) val + 4);
-#ifdef NNPC_REGNUM
-  write_register (NNPC_REGNUM, (long) val + 8);
-#endif
-#endif
-#endif
-}
-
-/* Cope with strage ways of getting to the stack and frame pointers */
-
-CORE_ADDR
-read_sp ()
-{
-#ifdef TARGET_READ_SP
-  return TARGET_READ_SP ();
-#else
-  return read_register (SP_REGNUM);
-#endif
-}
-
-void
-write_sp (val)
-     CORE_ADDR val;
-{
-#ifdef TARGET_WRITE_SP
-  TARGET_WRITE_SP (val);
-#else
-  write_register (SP_REGNUM, val);
-#endif
-}
-
-
-CORE_ADDR
-read_fp ()
-{
-#ifdef TARGET_READ_FP
-  return TARGET_READ_FP ();
-#else
-  return read_register (FP_REGNUM);
-#endif
-}
-
-void
-write_fp (val)
-     CORE_ADDR val;
-{
-#ifdef TARGET_WRITE_FP
-  TARGET_WRITE_FP (val);
-#else
-  write_register (FP_REGNUM, val);
-#endif
-}
-
 const char * const reg_names[] = REGISTER_NAMES;
 
 /* Print out the machine register regnum. If regnum is -1,
@@ -1019,15 +976,18 @@ const char * const reg_names[] = REGISTER_NAMES;
    to provide that format.  */  
 
 #if !defined (DO_REGISTERS_INFO)
+
 #define DO_REGISTERS_INFO(regnum, fp) do_registers_info(regnum, fp)
+
 static void
 do_registers_info (regnum, fpregs)
      int regnum;
      int fpregs;
 {
   register int i;
+  int numregs = ARCH_NUM_REGS;
 
-  for (i = 0; i < NUM_REGS; i++)
+  for (i = 0; i < numregs; i++)
     {
       char raw_buffer[MAX_REGISTER_RAW_SIZE];
       char virtual_buffer[MAX_REGISTER_VIRTUAL_SIZE];
@@ -1041,26 +1001,40 @@ do_registers_info (regnum, fpregs)
          continue;
       }
 
-      fputs_filtered (reg_names[i], stdout);
-      print_spaces_filtered (15 - strlen (reg_names[i]), stdout);
+      fputs_filtered (reg_names[i], gdb_stdout);
+      print_spaces_filtered (15 - strlen (reg_names[i]), gdb_stdout);
 
-      /* Get the data in raw format, then convert also to virtual format.  */
+      /* Get the data in raw format.  */
       if (read_relative_register_raw_bytes (i, raw_buffer))
        {
          printf_filtered ("Invalid register contents\n");
          continue;
        }
-      
-      REGISTER_CONVERT_TO_VIRTUAL (i, raw_buffer, virtual_buffer);
+
+      /* Convert raw data to virtual format if necessary.  */
+#ifdef REGISTER_CONVERTIBLE
+      if (REGISTER_CONVERTIBLE (i))
+       {
+         REGISTER_CONVERT_TO_VIRTUAL (i, REGISTER_VIRTUAL_TYPE (i),
+                                      raw_buffer, virtual_buffer);
+       }
+      else
+#endif
+       memcpy (virtual_buffer, raw_buffer,
+               REGISTER_VIRTUAL_SIZE (i));
 
       /* If virtual format is floating, print it that way, and in raw hex.  */
-      if (TYPE_CODE (REGISTER_VIRTUAL_TYPE (i)) == TYPE_CODE_FLT
-         && ! INVALID_FLOAT (virtual_buffer, REGISTER_VIRTUAL_SIZE (i)))
+      if (TYPE_CODE (REGISTER_VIRTUAL_TYPE (i)) == TYPE_CODE_FLT)
        {
          register int j;
 
-         val_print (REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0,
-                    stdout, 0, 1, 0, Val_pretty_default);
+#ifdef INVALID_FLOAT
+         if (INVALID_FLOAT (virtual_buffer, REGISTER_VIRTUAL_SIZE (i)))
+           printf_filtered ("<invalid float>");
+         else
+#endif
+           val_print (REGISTER_VIRTUAL_TYPE (i), virtual_buffer, 0,
+                      gdb_stdout, 0, 1, 0, Val_pretty_default);
 
          printf_filtered ("\t(raw 0x");
          for (j = 0; j < REGISTER_RAW_SIZE (i); j++)
@@ -1083,10 +1057,10 @@ do_registers_info (regnum, fpregs)
       else
        {
          val_print (REGISTER_VIRTUAL_TYPE (i), raw_buffer, 0,
-                    stdout, 'x', 1, 0, Val_pretty_default);
+                    gdb_stdout, 'x', 1, 0, Val_pretty_default);
          printf_filtered ("\t");
          val_print (REGISTER_VIRTUAL_TYPE (i), raw_buffer, 0,
-                    stdout,   0, 1, 0, Val_pretty_default);
+                    gdb_stdout,   0, 1, 0, Val_pretty_default);
        }
 
       /* The SPARC wants to print even-numbered float regs as doubles
@@ -1105,7 +1079,7 @@ registers_info (addr_exp, fpregs)
      char *addr_exp;
      int fpregs;
 {
-  int regnum;
+  int regnum, numregs;
   register char *end;
 
   if (!target_has_registers)
@@ -1124,13 +1098,14 @@ registers_info (addr_exp, fpregs)
       end = addr_exp;
       while (*end != '\0' && *end != ' ' && *end != '\t')
        ++end;
-      for (regnum = 0; regnum < NUM_REGS; regnum++)
+      numregs = ARCH_NUM_REGS;
+      for (regnum = 0; regnum < numregs; regnum++)
        if (!strncmp (addr_exp, reg_names[regnum], end - addr_exp)
            && strlen (reg_names[regnum]) == end - addr_exp)
          goto found;
       if (*addr_exp >= '0' && *addr_exp <= '9')
        regnum = atoi (addr_exp);               /* Take a number */
-      if (regnum >= NUM_REGS)          /* Bad name, or bad number */
+      if (regnum >= numregs)           /* Bad name, or bad number */
        error ("%.*s: invalid register", end - addr_exp, addr_exp);
 
 found:
@@ -1204,7 +1179,12 @@ attach_command (args, from_tty)
   clear_proceed_status ();
   stop_soon_quietly = 1;
 
+#ifndef MACH
+  /* Mach 3 does not generate any traps when attaching to inferior,
+     and to set up frames we can do this.  */
+
   wait_for_inferior ();
+#endif
 
 #ifdef SOLIB_ADD
   /* Add shared library symbols from the newly attached process, if any.  */
@@ -1254,7 +1234,7 @@ unset_command (args, from_tty)
      int from_tty;
 {
   printf_filtered ("\"unset\" must be followed by the name of an unset subcommand.\n");
-  help_list (unsetlist, "unset ", -1, stdout);
+  help_list (unsetlist, "unset ", -1, gdb_stdout);
 }
 
 void
This page took 0.031061 seconds and 4 git commands to generate.