2004-06-15 02:16:42 +02:00
|
|
|
# This testcase is part of GDB, the GNU debugger.
|
|
|
|
|
2009-01-03 06:58:08 +01:00
|
|
|
# Copyright 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2007, 2008, 2009
|
2007-01-09 18:59:20 +01:00
|
|
|
# Free Software Foundation, Inc.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
# This program is free software; you can redistribute it and/or modify
|
|
|
|
# it under the terms of the GNU General Public License as published by
|
2007-08-23 20:14:19 +02:00
|
|
|
# the Free Software Foundation; either version 3 of the License, or
|
1999-04-16 03:35:26 +02:00
|
|
|
# (at your option) any later version.
|
2007-08-23 20:14:19 +02:00
|
|
|
#
|
1999-04-16 03:35:26 +02:00
|
|
|
# This program is distributed in the hope that it will be useful,
|
|
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
# GNU General Public License for more details.
|
2007-08-23 20:14:19 +02:00
|
|
|
#
|
1999-04-16 03:35:26 +02:00
|
|
|
# You should have received a copy of the GNU General Public License
|
2007-08-23 20:14:19 +02:00
|
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
# use this to debug:
|
|
|
|
#
|
|
|
|
#log_user 1
|
|
|
|
|
|
|
|
# ending-run.exp -- Expect script to test ending a test run in gdb
|
|
|
|
|
2008-04-07 18:32:44 +02:00
|
|
|
if { [prepare_for_testing ending-run.exp ending-run] } {
|
|
|
|
return -1
|
1999-04-16 03:35:26 +02:00
|
|
|
}
|
|
|
|
remote_exec build "rm -f core"
|
|
|
|
|
|
|
|
# CHFts23469: Test that you can "clear" a bp set at
|
|
|
|
# a line _before_ the routine (which will default to the
|
|
|
|
# first line in the routine, which turns out to correspond
|
|
|
|
# to the prolog--that's another bug...)
|
|
|
|
#
|
2000-04-24 23:32:51 +02:00
|
|
|
|
|
|
|
gdb_test "b ending-run.c:1" ".*Breakpoint.*ending-run.c, line 1.*" \
|
|
|
|
"bpt at line before routine"
|
|
|
|
|
2008-02-27 21:29:31 +01:00
|
|
|
gdb_test "b ending-run.c:14" \
|
|
|
|
".*Note.*also.*Breakpoint 2.*ending-run.c, line 14.*" \
|
|
|
|
"b ending-run.c:14, one"
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
# Set up to go to the next-to-last line of the program
|
|
|
|
#
|
2000-04-24 23:32:51 +02:00
|
|
|
gdb_test "b ending-run.c:31" ".*Breakpoint 3.*ending-run.c, line 31.*"
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
# Expect to hit the bp at line "1", but symbolize this
|
1999-06-28 18:06:02 +02:00
|
|
|
# as line "13". Then try to clear it--this should work.
|
1999-04-16 03:35:26 +02:00
|
|
|
#
|
2007-03-27 19:59:38 +02:00
|
|
|
gdb_run_cmd
|
2008-02-27 21:29:31 +01:00
|
|
|
gdb_test "" ".*Breakpoint.*1.*callee.*14.*" "run"
|
2007-03-27 19:59:38 +02:00
|
|
|
|
2007-11-15 07:28:19 +01:00
|
|
|
gdb_test "cle" ".*Deleted breakpoints 1 2.*" "clear worked"
|
1999-04-16 03:35:26 +02:00
|
|
|
send_gdb "i b\n"
|
|
|
|
gdb_expect {
|
2003-04-03 18:34:48 +02:00
|
|
|
-re ".* breakpoint .* breakpoint .*$gdb_prompt $" {
|
2002-05-07 04:22:08 +02:00
|
|
|
fail "cleared bp at line before routine"
|
|
|
|
}
|
|
|
|
-re ".*3.*main.*31.*$gdb_prompt $" {
|
|
|
|
pass "cleared bp at line before routine"
|
|
|
|
}
|
|
|
|
-re ".*$gdb_prompt $" {
|
|
|
|
fail "cleared bp at line before routine (info b)"
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
# Test some other "clear" combinations
|
|
|
|
#
|
2000-04-24 23:32:51 +02:00
|
|
|
gdb_test "b ending-run.c:1" ".*Breakpoint.*4.*"
|
2008-02-27 21:29:31 +01:00
|
|
|
gdb_test "b ending-run.c:14" ".*Note.*also.*Breakpoint.*5.*" "b ending-run.c:14, two"
|
|
|
|
gdb_test "cle ending-run.c:14" \
|
2009-03-27 00:30:12 +01:00
|
|
|
".*Deleted breakpoint 5.*" "Cleared 2 by line"
|
1999-04-16 03:35:26 +02:00
|
|
|
|
gdb/
2009-07-02 Pedro Alves <pedro@codesourcery.com>
* linux-nat.c (linux_child_follow_fork): If we're staying attached
to the child process, enable event reporting on it. Don't handle
checkpoints here. Instead, add the child fork to the lwp thread
and inferior lists without clobbering the previous inferior. Let
the thread_db layer learn about a new child process, even if
following the parent.
(linux_nat_switch_fork): Delete lwps of the current inferior only,
instead of clearing the whole list. Use thread_change_ptid to
give the core the illusion the new checkpoint is still the same
inferior. Clear the register cache.
(linux_handle_extended_wait): Handle checkpoints here.
(linux_multi_process): Turn on.
* linux-fork.c (struct fork_info) <pc>: Remove field.
(init_fork_list): Do not delete the checkpoint from the inferior
list (it is not there).
(fork_load_infrun_state): Don't switch inferior_ptid here. Pass
the new checkpoint's ptid to linux_nat_switch_fork.
(fork_save_infrun_state): Make static. Don't stop the pc field of
fork_info, it's gone.
(linux_fork_mourn_inferior): Don't delete the checkpoint from the
inferior list, it's not there.
(linux_fork_detach): Ditto.
(delete_fork_command): Replace mention of fork/checkpoint by
checkpoint only.
(detach_fork_command): Likewise. Don't delete the checkpoint from
the inferior list.
(info_forks_command): Adjust.
(restore_detach_fork): Delete.
(checkpointing_pid): New.
(linux_fork_checkpointing_p): New.
(save_detach_fork): Delete.
(checkpoint_command): Delete temp_detach_fork. Don't remove
breakpoints, that's a nop. Store the pid of the process we're
checkpointing, and use make_cleanup_restore_integer to restore it.
Don't reinsert breakpoints here.
(process_command, fork_command): Delete.
(restart_command): Update comments to only mention checkpoints,
not forks.
(_initialize_linux_fork): Delete "fork", "process", "info forks"
commands.
* linux-fork.h (fork_save_infrun_state, fork_list): Delete
declarations.
(linux_fork_checkpointing_p): Declare.
* cli/cli-cmds.c (killlist): New.
* cli/cli-cmds.h (killlist): Declare.
* gdbcmd.h (killlist): Declare.
* inferior.c: Include "gdbthread.h".
(detach_inferior_command, kill_inferior_command)
(inferior_command): New.
(info_inferiors_command): Allow specifying a specific inferior id.
(_initialize_inferiors): Register "inferior", "kill inferior" and
"detach inferior" commands.
* infcmd.c (_initialize_infcmd): Make "kill" a prefix command.
* gdbthread.h (any_thread_of_process): Declare.
* thread.c (any_thread_of_process): New.
* NEWS: Mention multi-inferior debugging. Mention 'info
inferiors', 'inferior', 'detach inferior' and 'kill inferior' as
new commands.
(Removed commands): New section, mentioning that 'info forks',
'fork', 'process', 'delete fork' and 'detach fork' are now gone.
gdb/testsuite/
2009-07-02 Pedro Alves <pedro@codesourcery.com>
* gdb.base/multi-forks.exp: Only run detach-on-fork tests on
linux. Adjust to use "inferior", "info inferiors", "detach
inferior" and "kill inferior" instead of "restart", "info fork",
"detach fork" and "delete fork".
* gdb.base/ending-run.exp: Spell out "info".
* gdb.base/help.exp: Adjust to use test_prefix_command_help for
the "kill" command.
gdb/doc/
2009-07-02 Pedro Alves <pedro@codesourcery.com>
* gdb.texinfo (Debugging multiple inferiors): Document the
"inferior", "detach inferior" and "kill inferior" commands.
(Debugging Programs with Multiple Processes): Adjust to mention
generic "inferior" commands. Delete mention of "detach fork" and
"delete fork". Cross reference to "Debugging multiple inferiors"
section.
2009-07-02 23:57:28 +02:00
|
|
|
send_gdb "info line ending-run.c:14\n"
|
1999-04-16 03:35:26 +02:00
|
|
|
gdb_expect {
|
|
|
|
-re ".*address (0x\[0-9a-fA-F]*).*$gdb_prompt $" {
|
|
|
|
set line_nine $expect_out(1,string)
|
2008-02-27 21:29:31 +01:00
|
|
|
gdb_test "b ending-run.c:14" ".*Breakpoint 6.*ending-run.c, line 14.*"
|
|
|
|
gdb_test "b *$line_nine" ".*Note.*also.*Breakpoint 7.*" "Breakpoint 7 at *ending-run.c:14"
|
2009-03-27 00:30:12 +01:00
|
|
|
gdb_test "cle" ".*Deleted breakpoints 4 6 7.*" "Clear 2 by default"
|
1999-04-16 03:35:26 +02:00
|
|
|
}
|
|
|
|
-re ".*$gdb_prompt $" {
|
|
|
|
fail "need to fix test for new compile outcome"
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
send_gdb "i b\n"
|
|
|
|
gdb_expect {
|
2003-04-03 18:34:48 +02:00
|
|
|
-re ".* breakpoint .* breakpoint .*$gdb_prompt $" {
|
2002-05-07 04:22:08 +02:00
|
|
|
fail "all set to continue (didn't clear bps)"
|
1999-04-16 03:35:26 +02:00
|
|
|
}
|
1999-06-28 18:06:02 +02:00
|
|
|
-re ".*3.*main.*31.*$gdb_prompt $" {
|
1999-04-16 03:35:26 +02:00
|
|
|
pass "all set to continue"
|
|
|
|
}
|
|
|
|
-re ".*$gdb_prompt $" {
|
2002-05-07 04:22:08 +02:00
|
|
|
fail "all set to continue (missing bp at end)"
|
1999-04-16 03:35:26 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
# See if we can step out with control. The "1 2 3" stuff
|
|
|
|
# is output from the program.
|
|
|
|
#
|
2002-02-10 19:21:36 +01:00
|
|
|
if ![gdb_skip_stdio_test "cont"] {
|
|
|
|
gdb_test "cont" ".*1 2 7 14 23 34 47 62 79.*Breakpoint.*31.*"
|
|
|
|
} else {
|
|
|
|
gdb_test "cont" ".*Breakpoint.*31.*"
|
|
|
|
}
|
2000-10-17 22:00:21 +02:00
|
|
|
|
|
|
|
if ![gdb_skip_stdio_test "Step to return"] {
|
2002-01-21 19:46:33 +01:00
|
|
|
gdb_test "next" ".*Goodbye!.*32.*" \
|
2000-10-17 22:00:21 +02:00
|
|
|
"Step to return"
|
|
|
|
} else {
|
|
|
|
gdb_test "next" "" ""
|
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
|
|
|
|
set old_timeout $timeout
|
|
|
|
set timeout 50
|
2001-07-26 00:41:43 +02:00
|
|
|
set program_exited 0
|
1999-04-16 03:35:26 +02:00
|
|
|
send_gdb "next\n"
|
2006-11-27 16:09:54 +01:00
|
|
|
set nexted 0
|
1999-04-16 03:35:26 +02:00
|
|
|
gdb_expect {
|
1999-06-28 18:06:02 +02:00
|
|
|
-re "33.*$gdb_prompt $" {
|
1999-04-16 03:35:26 +02:00
|
|
|
# sometimes we stop at the closing brace, if so, do another next
|
2006-11-27 16:09:54 +01:00
|
|
|
if { $nexted } {
|
|
|
|
fail "step out of main"
|
|
|
|
} else {
|
|
|
|
set nexted 1
|
|
|
|
send_gdb "next\n"
|
|
|
|
exp_continue
|
1999-04-16 03:35:26 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
-re ".*Unable to find return pc for this frame.*$gdb_prompt $" {
|
2006-11-27 16:09:54 +01:00
|
|
|
fail "step out of main"
|
|
|
|
gdb_test "n" ".*" ""
|
1999-04-16 03:35:26 +02:00
|
|
|
}
|
|
|
|
-re ".*in.*start.*$gdb_prompt $" {
|
2006-11-27 16:09:54 +01:00
|
|
|
pass "step out of main"
|
|
|
|
}
|
|
|
|
-re ".*in.*bsp_trap.*$gdb_prompt $" {
|
|
|
|
pass "step out of main"
|
1999-04-16 03:35:26 +02:00
|
|
|
}
|
2006-11-27 16:09:54 +01:00
|
|
|
-re ".*in.*init.*$gdb_prompt $" {
|
|
|
|
# This is what happens on sparc64-elf ultra.
|
|
|
|
pass "step out of main"
|
|
|
|
}
|
|
|
|
-re ".*in.*dll_crt0_1.*$gdb_prompt $" {
|
|
|
|
# This is what happens on Cygwin.
|
|
|
|
pass "step out of main"
|
1999-06-28 18:06:02 +02:00
|
|
|
}
|
2001-07-26 00:41:43 +02:00
|
|
|
-re ".*Program exited normally.*$gdb_prompt $" {
|
|
|
|
# This is what happens on Linux i86 (and I would expect others)
|
|
|
|
set program_exited 1
|
|
|
|
pass "step out of main"
|
|
|
|
}
|
2006-11-27 16:09:54 +01:00
|
|
|
-re ".*in .nope ().*$gdb_prompt $" {
|
|
|
|
# This is what happens on Solaris currently -sts 1999-08-25
|
|
|
|
pass "step out of main"
|
|
|
|
}
|
|
|
|
-re ".*in _int_reset ().*$gdb_prompt $" {
|
|
|
|
# This is what happens on Sanyo XStormy16
|
|
|
|
pass "step out of main"
|
|
|
|
}
|
|
|
|
-re ".*init ().*$gdb_prompt $" {
|
|
|
|
# This is what happens on many Mips targets
|
|
|
|
pass "step out of main"
|
|
|
|
}
|
|
|
|
-re ".*in ..change.mode ().*$gdb_prompt $" {
|
|
|
|
# This is what happens on ARM in thumb mode -fn 2000-02-01
|
|
|
|
pass "step out of main"
|
|
|
|
}
|
|
|
|
-re ".*__rt_entry ().*$gdb_prompt $" {
|
|
|
|
# This is what happens on the ARM RVDS runtime
|
|
|
|
pass "step out of main"
|
|
|
|
}
|
|
|
|
-re ".*in.*\\\$START\\\$.*from.*dld.sl.*$gdb_prompt $" {
|
|
|
|
pass "step out of main"
|
|
|
|
}
|
|
|
|
-re ".*in __wrap__?main ().*$gdb_prompt $" {
|
|
|
|
pass "step out of main"
|
|
|
|
}
|
|
|
|
-re "__setup_argv_for_main (.*).*$gdb_prompt $" {
|
|
|
|
# On sh, another wrapper function (start_l) exists, so
|
|
|
|
# another `next' is necessary.
|
|
|
|
gdb_test "next" ".*in start_l ().*" "step out of main"
|
|
|
|
}
|
1999-06-07 21:19:32 +02:00
|
|
|
-re ".*in.*currently asm.*$gdb_prompt $" {
|
2006-11-27 16:09:54 +01:00
|
|
|
pass "step out of main"
|
|
|
|
}
|
|
|
|
-re "_*start\[0-9\]* \\(\[^)\]*\\).*$gdb_prompt $" {
|
|
|
|
pass "step out of main"
|
1999-06-07 21:19:32 +02:00
|
|
|
}
|
|
|
|
-re ".*Program received signal SIGTRAP.*$gdb_prompt $" {
|
2006-11-27 16:09:54 +01:00
|
|
|
pass "step out of main"
|
1999-06-07 21:19:32 +02:00
|
|
|
}
|
2006-11-27 16:09:54 +01:00
|
|
|
-re ".*$gdb_prompt $" { fail "step out of main" }
|
|
|
|
timeout { fail "step out of main" }
|
1999-04-16 03:35:26 +02:00
|
|
|
}
|
|
|
|
|
2002-07-19 02:02:34 +02:00
|
|
|
# When we're talking to a program running on a real stand-alone board,
|
|
|
|
# every BSP's exit function behaves differently, so there's no single
|
|
|
|
# way to tell whether we've exited gracefully or not. So don't run
|
|
|
|
# these tests when use_gdb_stub is set, or when we're running under Cygmon.
|
2002-09-18 19:11:53 +02:00
|
|
|
set program_exited_normally 0
|
|
|
|
set program_not_exited 0
|
|
|
|
set program_in_exit 0
|
2002-07-19 02:02:34 +02:00
|
|
|
if {! [target_info exists use_gdb_stub]
|
|
|
|
&& (! [target_info exists use_cygmon] || ! [target_info use_cygmon])} {
|
2001-07-26 00:41:43 +02:00
|
|
|
global program_exited;
|
|
|
|
if {[eval expr $program_exited == 0]} {
|
|
|
|
send_gdb "n\n"
|
|
|
|
gdb_expect {
|
|
|
|
-re "Program exited normally.*$gdb_prompt $" {
|
|
|
|
# If we actually have debug info for the start function,
|
|
|
|
# then we won't get the "Single-stepping until function
|
|
|
|
# exit" message.
|
2001-10-29 19:16:46 +01:00
|
|
|
pass "step to end of run"
|
2002-09-18 19:11:53 +02:00
|
|
|
set program_exited_normally 1
|
2001-07-26 00:41:43 +02:00
|
|
|
}
|
2002-09-18 18:04:53 +02:00
|
|
|
-re "Single.*EXIT code 0\r\n.*Program exited normally.*$gdb_prompt $" {
|
2002-05-07 04:22:08 +02:00
|
|
|
pass "step to end of run (status wrapper)"
|
2002-09-18 19:11:53 +02:00
|
|
|
set program_exited_normally 1
|
2002-05-07 04:22:08 +02:00
|
|
|
}
|
2002-09-18 19:20:54 +02:00
|
|
|
-re "Single.*EXIT code 0\r\n.*$gdb_prompt $" {
|
|
|
|
pass "step to end of run (status wrapper)"
|
|
|
|
}
|
2001-07-26 00:41:43 +02:00
|
|
|
-re ".*Single.*Program exited.*$gdb_prompt $" {
|
2001-10-29 19:16:46 +01:00
|
|
|
pass "step to end of run"
|
2002-09-18 19:11:53 +02:00
|
|
|
set program_exited_normally 1
|
2001-07-26 00:41:43 +02:00
|
|
|
}
|
|
|
|
-re ".*Single.*in exit.*from.*dld.sl.*$gdb_prompt $" {
|
2001-10-29 19:16:46 +01:00
|
|
|
pass "step to end of run"
|
2002-09-18 19:11:53 +02:00
|
|
|
set program_in_exit 1
|
2001-07-26 00:41:43 +02:00
|
|
|
}
|
2001-10-29 19:16:46 +01:00
|
|
|
-re ".*Single.*_int_reset.*$gdb_prompt $" {
|
|
|
|
pass "step to end of run"
|
2002-09-18 19:11:53 +02:00
|
|
|
if {![istarget "xstormy16-*-*"]} {
|
|
|
|
set program_exited_normally 1
|
|
|
|
}
|
2001-10-29 19:16:46 +01:00
|
|
|
}
|
2001-07-26 00:41:43 +02:00
|
|
|
-re ".*$gdb_prompt $" {
|
|
|
|
fail "step to end of run"
|
2002-09-18 19:11:53 +02:00
|
|
|
set program_not_exited 1
|
2001-07-26 00:41:43 +02:00
|
|
|
}
|
|
|
|
timeout {
|
|
|
|
fail "(timeout) step to end of run"
|
2002-09-18 19:11:53 +02:00
|
|
|
set program_not_exited 1
|
2001-07-26 00:41:43 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2002-09-18 19:11:53 +02:00
|
|
|
if {$program_in_exit} {
|
|
|
|
if {[gdb_test "c" ".*" "continue after exit"] == 0} {
|
|
|
|
set program_exited_normally 1
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
unsupported "continue after exit"
|
|
|
|
}
|
|
|
|
|
2001-07-26 00:41:43 +02:00
|
|
|
set timeout $old_timeout
|
|
|
|
|
2002-09-18 19:11:53 +02:00
|
|
|
if {$program_exited_normally} {
|
|
|
|
gdb_test "n" ".*The program is not being run.*" "don't step after run"
|
|
|
|
} elseif {$program_not_exited} {
|
|
|
|
unresolved "don't step after run"
|
|
|
|
} else {
|
|
|
|
unsupported "don't step after run"
|
|
|
|
}
|
2001-07-26 00:41:43 +02:00
|
|
|
|
|
|
|
set exec_output [remote_exec host "ls core"]
|
|
|
|
|
|
|
|
if [ regexp "core not found" $exec_output] {
|
|
|
|
pass "No core dumped on quit"
|
1999-04-26 20:34:20 +02:00
|
|
|
} else {
|
2001-07-26 00:41:43 +02:00
|
|
|
if [ regexp "No such file or directory" $exec_output] {
|
2002-05-07 04:22:08 +02:00
|
|
|
pass "ls: core (No core dumped on quit)"
|
2001-07-26 00:41:43 +02:00
|
|
|
} else {
|
|
|
|
remote_exec build "rm -f core"
|
2002-05-07 04:22:08 +02:00
|
|
|
fail "ls: core (Core dumped on quit)"
|
2001-07-26 00:41:43 +02:00
|
|
|
}
|
1999-04-26 20:34:20 +02:00
|
|
|
}
|
1999-04-16 03:35:26 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
#remote_exec build "rm -f ${binfile}"
|
|
|
|
return 0
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|