1 /* Target-struct-independent code to start (run) and stop an inferior process.
2 Copyright 1986, 1987, 1988, 1989, 1991, 1992, 1993, 1994, 1995, 1996
3 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
22 #include "gdb_string.h"
27 #include "breakpoint.h"
37 /* unistd.h is needed to #define X_OK */
44 /* Prototypes for local functions */
46 static void signals_info
PARAMS ((char *, int));
48 static void handle_command
PARAMS ((char *, int));
50 static void sig_print_info
PARAMS ((enum target_signal
));
52 static void sig_print_header
PARAMS ((void));
54 static void resume_cleanups
PARAMS ((int));
56 static int hook_stop_stub
PARAMS ((char *));
58 /* GET_LONGJMP_TARGET returns the PC at which longjmp() will resume the
59 program. It needs to examine the jmp_buf argument and extract the PC
60 from it. The return value is non-zero on success, zero otherwise. */
62 #ifndef GET_LONGJMP_TARGET
63 #define GET_LONGJMP_TARGET(PC_ADDR) 0
67 /* Some machines have trampoline code that sits between function callers
68 and the actual functions themselves. If this machine doesn't have
69 such things, disable their processing. */
71 #ifndef SKIP_TRAMPOLINE_CODE
72 #define SKIP_TRAMPOLINE_CODE(pc) 0
75 /* Dynamic function trampolines are similar to solib trampolines in that they
76 are between the caller and the callee. The difference is that when you
77 enter a dynamic trampoline, you can't determine the callee's address. Some
78 (usually complex) code needs to run in the dynamic trampoline to figure out
79 the callee's address. This macro is usually called twice. First, when we
80 enter the trampoline (looks like a normal function call at that point). It
81 should return the PC of a point within the trampoline where the callee's
82 address is known. Second, when we hit the breakpoint, this routine returns
83 the callee's address. At that point, things proceed as per a step resume
86 #ifndef DYNAMIC_TRAMPOLINE_NEXTPC
87 #define DYNAMIC_TRAMPOLINE_NEXTPC(pc) 0
90 /* For SVR4 shared libraries, each call goes through a small piece of
91 trampoline code in the ".plt" section. IN_SOLIB_CALL_TRAMPOLINE evaluates
92 to nonzero if we are current stopped in one of these. */
94 #ifndef IN_SOLIB_CALL_TRAMPOLINE
95 #define IN_SOLIB_CALL_TRAMPOLINE(pc,name) 0
98 /* In some shared library schemes, the return path from a shared library
99 call may need to go through a trampoline too. */
101 #ifndef IN_SOLIB_RETURN_TRAMPOLINE
102 #define IN_SOLIB_RETURN_TRAMPOLINE(pc,name) 0
105 /* On some systems, the PC may be left pointing at an instruction that won't
106 actually be executed. This is usually indicated by a bit in the PSW. If
107 we find ourselves in such a state, then we step the target beyond the
108 nullified instruction before returning control to the user so as to avoid
111 #ifndef INSTRUCTION_NULLIFIED
112 #define INSTRUCTION_NULLIFIED 0
115 /* Tables of how to react to signals; the user sets them. */
117 static unsigned char *signal_stop
;
118 static unsigned char *signal_print
;
119 static unsigned char *signal_program
;
121 #define SET_SIGS(nsigs,sigs,flags) \
123 int signum = (nsigs); \
124 while (signum-- > 0) \
125 if ((sigs)[signum]) \
126 (flags)[signum] = 1; \
129 #define UNSET_SIGS(nsigs,sigs,flags) \
131 int signum = (nsigs); \
132 while (signum-- > 0) \
133 if ((sigs)[signum]) \
134 (flags)[signum] = 0; \
138 /* Command list pointer for the "stop" placeholder. */
140 static struct cmd_list_element
*stop_command
;
142 /* Nonzero if breakpoints are now inserted in the inferior. */
144 static int breakpoints_inserted
;
146 /* Function inferior was in as of last step command. */
148 static struct symbol
*step_start_function
;
150 /* Nonzero if we are expecting a trace trap and should proceed from it. */
152 static int trap_expected
;
154 /* Nonzero if we want to give control to the user when we're notified
155 of shared library events by the dynamic linker. */
156 static int stop_on_solib_events
;
159 /* Nonzero if the next time we try to continue the inferior, it will
160 step one instruction and generate a spurious trace trap.
161 This is used to compensate for a bug in HP-UX. */
163 static int trap_expected_after_continue
;
166 /* Nonzero means expecting a trace trap
167 and should stop the inferior and return silently when it happens. */
171 /* Nonzero means expecting a trap and caller will handle it themselves.
172 It is used after attach, due to attaching to a process;
173 when running in the shell before the child program has been exec'd;
174 and when running some kinds of remote stuff (FIXME?). */
176 int stop_soon_quietly
;
178 /* Nonzero if proceed is being used for a "finish" command or a similar
179 situation when stop_registers should be saved. */
181 int proceed_to_finish
;
183 /* Save register contents here when about to pop a stack dummy frame,
184 if-and-only-if proceed_to_finish is set.
185 Thus this contains the return value from the called function (assuming
186 values are returned in a register). */
188 char stop_registers
[REGISTER_BYTES
];
190 /* Nonzero if program stopped due to error trying to insert breakpoints. */
192 static int breakpoints_failed
;
194 /* Nonzero after stop if current stack frame should be printed. */
196 static int stop_print_frame
;
198 #ifdef NO_SINGLE_STEP
199 extern int one_stepped
; /* From machine dependent code */
200 extern void single_step (); /* Same. */
201 #endif /* NO_SINGLE_STEP */
203 extern void write_pc_pid
PARAMS ((CORE_ADDR
, int));
206 /* Things to clean up if we QUIT out of resume (). */
209 resume_cleanups (arg
)
215 /* Resume the inferior, but allow a QUIT. This is useful if the user
216 wants to interrupt some lengthy single-stepping operation
217 (for child processes, the SIGINT goes to the inferior, and so
218 we get a SIGINT random_signal, but for remote debugging and perhaps
219 other targets, that's not true).
221 STEP nonzero if we should step (zero to continue instead).
222 SIG is the signal to give the inferior (zero for none). */
226 enum target_signal sig
;
228 struct cleanup
*old_cleanups
= make_cleanup (resume_cleanups
, 0);
231 #ifdef CANNOT_STEP_BREAKPOINT
232 /* Most targets can step a breakpoint instruction, thus executing it
233 normally. But if this one cannot, just continue and we will hit
235 if (step
&& breakpoints_inserted
&& breakpoint_here_p (read_pc ()))
239 #ifdef NO_SINGLE_STEP
241 single_step(sig
); /* Do it the hard way, w/temp breakpoints */
242 step
= 0; /* ...and don't ask hardware to do it. */
246 /* Handle any optimized stores to the inferior NOW... */
247 #ifdef DO_DEFERRED_STORES
251 /* Install inferior's terminal modes. */
252 target_terminal_inferior ();
254 target_resume (-1, step
, sig
);
255 discard_cleanups (old_cleanups
);
259 /* Clear out all variables saying what to do when inferior is continued.
260 First do this, then set the ones you want, then call `proceed'. */
263 clear_proceed_status ()
266 step_range_start
= 0;
268 step_frame_address
= 0;
269 step_over_calls
= -1;
271 stop_soon_quietly
= 0;
272 proceed_to_finish
= 0;
273 breakpoint_proceeded
= 1; /* We're about to proceed... */
275 /* Discard any remaining commands or status from previous stop. */
276 bpstat_clear (&stop_bpstat
);
279 /* Basic routine for continuing the program in various fashions.
281 ADDR is the address to resume at, or -1 for resume where stopped.
282 SIGGNAL is the signal to give it, or 0 for none,
283 or -1 for act according to how it stopped.
284 STEP is nonzero if should trap after one instruction.
285 -1 means return after that and print nothing.
286 You should probably set various step_... variables
287 before calling here, if you are stepping.
289 You should call clear_proceed_status before calling proceed. */
292 proceed (addr
, siggnal
, step
)
294 enum target_signal siggnal
;
300 step_start_function
= find_pc_function (read_pc ());
304 if (addr
== (CORE_ADDR
)-1)
306 /* If there is a breakpoint at the address we will resume at,
307 step one instruction before inserting breakpoints
308 so that we do not stop right away. */
310 if (breakpoint_here_p (read_pc ()))
313 #ifdef STEP_SKIPS_DELAY
314 /* Check breakpoint_here_p first, because breakpoint_here_p is fast
315 (it just checks internal GDB data structures) and STEP_SKIPS_DELAY
316 is slow (it needs to read memory from the target). */
317 if (breakpoint_here_p (read_pc () + 4)
318 && STEP_SKIPS_DELAY (read_pc ()))
320 #endif /* STEP_SKIPS_DELAY */
325 #ifdef PREPARE_TO_PROCEED
326 /* In a multi-threaded task we may select another thread and then continue.
328 In this case the thread that stopped at a breakpoint will immediately
329 cause another stop, if it is not stepped over first. On the other hand,
330 if (ADDR != -1) we only want to single step over the breakpoint if we did
331 switch to another thread.
333 If we are single stepping, don't do any of the above.
334 (Note that in the current implementation single stepping another
335 thread after a breakpoint and then continuing will cause the original
336 breakpoint to be hit again, but you can always continue, so it's not
339 if (! step
&& PREPARE_TO_PROCEED (1) && breakpoint_here_p (read_pc ()))
341 #endif /* PREPARE_TO_PROCEED */
344 if (trap_expected_after_continue
)
346 /* If (step == 0), a trap will be automatically generated after
347 the first instruction is executed. Force step one
348 instruction to clear this condition. This should not occur
349 if step is nonzero, but it is harmless in that case. */
351 trap_expected_after_continue
= 0;
353 #endif /* HP_OS_BUG */
356 /* We will get a trace trap after one instruction.
357 Continue it automatically and insert breakpoints then. */
361 int temp
= insert_breakpoints ();
364 print_sys_errmsg ("ptrace", temp
);
365 error ("Cannot insert breakpoints.\n\
366 The same program may be running in another process.");
368 breakpoints_inserted
= 1;
371 if (siggnal
!= TARGET_SIGNAL_DEFAULT
)
372 stop_signal
= siggnal
;
373 /* If this signal should not be seen by program,
374 give it zero. Used for debugging signals. */
375 else if (!signal_program
[stop_signal
])
376 stop_signal
= TARGET_SIGNAL_0
;
378 annotate_starting ();
380 /* Make sure that output from GDB appears before output from the
382 gdb_flush (gdb_stdout
);
384 /* Resume inferior. */
385 resume (oneproc
|| step
|| bpstat_should_step (), stop_signal
);
387 /* Wait for it to stop (if not standalone)
388 and in any case decode why it stopped, and act accordingly. */
390 wait_for_inferior ();
394 /* Record the pc and sp of the program the last time it stopped.
395 These are just used internally by wait_for_inferior, but need
396 to be preserved over calls to it and cleared when the inferior
398 static CORE_ADDR prev_pc
;
399 static CORE_ADDR prev_func_start
;
400 static char *prev_func_name
;
403 /* Start remote-debugging of a machine over a serial link. */
409 init_wait_for_inferior ();
410 clear_proceed_status ();
411 stop_soon_quietly
= 1;
413 wait_for_inferior ();
417 /* Initialize static vars when a new inferior begins. */
420 init_wait_for_inferior ()
422 /* These are meaningless until the first time through wait_for_inferior. */
425 prev_func_name
= NULL
;
428 trap_expected_after_continue
= 0;
430 breakpoints_inserted
= 0;
431 breakpoint_init_inferior ();
433 /* Don't confuse first call to proceed(). */
434 stop_signal
= TARGET_SIGNAL_0
;
438 delete_breakpoint_current_contents (arg
)
441 struct breakpoint
**breakpointp
= (struct breakpoint
**)arg
;
442 if (*breakpointp
!= NULL
)
443 delete_breakpoint (*breakpointp
);
446 /* Wait for control to return from inferior to debugger.
447 If inferior gets a signal, we may decide to start it up again
448 instead of returning. That is why there is a loop in this function.
449 When this function actually returns it means the inferior
450 should be left stopped and GDB should read more commands. */
455 struct cleanup
*old_cleanups
;
456 struct target_waitstatus w
;
459 CORE_ADDR stop_func_start
;
460 CORE_ADDR stop_func_end
;
461 char *stop_func_name
;
463 CORE_ADDR prologue_pc
= 0;
466 struct symtab_and_line sal
;
467 int remove_breakpoints_on_following_step
= 0;
469 struct symtab
*current_symtab
;
470 int handling_longjmp
= 0; /* FIXME */
471 struct breakpoint
*step_resume_breakpoint
= NULL
;
472 struct breakpoint
*through_sigtramp_breakpoint
= NULL
;
474 int update_step_sp
= 0;
476 old_cleanups
= make_cleanup (delete_breakpoint_current_contents
,
477 &step_resume_breakpoint
);
478 make_cleanup (delete_breakpoint_current_contents
,
479 &through_sigtramp_breakpoint
);
480 sal
= find_pc_line(prev_pc
, 0);
481 current_line
= sal
.line
;
482 current_symtab
= sal
.symtab
;
484 /* Are we stepping? */
485 #define CURRENTLY_STEPPING() \
486 ((through_sigtramp_breakpoint == NULL \
487 && !handling_longjmp \
488 && ((step_range_end && step_resume_breakpoint == NULL) \
490 || bpstat_should_step ())
494 /* We have to invalidate the registers BEFORE calling target_wait because
495 they can be loaded from the target while in target_wait. This makes
496 remote debugging a bit more efficient for those targets that provide
497 critical registers as part of their normal status mechanism. */
499 registers_changed ();
501 if (target_wait_hook
)
502 pid
= target_wait_hook (-1, &w
);
504 pid
= target_wait (-1, &w
);
508 We goto this label from elsewhere in wait_for_inferior when we want
509 to continue the main loop without calling "wait" and trashing the
510 waitstatus contained in W. */
513 flush_cached_frames ();
515 /* If it's a new process, add it to the thread database */
517 if (pid
!= inferior_pid
518 && !in_thread_list (pid
))
520 fprintf_unfiltered (gdb_stderr
, "[New %s]\n", target_pid_to_str (pid
));
523 /* We may want to consider not doing a resume here in order to give
524 the user a chance to play with the new thread. It might be good
525 to make that a user-settable option. */
527 /* At this point, all threads are stopped (happens automatically in
528 either the OS or the native code). Therefore we need to continue
529 all threads in order to make progress. */
531 target_resume (-1, 0, TARGET_SIGNAL_0
);
537 case TARGET_WAITKIND_LOADED
:
538 /* Ignore it gracefully. */
539 if (breakpoints_inserted
)
541 mark_breakpoints_out ();
542 insert_breakpoints ();
544 resume (0, TARGET_SIGNAL_0
);
547 case TARGET_WAITKIND_SPURIOUS
:
548 resume (0, TARGET_SIGNAL_0
);
551 case TARGET_WAITKIND_EXITED
:
552 target_terminal_ours (); /* Must do this before mourn anyway */
553 annotate_exited (w
.value
.integer
);
555 printf_filtered ("\nProgram exited with code 0%o.\n",
556 (unsigned int)w
.value
.integer
);
558 printf_filtered ("\nProgram exited normally.\n");
560 /* Record the exit code in the convenience variable $_exitcode, so
561 that the user can inspect this again later. */
562 set_internalvar (lookup_internalvar ("_exitcode"),
563 value_from_longest (builtin_type_int
,
564 (LONGEST
) w
.value
.integer
));
565 gdb_flush (gdb_stdout
);
566 target_mourn_inferior ();
567 #ifdef NO_SINGLE_STEP
570 stop_print_frame
= 0;
573 case TARGET_WAITKIND_SIGNALLED
:
574 stop_print_frame
= 0;
575 stop_signal
= w
.value
.sig
;
576 target_terminal_ours (); /* Must do this before mourn anyway */
577 annotate_signalled ();
579 /* This looks pretty bogus to me. Doesn't TARGET_WAITKIND_SIGNALLED
580 mean it is already dead? This has been here since GDB 2.8, so
581 perhaps it means rms didn't understand unix waitstatuses?
582 For the moment I'm just kludging around this in remote.c
583 rather than trying to change it here --kingdon, 5 Dec 1994. */
584 target_kill (); /* kill mourns as well */
586 printf_filtered ("\nProgram terminated with signal ");
587 annotate_signal_name ();
588 printf_filtered ("%s", target_signal_to_name (stop_signal
));
589 annotate_signal_name_end ();
590 printf_filtered (", ");
591 annotate_signal_string ();
592 printf_filtered ("%s", target_signal_to_string (stop_signal
));
593 annotate_signal_string_end ();
594 printf_filtered (".\n");
596 printf_filtered ("The program no longer exists.\n");
597 gdb_flush (gdb_stdout
);
598 #ifdef NO_SINGLE_STEP
603 case TARGET_WAITKIND_STOPPED
:
604 /* This is the only case in which we keep going; the above cases
605 end in a continue or goto. */
609 stop_signal
= w
.value
.sig
;
611 stop_pc
= read_pc_pid (pid
);
613 /* See if a thread hit a thread-specific breakpoint that was meant for
614 another thread. If so, then step that thread past the breakpoint,
617 if (stop_signal
== TARGET_SIGNAL_TRAP
618 && breakpoints_inserted
619 && breakpoint_here_p (stop_pc
- DECR_PC_AFTER_BREAK
))
622 if (!breakpoint_thread_match (stop_pc
- DECR_PC_AFTER_BREAK
, pid
))
624 /* Saw a breakpoint, but it was hit by the wrong thread. Just continue. */
625 write_pc_pid (stop_pc
- DECR_PC_AFTER_BREAK
, pid
);
627 remove_breakpoints ();
628 target_resume (pid
, 1, TARGET_SIGNAL_0
); /* Single step */
629 /* FIXME: What if a signal arrives instead of the single-step
632 if (target_wait_hook
)
633 target_wait_hook (pid
, &w
);
635 target_wait (pid
, &w
);
636 insert_breakpoints ();
638 /* We need to restart all the threads now. */
639 target_resume (-1, 0, TARGET_SIGNAL_0
);
646 /* See if something interesting happened to the non-current thread. If
647 so, then switch to that thread, and eventually give control back to
650 if (pid
!= inferior_pid
)
654 /* If it's a random signal for a non-current thread, notify user
655 if he's expressed an interest. */
658 && signal_print
[stop_signal
])
661 target_terminal_ours_for_output ();
662 printf_filtered ("\nProgram received signal %s, %s.\n",
663 target_signal_to_name (stop_signal
),
664 target_signal_to_string (stop_signal
));
665 gdb_flush (gdb_stdout
);
668 /* If it's not SIGTRAP and not a signal we want to stop for, then
669 continue the thread. */
671 if (stop_signal
!= TARGET_SIGNAL_TRAP
672 && !signal_stop
[stop_signal
])
675 target_terminal_inferior ();
677 /* Clear the signal if it should not be passed. */
678 if (signal_program
[stop_signal
] == 0)
679 stop_signal
= TARGET_SIGNAL_0
;
681 target_resume (pid
, 0, stop_signal
);
685 /* It's a SIGTRAP or a signal we're interested in. Switch threads,
686 and fall into the rest of wait_for_inferior(). */
688 /* Save infrun state for the old thread. */
689 save_infrun_state (inferior_pid
, prev_pc
,
690 prev_func_start
, prev_func_name
,
691 trap_expected
, step_resume_breakpoint
,
692 through_sigtramp_breakpoint
,
693 step_range_start
, step_range_end
,
694 step_frame_address
, handling_longjmp
,
699 /* Load infrun state for the new thread. */
700 load_infrun_state (inferior_pid
, &prev_pc
,
701 &prev_func_start
, &prev_func_name
,
702 &trap_expected
, &step_resume_breakpoint
,
703 &through_sigtramp_breakpoint
,
704 &step_range_start
, &step_range_end
,
705 &step_frame_address
, &handling_longjmp
,
707 printf_filtered ("[Switching to %s]\n", target_pid_to_str (pid
));
709 flush_cached_frames ();
712 #ifdef NO_SINGLE_STEP
714 single_step (0); /* This actually cleans up the ss */
715 #endif /* NO_SINGLE_STEP */
717 /* If PC is pointing at a nullified instruction, then step beyond
718 it so that the user won't be confused when GDB appears to be ready
721 if (INSTRUCTION_NULLIFIED
)
723 struct target_waitstatus tmpstatus
;
725 registers_changed ();
726 target_resume (pid
, 1, TARGET_SIGNAL_0
);
728 /* We may have received a signal that we want to pass to
729 the inferior; therefore, we must not clobber the waitstatus
730 in W. So we call wait ourselves, then continue the loop
731 at the "have_waited" label. */
732 if (target_wait_hook
)
733 target_wait_hook (pid
, &tmpstatus
);
735 target_wait (pid
, &tmpstatus
);
741 #ifdef HAVE_STEPPABLE_WATCHPOINT
742 /* It may not be necessary to disable the watchpoint to stop over
743 it. For example, the PA can (with some kernel cooperation)
744 single step over a watchpoint without disabling the watchpoint. */
745 if (STOPPED_BY_WATCHPOINT (w
))
752 #ifdef HAVE_NONSTEPPABLE_WATCHPOINT
753 /* It is far more common to need to disable a watchpoint
754 to step the inferior over it. FIXME. What else might
755 a debug register or page protection watchpoint scheme need
757 if (STOPPED_BY_WATCHPOINT (w
))
759 /* At this point, we are stopped at an instruction which has attempted to write
760 to a piece of memory under control of a watchpoint. The instruction hasn't
761 actually executed yet. If we were to evaluate the watchpoint expression
762 now, we would get the old value, and therefore no change would seem to have
765 In order to make watchpoints work `right', we really need to complete the
766 memory write, and then evaluate the watchpoint expression. The following
767 code does that by removing the watchpoint (actually, all watchpoints and
768 breakpoints), single-stepping the target, re-inserting watchpoints, and then
769 falling through to let normal single-step processing handle proceed. Since
770 this includes evaluating watchpoints, things will come to a stop in the
773 write_pc (stop_pc
- DECR_PC_AFTER_BREAK
);
775 remove_breakpoints ();
776 target_resume (pid
, 1, TARGET_SIGNAL_0
); /* Single step */
778 if (target_wait_hook
)
779 target_wait_hook (pid
, &w
);
781 target_wait (pid
, &w
);
782 insert_breakpoints ();
783 /* FIXME-maybe: is this cleaner than setting a flag? Does it
784 handle things like signals arriving and other things happening
785 in combination correctly? */
790 #ifdef HAVE_CONTINUABLE_WATCHPOINT
791 /* It may be possible to simply continue after a watchpoint. */
792 STOPPED_BY_WATCHPOINT (w
);
797 /* Don't care about return value; stop_func_start and stop_func_name
798 will both be 0 if it doesn't work. */
799 find_pc_partial_function (stop_pc
, &stop_func_name
, &stop_func_start
,
801 stop_func_start
+= FUNCTION_START_OFFSET
;
803 bpstat_clear (&stop_bpstat
);
805 stop_stack_dummy
= 0;
806 stop_print_frame
= 1;
808 stopped_by_random_signal
= 0;
809 breakpoints_failed
= 0;
811 /* Look at the cause of the stop, and decide what to do.
812 The alternatives are:
813 1) break; to really stop and return to the debugger,
814 2) drop through to start up again
815 (set another_trap to 1 to single step once)
816 3) set random_signal to 1, and the decision between 1 and 2
817 will be made according to the signal handling tables. */
819 /* First, distinguish signals caused by the debugger from signals
820 that have to do with the program's own actions.
821 Note that breakpoint insns may cause SIGTRAP or SIGILL
822 or SIGEMT, depending on the operating system version.
823 Here we detect when a SIGILL or SIGEMT is really a breakpoint
824 and change it to SIGTRAP. */
826 if (stop_signal
== TARGET_SIGNAL_TRAP
827 || (breakpoints_inserted
&&
828 (stop_signal
== TARGET_SIGNAL_ILL
829 || stop_signal
== TARGET_SIGNAL_EMT
831 || stop_soon_quietly
)
833 if (stop_signal
== TARGET_SIGNAL_TRAP
&& stop_after_trap
)
835 stop_print_frame
= 0;
838 if (stop_soon_quietly
)
841 /* Don't even think about breakpoints
842 if just proceeded over a breakpoint.
844 However, if we are trying to proceed over a breakpoint
845 and end up in sigtramp, then through_sigtramp_breakpoint
846 will be set and we should check whether we've hit the
848 if (stop_signal
== TARGET_SIGNAL_TRAP
&& trap_expected
849 && through_sigtramp_breakpoint
== NULL
)
850 bpstat_clear (&stop_bpstat
);
853 /* See if there is a breakpoint at the current PC. */
854 stop_bpstat
= bpstat_stop_status
856 #if DECR_PC_AFTER_BREAK
857 /* Notice the case of stepping through a jump
858 that lands just after a breakpoint.
859 Don't confuse that with hitting the breakpoint.
860 What we check for is that 1) stepping is going on
861 and 2) the pc before the last insn does not match
862 the address of the breakpoint before the current pc. */
863 (prev_pc
!= stop_pc
- DECR_PC_AFTER_BREAK
864 && CURRENTLY_STEPPING ())
865 #else /* DECR_PC_AFTER_BREAK zero */
867 #endif /* DECR_PC_AFTER_BREAK zero */
869 /* Following in case break condition called a
871 stop_print_frame
= 1;
874 if (stop_signal
== TARGET_SIGNAL_TRAP
)
876 = !(bpstat_explains_signal (stop_bpstat
)
878 #ifndef CALL_DUMMY_BREAKPOINT_OFFSET
879 || PC_IN_CALL_DUMMY (stop_pc
, read_sp (),
880 FRAME_FP (get_current_frame ()))
881 #endif /* No CALL_DUMMY_BREAKPOINT_OFFSET. */
882 || (step_range_end
&& step_resume_breakpoint
== NULL
));
886 = !(bpstat_explains_signal (stop_bpstat
)
887 /* End of a stack dummy. Some systems (e.g. Sony
888 news) give another signal besides SIGTRAP,
889 so check here as well as above. */
890 #ifndef CALL_DUMMY_BREAKPOINT_OFFSET
891 || PC_IN_CALL_DUMMY (stop_pc
, read_sp (),
892 FRAME_FP (get_current_frame ()))
893 #endif /* No CALL_DUMMY_BREAKPOINT_OFFSET. */
896 stop_signal
= TARGET_SIGNAL_TRAP
;
902 /* For the program's own signals, act according to
903 the signal handling tables. */
907 /* Signal not for debugging purposes. */
910 stopped_by_random_signal
= 1;
912 if (signal_print
[stop_signal
])
915 target_terminal_ours_for_output ();
917 printf_filtered ("\nProgram received signal ");
918 annotate_signal_name ();
919 printf_filtered ("%s", target_signal_to_name (stop_signal
));
920 annotate_signal_name_end ();
921 printf_filtered (", ");
922 annotate_signal_string ();
923 printf_filtered ("%s", target_signal_to_string (stop_signal
));
924 annotate_signal_string_end ();
925 printf_filtered (".\n");
926 gdb_flush (gdb_stdout
);
928 if (signal_stop
[stop_signal
])
930 /* If not going to stop, give terminal back
931 if we took it away. */
933 target_terminal_inferior ();
935 /* Clear the signal if it should not be passed. */
936 if (signal_program
[stop_signal
] == 0)
937 stop_signal
= TARGET_SIGNAL_0
;
939 /* I'm not sure whether this needs to be check_sigtramp2 or
940 whether it could/should be keep_going. */
941 goto check_sigtramp2
;
944 /* Handle cases caused by hitting a breakpoint. */
946 CORE_ADDR jmp_buf_pc
;
947 struct bpstat_what what
;
949 what
= bpstat_what (stop_bpstat
);
953 stop_stack_dummy
= 1;
955 trap_expected_after_continue
= 1;
959 switch (what
.main_action
)
961 case BPSTAT_WHAT_SET_LONGJMP_RESUME
:
962 /* If we hit the breakpoint at longjmp, disable it for the
963 duration of this command. Then, install a temporary
964 breakpoint at the target of the jmp_buf. */
965 disable_longjmp_breakpoint();
966 remove_breakpoints ();
967 breakpoints_inserted
= 0;
968 if (!GET_LONGJMP_TARGET(&jmp_buf_pc
)) goto keep_going
;
970 /* Need to blow away step-resume breakpoint, as it
971 interferes with us */
972 if (step_resume_breakpoint
!= NULL
)
974 delete_breakpoint (step_resume_breakpoint
);
975 step_resume_breakpoint
= NULL
;
977 /* Not sure whether we need to blow this away too, but probably
978 it is like the step-resume breakpoint. */
979 if (through_sigtramp_breakpoint
!= NULL
)
981 delete_breakpoint (through_sigtramp_breakpoint
);
982 through_sigtramp_breakpoint
= NULL
;
986 /* FIXME - Need to implement nested temporary breakpoints */
987 if (step_over_calls
> 0)
988 set_longjmp_resume_breakpoint(jmp_buf_pc
,
989 get_current_frame());
992 set_longjmp_resume_breakpoint(jmp_buf_pc
, NULL
);
993 handling_longjmp
= 1; /* FIXME */
996 case BPSTAT_WHAT_CLEAR_LONGJMP_RESUME
:
997 case BPSTAT_WHAT_CLEAR_LONGJMP_RESUME_SINGLE
:
998 remove_breakpoints ();
999 breakpoints_inserted
= 0;
1001 /* FIXME - Need to implement nested temporary breakpoints */
1003 && (FRAME_FP (get_current_frame ())
1004 INNER_THAN step_frame_address
))
1010 disable_longjmp_breakpoint();
1011 handling_longjmp
= 0; /* FIXME */
1012 if (what
.main_action
== BPSTAT_WHAT_CLEAR_LONGJMP_RESUME
)
1014 /* else fallthrough */
1016 case BPSTAT_WHAT_SINGLE
:
1017 if (breakpoints_inserted
)
1018 remove_breakpoints ();
1019 breakpoints_inserted
= 0;
1021 /* Still need to check other stuff, at least the case
1022 where we are stepping and step out of the right range. */
1025 case BPSTAT_WHAT_STOP_NOISY
:
1026 stop_print_frame
= 1;
1028 /* We are about to nuke the step_resume_breakpoint and
1029 through_sigtramp_breakpoint via the cleanup chain, so
1030 no need to worry about it here. */
1034 case BPSTAT_WHAT_STOP_SILENT
:
1035 stop_print_frame
= 0;
1037 /* We are about to nuke the step_resume_breakpoint and
1038 through_sigtramp_breakpoint via the cleanup chain, so
1039 no need to worry about it here. */
1043 case BPSTAT_WHAT_STEP_RESUME
:
1044 delete_breakpoint (step_resume_breakpoint
);
1045 step_resume_breakpoint
= NULL
;
1048 case BPSTAT_WHAT_THROUGH_SIGTRAMP
:
1049 if (through_sigtramp_breakpoint
)
1050 delete_breakpoint (through_sigtramp_breakpoint
);
1051 through_sigtramp_breakpoint
= NULL
;
1053 /* If were waiting for a trap, hitting the step_resume_break
1054 doesn't count as getting it. */
1060 case BPSTAT_WHAT_CHECK_SHLIBS
:
1062 extern int auto_solib_add
;
1064 /* Remove breakpoints, we eventually want to step over the
1065 shlib event breakpoint, and SOLIB_ADD might adjust
1066 breakpoint addresses via breakpoint_re_set. */
1067 if (breakpoints_inserted
)
1068 remove_breakpoints ();
1069 breakpoints_inserted
= 0;
1071 /* Check for any newly added shared libraries if we're
1072 supposed to be adding them automatically. */
1075 /* Switch terminal for any messages produced by
1076 breakpoint_re_set. */
1077 target_terminal_ours_for_output ();
1078 SOLIB_ADD (NULL
, 0, NULL
);
1079 re_enable_breakpoints_in_shlibs ();
1080 target_terminal_inferior ();
1083 /* If requested, stop when the dynamic linker notifies
1084 gdb of events. This allows the user to get control
1085 and place breakpoints in initializer routines for
1086 dynamically loaded objects (among other things). */
1087 if (stop_on_solib_events
)
1089 stop_print_frame
= 0;
1094 /* We want to step over this breakpoint, then keep going. */
1101 case BPSTAT_WHAT_LAST
:
1102 /* Not a real code, but listed here to shut up gcc -Wall. */
1104 case BPSTAT_WHAT_KEEP_CHECKING
:
1109 /* We come here if we hit a breakpoint but should not
1110 stop for it. Possibly we also were stepping
1111 and should stop for that. So fall through and
1112 test for stepping. But, if not stepping,
1115 #ifndef CALL_DUMMY_BREAKPOINT_OFFSET
1116 /* This is the old way of detecting the end of the stack dummy.
1117 An architecture which defines CALL_DUMMY_BREAKPOINT_OFFSET gets
1118 handled above. As soon as we can test it on all of them, all
1119 architectures should define it. */
1121 /* If this is the breakpoint at the end of a stack dummy,
1122 just stop silently, unless the user was doing an si/ni, in which
1123 case she'd better know what she's doing. */
1125 if (PC_IN_CALL_DUMMY (stop_pc
, read_sp (), FRAME_FP (get_current_frame ()))
1128 stop_print_frame
= 0;
1129 stop_stack_dummy
= 1;
1131 trap_expected_after_continue
= 1;
1135 #endif /* No CALL_DUMMY_BREAKPOINT_OFFSET. */
1137 if (step_resume_breakpoint
)
1138 /* Having a step-resume breakpoint overrides anything
1139 else having to do with stepping commands until
1140 that breakpoint is reached. */
1141 /* I'm not sure whether this needs to be check_sigtramp2 or
1142 whether it could/should be keep_going. */
1143 goto check_sigtramp2
;
1145 if (step_range_end
== 0)
1146 /* Likewise if we aren't even stepping. */
1147 /* I'm not sure whether this needs to be check_sigtramp2 or
1148 whether it could/should be keep_going. */
1149 goto check_sigtramp2
;
1151 /* If stepping through a line, keep going if still within it. */
1152 if (stop_pc
>= step_range_start
1153 && stop_pc
< step_range_end
1155 /* I haven't a clue what might trigger this clause, and it seems wrong anyway,
1156 so I've disabled it until someone complains. -Stu 10/24/95 */
1158 /* The step range might include the start of the
1159 function, so if we are at the start of the
1160 step range and either the stack or frame pointers
1161 just changed, we've stepped outside */
1162 && !(stop_pc
== step_range_start
1163 && FRAME_FP (get_current_frame ())
1164 && (read_sp () INNER_THAN step_sp
1165 || FRAME_FP (get_current_frame ()) != step_frame_address
))
1169 /* We might be doing a BPSTAT_WHAT_SINGLE and getting a signal.
1170 So definately need to check for sigtramp here. */
1171 goto check_sigtramp2
;
1174 /* We stepped out of the stepping range. */
1176 /* We can't update step_sp every time through the loop, because
1177 reading the stack pointer would slow down stepping too much.
1178 But we can update it every time we leave the step range. */
1181 /* Did we just take a signal? */
1182 if (IN_SIGTRAMP (stop_pc
, stop_func_name
)
1183 && !IN_SIGTRAMP (prev_pc
, prev_func_name
))
1185 /* We've just taken a signal; go until we are back to
1186 the point where we took it and one more. */
1188 /* This code is needed at least in the following case:
1189 The user types "next" and then a signal arrives (before
1190 the "next" is done). */
1192 /* Note that if we are stopped at a breakpoint, then we need
1193 the step_resume breakpoint to override any breakpoints at
1194 the same location, so that we will still step over the
1195 breakpoint even though the signal happened. */
1198 struct symtab_and_line sr_sal
;
1200 sr_sal
.pc
= prev_pc
;
1201 sr_sal
.symtab
= NULL
;
1203 /* We could probably be setting the frame to
1204 step_frame_address; I don't think anyone thought to try it. */
1205 step_resume_breakpoint
=
1206 set_momentary_breakpoint (sr_sal
, NULL
, bp_step_resume
);
1207 if (breakpoints_inserted
)
1208 insert_breakpoints ();
1211 /* If this is stepi or nexti, make sure that the stepping range
1212 gets us past that instruction. */
1213 if (step_range_end
== 1)
1214 /* FIXME: Does this run afoul of the code below which, if
1215 we step into the middle of a line, resets the stepping
1217 step_range_end
= (step_range_start
= prev_pc
) + 1;
1219 remove_breakpoints_on_following_step
= 1;
1224 /* I disabled this test because it was too complicated and slow. The
1225 SKIP_PROLOGUE was especially slow, because it caused unnecessary
1226 prologue examination on various architectures. The code in the #else
1227 clause has been tested on the Sparc, Mips, PA, and Power
1228 architectures, so it's pretty likely to be correct. -Stu 10/24/95 */
1230 /* See if we left the step range due to a subroutine call that
1231 we should proceed to the end of. */
1233 if (stop_func_start
)
1237 /* Do this after the IN_SIGTRAMP check; it might give
1239 prologue_pc
= stop_func_start
;
1241 /* Don't skip the prologue if this is assembly source */
1242 s
= find_pc_symtab (stop_pc
);
1243 if (s
&& s
->language
!= language_asm
)
1244 SKIP_PROLOGUE (prologue_pc
);
1247 if ((/* Might be a non-recursive call. If the symbols are missing
1248 enough that stop_func_start == prev_func_start even though
1249 they are really two functions, we will treat some calls as
1251 stop_func_start
!= prev_func_start
1253 /* Might be a recursive call if either we have a prologue
1254 or the call instruction itself saves the PC on the stack. */
1255 || prologue_pc
!= stop_func_start
1256 || read_sp () != step_sp
)
1257 && (/* PC is completely out of bounds of any known objfiles. Treat
1258 like a subroutine call. */
1261 /* If we do a call, we will be at the start of a function... */
1262 || stop_pc
== stop_func_start
1264 /* ...except on the Alpha with -O (and also Irix 5 and
1265 perhaps others), in which we might call the address
1266 after the load of gp. Since prologues don't contain
1267 calls, we can't return to within one, and we don't
1268 jump back into them, so this check is OK. */
1270 || stop_pc
< prologue_pc
1272 /* ...and if it is a leaf function, the prologue might
1273 consist of gp loading only, so the call transfers to
1274 the first instruction after the prologue. */
1275 || (stop_pc
== prologue_pc
1277 /* Distinguish this from the case where we jump back
1278 to the first instruction after the prologue,
1279 within a function. */
1280 && stop_func_start
!= prev_func_start
)
1282 /* If we end up in certain places, it means we did a subroutine
1283 call. I'm not completely sure this is necessary now that we
1284 have the above checks with stop_func_start (and now that
1285 find_pc_partial_function is pickier). */
1286 || IN_SOLIB_CALL_TRAMPOLINE (stop_pc
, stop_func_name
)
1288 /* If none of the above apply, it is a jump within a function,
1289 or a return from a subroutine. The other case is longjmp,
1290 which can no longer happen here as long as the
1291 handling_longjmp stuff is working. */
1294 /* This test is a much more streamlined, (but hopefully correct)
1295 replacement for the code above. It's been tested on the Sparc,
1296 Mips, PA, and Power architectures with good results. */
1298 if (stop_pc
== stop_func_start
/* Quick test */
1299 || in_prologue (stop_pc
, stop_func_start
)
1300 || IN_SOLIB_CALL_TRAMPOLINE (stop_pc
, stop_func_name
)
1301 || stop_func_start
== 0)
1305 /* It's a subroutine call. */
1307 if (step_over_calls
== 0)
1309 /* I presume that step_over_calls is only 0 when we're
1310 supposed to be stepping at the assembly language level
1311 ("stepi"). Just stop. */
1316 if (step_over_calls
> 0)
1317 /* We're doing a "next". */
1318 goto step_over_function
;
1320 /* If we are in a function call trampoline (a stub between
1321 the calling routine and the real function), locate the real
1322 function. That's what tells us (a) whether we want to step
1323 into it at all, and (b) what prologue we want to run to
1324 the end of, if we do step into it. */
1325 tmp
= SKIP_TRAMPOLINE_CODE (stop_pc
);
1327 stop_func_start
= tmp
;
1330 tmp
= DYNAMIC_TRAMPOLINE_NEXTPC (stop_pc
);
1333 struct symtab_and_line xxx
;
1338 step_resume_breakpoint
=
1339 set_momentary_breakpoint (xxx
, NULL
, bp_step_resume
);
1340 insert_breakpoints ();
1345 /* If we have line number information for the function we
1346 are thinking of stepping into, step into it.
1348 If there are several symtabs at that PC (e.g. with include
1349 files), just want to know whether *any* of them have line
1350 numbers. find_pc_line handles this. */
1352 struct symtab_and_line tmp_sal
;
1354 tmp_sal
= find_pc_line (stop_func_start
, 0);
1355 if (tmp_sal
.line
!= 0)
1356 goto step_into_function
;
1360 /* A subroutine call has happened. */
1362 /* Set a special breakpoint after the return */
1363 struct symtab_and_line sr_sal
;
1366 (SAVED_PC_AFTER_CALL (get_current_frame ()));
1367 sr_sal
.symtab
= NULL
;
1369 step_resume_breakpoint
=
1370 set_momentary_breakpoint (sr_sal
, get_current_frame (),
1372 step_resume_breakpoint
->frame
= step_frame_address
;
1373 if (breakpoints_inserted
)
1374 insert_breakpoints ();
1379 /* Subroutine call with source code we should not step over.
1380 Do step to the first line of code in it. */
1384 s
= find_pc_symtab (stop_pc
);
1385 if (s
&& s
->language
!= language_asm
)
1386 SKIP_PROLOGUE (stop_func_start
);
1388 sal
= find_pc_line (stop_func_start
, 0);
1389 /* Use the step_resume_break to step until
1390 the end of the prologue, even if that involves jumps
1391 (as it seems to on the vax under 4.2). */
1392 /* If the prologue ends in the middle of a source line,
1393 continue to the end of that source line (if it is still
1394 within the function). Otherwise, just go to end of prologue. */
1395 #ifdef PROLOGUE_FIRSTLINE_OVERLAP
1396 /* no, don't either. It skips any code that's
1397 legitimately on the first line. */
1399 if (sal
.end
&& sal
.pc
!= stop_func_start
&& sal
.end
< stop_func_end
)
1400 stop_func_start
= sal
.end
;
1403 if (stop_func_start
== stop_pc
)
1405 /* We are already there: stop now. */
1410 /* Put the step-breakpoint there and go until there. */
1412 struct symtab_and_line sr_sal
;
1414 sr_sal
.pc
= stop_func_start
;
1415 sr_sal
.symtab
= NULL
;
1417 /* Do not specify what the fp should be when we stop
1418 since on some machines the prologue
1419 is where the new fp value is established. */
1420 step_resume_breakpoint
=
1421 set_momentary_breakpoint (sr_sal
, NULL
, bp_step_resume
);
1422 if (breakpoints_inserted
)
1423 insert_breakpoints ();
1425 /* And make sure stepping stops right away then. */
1426 step_range_end
= step_range_start
;
1431 /* We've wandered out of the step range. */
1433 sal
= find_pc_line(stop_pc
, 0);
1435 if (step_range_end
== 1)
1437 /* It is stepi or nexti. We always want to stop stepping after
1443 /* If we're in the return path from a shared library trampoline,
1444 we want to proceed through the trampoline when stepping. */
1445 if (IN_SOLIB_RETURN_TRAMPOLINE(stop_pc
, stop_func_name
))
1449 /* Determine where this trampoline returns. */
1450 tmp
= SKIP_TRAMPOLINE_CODE (stop_pc
);
1452 /* Only proceed through if we know where it's going. */
1455 /* And put the step-breakpoint there and go until there. */
1456 struct symtab_and_line sr_sal
;
1459 sr_sal
.symtab
= NULL
;
1461 /* Do not specify what the fp should be when we stop
1462 since on some machines the prologue
1463 is where the new fp value is established. */
1464 step_resume_breakpoint
=
1465 set_momentary_breakpoint (sr_sal
, NULL
, bp_step_resume
);
1466 if (breakpoints_inserted
)
1467 insert_breakpoints ();
1469 /* Restart without fiddling with the step ranges or
1477 /* We have no line number information. That means to stop
1478 stepping (does this always happen right after one instruction,
1479 when we do "s" in a function with no line numbers,
1480 or can this happen as a result of a return or longjmp?). */
1485 if (stop_pc
== sal
.pc
1486 && (current_line
!= sal
.line
|| current_symtab
!= sal
.symtab
))
1488 /* We are at the start of a different line. So stop. Note that
1489 we don't stop if we step into the middle of a different line.
1490 That is said to make things like for (;;) statements work
1496 /* We aren't done stepping.
1498 Optimize by setting the stepping range to the line.
1499 (We might not be in the original line, but if we entered a
1500 new line in mid-statement, we continue stepping. This makes
1501 things like for(;;) statements work better.) */
1503 if (stop_func_end
&& sal
.end
>= stop_func_end
)
1505 /* If this is the last line of the function, don't keep stepping
1506 (it would probably step us out of the function).
1507 This is particularly necessary for a one-line function,
1508 in which after skipping the prologue we better stop even though
1509 we will be in mid-line. */
1513 step_range_start
= sal
.pc
;
1514 step_range_end
= sal
.end
;
1519 && IN_SIGTRAMP (stop_pc
, stop_func_name
)
1520 && !IN_SIGTRAMP (prev_pc
, prev_func_name
))
1522 /* What has happened here is that we have just stepped the inferior
1523 with a signal (because it is a signal which shouldn't make
1524 us stop), thus stepping into sigtramp.
1526 So we need to set a step_resume_break_address breakpoint
1527 and continue until we hit it, and then step. FIXME: This should
1528 be more enduring than a step_resume breakpoint; we should know
1529 that we will later need to keep going rather than re-hitting
1530 the breakpoint here (see testsuite/gdb.t06/signals.exp where
1531 it says "exceedingly difficult"). */
1532 struct symtab_and_line sr_sal
;
1534 sr_sal
.pc
= prev_pc
;
1535 sr_sal
.symtab
= NULL
;
1537 /* We perhaps could set the frame if we kept track of what
1538 the frame corresponding to prev_pc was. But we don't,
1540 through_sigtramp_breakpoint
=
1541 set_momentary_breakpoint (sr_sal
, NULL
, bp_through_sigtramp
);
1542 if (breakpoints_inserted
)
1543 insert_breakpoints ();
1545 remove_breakpoints_on_following_step
= 1;
1550 /* Come to this label when you need to resume the inferior.
1551 It's really much cleaner to do a goto than a maze of if-else
1554 /* Save the pc before execution, to compare with pc after stop. */
1555 prev_pc
= read_pc (); /* Might have been DECR_AFTER_BREAK */
1556 prev_func_start
= stop_func_start
; /* Ok, since if DECR_PC_AFTER
1557 BREAK is defined, the
1558 original pc would not have
1559 been at the start of a
1561 prev_func_name
= stop_func_name
;
1564 step_sp
= read_sp ();
1567 /* If we did not do break;, it means we should keep
1568 running the inferior and not return to debugger. */
1570 if (trap_expected
&& stop_signal
!= TARGET_SIGNAL_TRAP
)
1572 /* We took a signal (which we are supposed to pass through to
1573 the inferior, else we'd have done a break above) and we
1574 haven't yet gotten our trap. Simply continue. */
1575 resume (CURRENTLY_STEPPING (), stop_signal
);
1579 /* Either the trap was not expected, but we are continuing
1580 anyway (the user asked that this signal be passed to the
1583 The signal was SIGTRAP, e.g. it was our signal, but we
1584 decided we should resume from it.
1586 We're going to run this baby now!
1588 Insert breakpoints now, unless we are trying
1589 to one-proceed past a breakpoint. */
1590 /* If we've just finished a special step resume and we don't
1591 want to hit a breakpoint, pull em out. */
1592 if (step_resume_breakpoint
== NULL
1593 && through_sigtramp_breakpoint
== NULL
1594 && remove_breakpoints_on_following_step
)
1596 remove_breakpoints_on_following_step
= 0;
1597 remove_breakpoints ();
1598 breakpoints_inserted
= 0;
1600 else if (!breakpoints_inserted
&&
1601 (through_sigtramp_breakpoint
!= NULL
|| !another_trap
))
1603 breakpoints_failed
= insert_breakpoints ();
1604 if (breakpoints_failed
)
1606 breakpoints_inserted
= 1;
1609 trap_expected
= another_trap
;
1611 if (stop_signal
== TARGET_SIGNAL_TRAP
)
1612 stop_signal
= TARGET_SIGNAL_0
;
1614 #ifdef SHIFT_INST_REGS
1615 /* I'm not sure when this following segment applies. I do know, now,
1616 that we shouldn't rewrite the regs when we were stopped by a
1617 random signal from the inferior process. */
1618 /* FIXME: Shouldn't this be based on the valid bit of the SXIP?
1619 (this is only used on the 88k). */
1621 if (!bpstat_explains_signal (stop_bpstat
)
1622 && (stop_signal
!= TARGET_SIGNAL_CHLD
)
1623 && !stopped_by_random_signal
)
1625 #endif /* SHIFT_INST_REGS */
1627 resume (CURRENTLY_STEPPING (), stop_signal
);
1632 if (target_has_execution
)
1634 /* Assuming the inferior still exists, set these up for next
1635 time, just like we did above if we didn't break out of the
1637 prev_pc
= read_pc ();
1638 prev_func_start
= stop_func_start
;
1639 prev_func_name
= stop_func_name
;
1641 do_cleanups (old_cleanups
);
1644 /* Here to return control to GDB when the inferior stops for real.
1645 Print appropriate messages, remove breakpoints, give terminal our modes.
1647 STOP_PRINT_FRAME nonzero means print the executing frame
1648 (pc, function, args, file, line number and line text).
1649 BREAKPOINTS_FAILED nonzero means stop was due to error
1650 attempting to insert breakpoints. */
1655 /* Make sure that the current_frame's pc is correct. This
1656 is a correction for setting up the frame info before doing
1657 DECR_PC_AFTER_BREAK */
1658 if (target_has_execution
&& get_current_frame())
1659 (get_current_frame ())->pc
= read_pc ();
1661 if (breakpoints_failed
)
1663 target_terminal_ours_for_output ();
1664 print_sys_errmsg ("ptrace", breakpoints_failed
);
1665 printf_filtered ("Stopped; cannot insert breakpoints.\n\
1666 The same program may be running in another process.\n");
1669 if (target_has_execution
&& breakpoints_inserted
)
1670 if (remove_breakpoints ())
1672 target_terminal_ours_for_output ();
1673 printf_filtered ("Cannot remove breakpoints because program is no longer writable.\n\
1674 It might be running in another process.\n\
1675 Further execution is probably impossible.\n");
1678 breakpoints_inserted
= 0;
1680 /* Delete the breakpoint we stopped at, if it wants to be deleted.
1681 Delete any breakpoint that is to be deleted at the next stop. */
1683 breakpoint_auto_delete (stop_bpstat
);
1685 /* If an auto-display called a function and that got a signal,
1686 delete that auto-display to avoid an infinite recursion. */
1688 if (stopped_by_random_signal
)
1689 disable_current_display ();
1691 if (step_multi
&& stop_step
)
1694 target_terminal_ours ();
1697 && stop_bpstat
->breakpoint_at
1698 && stop_bpstat
->breakpoint_at
->type
== bp_shlib_event
)
1699 printf_filtered ("Stopped due to shared library event\n");
1701 /* Look up the hook_stop and run it if it exists. */
1703 if (stop_command
->hook
)
1705 catch_errors (hook_stop_stub
, (char *)stop_command
->hook
,
1706 "Error while running hook_stop:\n", RETURN_MASK_ALL
);
1709 if (!target_has_stack
)
1712 /* Select innermost stack frame except on return from a stack dummy routine,
1713 or if the program has exited. Print it without a level number if
1714 we have changed functions or hit a breakpoint. Print source line
1716 if (!stop_stack_dummy
)
1718 select_frame (get_current_frame (), 0);
1720 if (stop_print_frame
)
1724 source_only
= bpstat_print (stop_bpstat
);
1725 source_only
= source_only
||
1727 && step_frame_address
== FRAME_FP (get_current_frame ())
1728 && step_start_function
== find_pc_function (stop_pc
));
1730 print_stack_frame (selected_frame
, -1, source_only
? -1: 1);
1732 /* Display the auto-display expressions. */
1737 /* Save the function value return registers, if we care.
1738 We might be about to restore their previous contents. */
1739 if (proceed_to_finish
)
1740 read_register_bytes (0, stop_registers
, REGISTER_BYTES
);
1742 if (stop_stack_dummy
)
1744 /* Pop the empty frame that contains the stack dummy.
1745 POP_FRAME ends with a setting of the current frame, so we
1746 can use that next. */
1748 /* Set stop_pc to what it was before we called the function. Can't rely
1749 on restore_inferior_status because that only gets called if we don't
1750 stop in the called function. */
1751 stop_pc
= read_pc();
1752 select_frame (get_current_frame (), 0);
1755 annotate_stopped ();
1759 hook_stop_stub (cmd
)
1762 execute_user_command ((struct cmd_list_element
*)cmd
, 0);
1766 int signal_stop_state (signo
)
1769 return signal_stop
[signo
];
1772 int signal_print_state (signo
)
1775 return signal_print
[signo
];
1778 int signal_pass_state (signo
)
1781 return signal_program
[signo
];
1788 Signal Stop\tPrint\tPass to program\tDescription\n");
1792 sig_print_info (oursig
)
1793 enum target_signal oursig
;
1795 char *name
= target_signal_to_name (oursig
);
1796 printf_filtered ("%s", name
);
1797 printf_filtered ("%*.*s ", 13 - strlen (name
), 13 - strlen (name
),
1799 printf_filtered ("%s\t", signal_stop
[oursig
] ? "Yes" : "No");
1800 printf_filtered ("%s\t", signal_print
[oursig
] ? "Yes" : "No");
1801 printf_filtered ("%s\t\t", signal_program
[oursig
] ? "Yes" : "No");
1802 printf_filtered ("%s\n", target_signal_to_string (oursig
));
1805 /* Specify how various signals in the inferior should be handled. */
1808 handle_command (args
, from_tty
)
1813 int digits
, wordlen
;
1814 int sigfirst
, signum
, siglast
;
1815 enum target_signal oursig
;
1818 unsigned char *sigs
;
1819 struct cleanup
*old_chain
;
1823 error_no_arg ("signal to handle");
1826 /* Allocate and zero an array of flags for which signals to handle. */
1828 nsigs
= (int)TARGET_SIGNAL_LAST
;
1829 sigs
= (unsigned char *) alloca (nsigs
);
1830 memset (sigs
, 0, nsigs
);
1832 /* Break the command line up into args. */
1834 argv
= buildargv (args
);
1839 old_chain
= make_cleanup (freeargv
, (char *) argv
);
1841 /* Walk through the args, looking for signal oursigs, signal names, and
1842 actions. Signal numbers and signal names may be interspersed with
1843 actions, with the actions being performed for all signals cumulatively
1844 specified. Signal ranges can be specified as <LOW>-<HIGH>. */
1846 while (*argv
!= NULL
)
1848 wordlen
= strlen (*argv
);
1849 for (digits
= 0; isdigit ((*argv
)[digits
]); digits
++) {;}
1851 sigfirst
= siglast
= -1;
1853 if (wordlen
>= 1 && !strncmp (*argv
, "all", wordlen
))
1855 /* Apply action to all signals except those used by the
1856 debugger. Silently skip those. */
1859 siglast
= nsigs
- 1;
1861 else if (wordlen
>= 1 && !strncmp (*argv
, "stop", wordlen
))
1863 SET_SIGS (nsigs
, sigs
, signal_stop
);
1864 SET_SIGS (nsigs
, sigs
, signal_print
);
1866 else if (wordlen
>= 1 && !strncmp (*argv
, "ignore", wordlen
))
1868 UNSET_SIGS (nsigs
, sigs
, signal_program
);
1870 else if (wordlen
>= 2 && !strncmp (*argv
, "print", wordlen
))
1872 SET_SIGS (nsigs
, sigs
, signal_print
);
1874 else if (wordlen
>= 2 && !strncmp (*argv
, "pass", wordlen
))
1876 SET_SIGS (nsigs
, sigs
, signal_program
);
1878 else if (wordlen
>= 3 && !strncmp (*argv
, "nostop", wordlen
))
1880 UNSET_SIGS (nsigs
, sigs
, signal_stop
);
1882 else if (wordlen
>= 3 && !strncmp (*argv
, "noignore", wordlen
))
1884 SET_SIGS (nsigs
, sigs
, signal_program
);
1886 else if (wordlen
>= 4 && !strncmp (*argv
, "noprint", wordlen
))
1888 UNSET_SIGS (nsigs
, sigs
, signal_print
);
1889 UNSET_SIGS (nsigs
, sigs
, signal_stop
);
1891 else if (wordlen
>= 4 && !strncmp (*argv
, "nopass", wordlen
))
1893 UNSET_SIGS (nsigs
, sigs
, signal_program
);
1895 else if (digits
> 0)
1897 /* It is numeric. The numeric signal refers to our own internal
1898 signal numbering from target.h, not to host/target signal number.
1899 This is a feature; users really should be using symbolic names
1900 anyway, and the common ones like SIGHUP, SIGINT, SIGALRM, etc.
1901 will work right anyway. */
1903 sigfirst
= siglast
= (int) target_signal_from_command (atoi (*argv
));
1904 if ((*argv
)[digits
] == '-')
1907 (int) target_signal_from_command (atoi ((*argv
) + digits
+ 1));
1909 if (sigfirst
> siglast
)
1911 /* Bet he didn't figure we'd think of this case... */
1919 oursig
= target_signal_from_name (*argv
);
1920 if (oursig
!= TARGET_SIGNAL_UNKNOWN
)
1922 sigfirst
= siglast
= (int)oursig
;
1926 /* Not a number and not a recognized flag word => complain. */
1927 error ("Unrecognized or ambiguous flag word: \"%s\".", *argv
);
1931 /* If any signal numbers or symbol names were found, set flags for
1932 which signals to apply actions to. */
1934 for (signum
= sigfirst
; signum
>= 0 && signum
<= siglast
; signum
++)
1936 switch ((enum target_signal
)signum
)
1938 case TARGET_SIGNAL_TRAP
:
1939 case TARGET_SIGNAL_INT
:
1940 if (!allsigs
&& !sigs
[signum
])
1942 if (query ("%s is used by the debugger.\n\
1943 Are you sure you want to change it? ",
1944 target_signal_to_name
1945 ((enum target_signal
)signum
)))
1951 printf_unfiltered ("Not confirmed, unchanged.\n");
1952 gdb_flush (gdb_stdout
);
1956 case TARGET_SIGNAL_0
:
1957 case TARGET_SIGNAL_DEFAULT
:
1958 case TARGET_SIGNAL_UNKNOWN
:
1959 /* Make sure that "all" doesn't print these. */
1970 target_notice_signals(inferior_pid
);
1974 /* Show the results. */
1975 sig_print_header ();
1976 for (signum
= 0; signum
< nsigs
; signum
++)
1980 sig_print_info (signum
);
1985 do_cleanups (old_chain
);
1988 /* Print current contents of the tables set by the handle command.
1989 It is possible we should just be printing signals actually used
1990 by the current target (but for things to work right when switching
1991 targets, all signals should be in the signal tables). */
1994 signals_info (signum_exp
, from_tty
)
1998 enum target_signal oursig
;
1999 sig_print_header ();
2003 /* First see if this is a symbol name. */
2004 oursig
= target_signal_from_name (signum_exp
);
2005 if (oursig
== TARGET_SIGNAL_UNKNOWN
)
2007 /* No, try numeric. */
2009 target_signal_from_command (parse_and_eval_address (signum_exp
));
2011 sig_print_info (oursig
);
2015 printf_filtered ("\n");
2016 /* These ugly casts brought to you by the native VAX compiler. */
2017 for (oursig
= TARGET_SIGNAL_FIRST
;
2018 (int)oursig
< (int)TARGET_SIGNAL_LAST
;
2019 oursig
= (enum target_signal
)((int)oursig
+ 1))
2023 if (oursig
!= TARGET_SIGNAL_UNKNOWN
2024 && oursig
!= TARGET_SIGNAL_DEFAULT
2025 && oursig
!= TARGET_SIGNAL_0
)
2026 sig_print_info (oursig
);
2029 printf_filtered ("\nUse the \"handle\" command to change these tables.\n");
2032 /* Save all of the information associated with the inferior<==>gdb
2033 connection. INF_STATUS is a pointer to a "struct inferior_status"
2034 (defined in inferior.h). */
2037 save_inferior_status (inf_status
, restore_stack_info
)
2038 struct inferior_status
*inf_status
;
2039 int restore_stack_info
;
2041 inf_status
->stop_signal
= stop_signal
;
2042 inf_status
->stop_pc
= stop_pc
;
2043 inf_status
->stop_step
= stop_step
;
2044 inf_status
->stop_stack_dummy
= stop_stack_dummy
;
2045 inf_status
->stopped_by_random_signal
= stopped_by_random_signal
;
2046 inf_status
->trap_expected
= trap_expected
;
2047 inf_status
->step_range_start
= step_range_start
;
2048 inf_status
->step_range_end
= step_range_end
;
2049 inf_status
->step_frame_address
= step_frame_address
;
2050 inf_status
->step_over_calls
= step_over_calls
;
2051 inf_status
->stop_after_trap
= stop_after_trap
;
2052 inf_status
->stop_soon_quietly
= stop_soon_quietly
;
2053 /* Save original bpstat chain here; replace it with copy of chain.
2054 If caller's caller is walking the chain, they'll be happier if we
2055 hand them back the original chain when restore_i_s is called. */
2056 inf_status
->stop_bpstat
= stop_bpstat
;
2057 stop_bpstat
= bpstat_copy (stop_bpstat
);
2058 inf_status
->breakpoint_proceeded
= breakpoint_proceeded
;
2059 inf_status
->restore_stack_info
= restore_stack_info
;
2060 inf_status
->proceed_to_finish
= proceed_to_finish
;
2062 memcpy (inf_status
->stop_registers
, stop_registers
, REGISTER_BYTES
);
2064 read_register_bytes (0, inf_status
->registers
, REGISTER_BYTES
);
2066 record_selected_frame (&(inf_status
->selected_frame_address
),
2067 &(inf_status
->selected_level
));
2071 struct restore_selected_frame_args
{
2072 CORE_ADDR frame_address
;
2076 static int restore_selected_frame
PARAMS ((char *));
2078 /* Restore the selected frame. args is really a struct
2079 restore_selected_frame_args * (declared as char * for catch_errors)
2080 telling us what frame to restore. Returns 1 for success, or 0 for
2081 failure. An error message will have been printed on error. */
2084 restore_selected_frame (args
)
2087 struct restore_selected_frame_args
*fr
=
2088 (struct restore_selected_frame_args
*) args
;
2089 struct frame_info
*frame
;
2090 int level
= fr
->level
;
2092 frame
= find_relative_frame (get_current_frame (), &level
);
2094 /* If inf_status->selected_frame_address is NULL, there was no
2095 previously selected frame. */
2096 if (frame
== NULL
||
2097 FRAME_FP (frame
) != fr
->frame_address
||
2100 warning ("Unable to restore previously selected frame.\n");
2103 select_frame (frame
, fr
->level
);
2108 restore_inferior_status (inf_status
)
2109 struct inferior_status
*inf_status
;
2111 stop_signal
= inf_status
->stop_signal
;
2112 stop_pc
= inf_status
->stop_pc
;
2113 stop_step
= inf_status
->stop_step
;
2114 stop_stack_dummy
= inf_status
->stop_stack_dummy
;
2115 stopped_by_random_signal
= inf_status
->stopped_by_random_signal
;
2116 trap_expected
= inf_status
->trap_expected
;
2117 step_range_start
= inf_status
->step_range_start
;
2118 step_range_end
= inf_status
->step_range_end
;
2119 step_frame_address
= inf_status
->step_frame_address
;
2120 step_over_calls
= inf_status
->step_over_calls
;
2121 stop_after_trap
= inf_status
->stop_after_trap
;
2122 stop_soon_quietly
= inf_status
->stop_soon_quietly
;
2123 bpstat_clear (&stop_bpstat
);
2124 stop_bpstat
= inf_status
->stop_bpstat
;
2125 breakpoint_proceeded
= inf_status
->breakpoint_proceeded
;
2126 proceed_to_finish
= inf_status
->proceed_to_finish
;
2128 memcpy (stop_registers
, inf_status
->stop_registers
, REGISTER_BYTES
);
2130 /* The inferior can be gone if the user types "print exit(0)"
2131 (and perhaps other times). */
2132 if (target_has_execution
)
2133 write_register_bytes (0, inf_status
->registers
, REGISTER_BYTES
);
2135 /* The inferior can be gone if the user types "print exit(0)"
2136 (and perhaps other times). */
2138 /* FIXME: If we are being called after stopping in a function which
2139 is called from gdb, we should not be trying to restore the
2140 selected frame; it just prints a spurious error message (The
2141 message is useful, however, in detecting bugs in gdb (like if gdb
2142 clobbers the stack)). In fact, should we be restoring the
2143 inferior status at all in that case? . */
2145 if (target_has_stack
&& inf_status
->restore_stack_info
)
2147 struct restore_selected_frame_args fr
;
2148 fr
.level
= inf_status
->selected_level
;
2149 fr
.frame_address
= inf_status
->selected_frame_address
;
2150 /* The point of catch_errors is that if the stack is clobbered,
2151 walking the stack might encounter a garbage pointer and error()
2152 trying to dereference it. */
2153 if (catch_errors (restore_selected_frame
, &fr
,
2154 "Unable to restore previously selected frame:\n",
2155 RETURN_MASK_ERROR
) == 0)
2156 /* Error in restoring the selected frame. Select the innermost
2158 select_frame (get_current_frame (), 0);
2164 _initialize_infrun ()
2167 register int numsigs
;
2169 add_info ("signals", signals_info
,
2170 "What debugger does when program gets various signals.\n\
2171 Specify a signal as argument to print info on that signal only.");
2172 add_info_alias ("handle", "signals", 0);
2174 add_com ("handle", class_run
, handle_command
,
2175 concat ("Specify how to handle a signal.\n\
2176 Args are signals and actions to apply to those signals.\n\
2177 Symbolic signals (e.g. SIGSEGV) are recommended but numeric signals\n\
2178 from 1-15 are allowed for compatibility with old versions of GDB.\n\
2179 Numeric ranges may be specified with the form LOW-HIGH (e.g. 1-5).\n\
2180 The special arg \"all\" is recognized to mean all signals except those\n\
2181 used by the debugger, typically SIGTRAP and SIGINT.\n",
2182 "Recognized actions include \"stop\", \"nostop\", \"print\", \"noprint\",\n\
2183 \"pass\", \"nopass\", \"ignore\", or \"noignore\".\n\
2184 Stop means reenter debugger if this signal happens (implies print).\n\
2185 Print means print a message if this signal happens.\n\
2186 Pass means let program see this signal; otherwise program doesn't know.\n\
2187 Ignore is a synonym for nopass and noignore is a synonym for pass.\n\
2188 Pass and Stop may be combined.", NULL
));
2190 stop_command
= add_cmd ("stop", class_obscure
, not_just_help_class_command
,
2191 "There is no `stop' command, but you can set a hook on `stop'.\n\
2192 This allows you to set a list of commands to be run each time execution\n\
2193 of the program stops.", &cmdlist
);
2195 numsigs
= (int)TARGET_SIGNAL_LAST
;
2196 signal_stop
= (unsigned char *)
2197 xmalloc (sizeof (signal_stop
[0]) * numsigs
);
2198 signal_print
= (unsigned char *)
2199 xmalloc (sizeof (signal_print
[0]) * numsigs
);
2200 signal_program
= (unsigned char *)
2201 xmalloc (sizeof (signal_program
[0]) * numsigs
);
2202 for (i
= 0; i
< numsigs
; i
++)
2205 signal_print
[i
] = 1;
2206 signal_program
[i
] = 1;
2209 /* Signals caused by debugger's own actions
2210 should not be given to the program afterwards. */
2211 signal_program
[TARGET_SIGNAL_TRAP
] = 0;
2212 signal_program
[TARGET_SIGNAL_INT
] = 0;
2214 /* Signals that are not errors should not normally enter the debugger. */
2215 signal_stop
[TARGET_SIGNAL_ALRM
] = 0;
2216 signal_print
[TARGET_SIGNAL_ALRM
] = 0;
2217 signal_stop
[TARGET_SIGNAL_VTALRM
] = 0;
2218 signal_print
[TARGET_SIGNAL_VTALRM
] = 0;
2219 signal_stop
[TARGET_SIGNAL_PROF
] = 0;
2220 signal_print
[TARGET_SIGNAL_PROF
] = 0;
2221 signal_stop
[TARGET_SIGNAL_CHLD
] = 0;
2222 signal_print
[TARGET_SIGNAL_CHLD
] = 0;
2223 signal_stop
[TARGET_SIGNAL_IO
] = 0;
2224 signal_print
[TARGET_SIGNAL_IO
] = 0;
2225 signal_stop
[TARGET_SIGNAL_POLL
] = 0;
2226 signal_print
[TARGET_SIGNAL_POLL
] = 0;
2227 signal_stop
[TARGET_SIGNAL_URG
] = 0;
2228 signal_print
[TARGET_SIGNAL_URG
] = 0;
2232 (add_set_cmd ("stop-on-solib-events", class_support
, var_zinteger
,
2233 (char *) &stop_on_solib_events
,
2234 "Set stopping for shared library events.\n\
2235 If nonzero, gdb will give control to the user when the dynamic linker\n\
2236 notifies gdb of shared library events. The most common event of interest\n\
2237 to the user would be loading/unloading of a new library.\n",