diff options
Diffstat (limited to 'gdb/testsuite/gdb.base/gcore.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/gcore.exp | 220 |
1 files changed, 0 insertions, 220 deletions
diff --git a/gdb/testsuite/gdb.base/gcore.exp b/gdb/testsuite/gdb.base/gcore.exp deleted file mode 100644 index da3ab49e80e..00000000000 --- a/gdb/testsuite/gdb.base/gcore.exp +++ /dev/null @@ -1,220 +0,0 @@ -# Copyright 2002 Free Software Foundation, Inc. - -# 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 -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# 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. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -# Please email any bugs, comments, and/or additions to this file to: -# bug-gdb@prep.ai.mit.edu - -# This file was written by Michael Snyder (msnyder@redhat.com) -# This is a test for the gdb command "generate-core-file". - -if $tracelevel then { - strace $tracelevel -} - -set prms_id 0 -set bug_id 0 - -set testfile "gcore" -set srcfile ${testfile}.c -set binfile ${objdir}/${subdir}/${testfile} - -if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { - gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail." -} - -# Start with a fresh gdb. - -gdb_exit -gdb_start -gdb_reinitialize_dir $srcdir/$subdir -gdb_load ${binfile} - -# Does this gdb support gcore? -send_gdb "help gcore\n" -gdb_expect { - -re "Undefined command: .gcore.*$gdb_prompt $" { - # gcore command not supported -- nothing to test here. - unsupported "gdb does not support gcore on this target" - return -1; - } - -re "Save a core file .*$gdb_prompt $" { - pass "help gcore" - } - -re ".*$gdb_prompt $" { - fail "help gcore" - } - timeout { - fail "help gcore (timeout)" - } -} - -if { ! [ runto main ] } then { - gdb_suppress_entire_file "Run to main failed, so all tests in this file will automatically fail." -} - -proc capture_command_output { command prefix } { - global gdb_prompt - global expect_out - - set output_string "" - send_gdb "$command\n" - gdb_expect { - -re "${command}\[\r\n\]+${prefix}(.*)\[\r\n\]+$gdb_prompt $" { - set output_string $expect_out(1,string) - } - default { - fail "capture_command_output failed on $command." - } - } - return $output_string -} - -gdb_test "break terminal_func" "Breakpoint .* at .*${srcfile}, line .*" \ - "set breakpoint at terminal_func" - -gdb_test "continue" "Breakpoint .*, terminal_func.*" \ - "continue to terminal_func" - -set print_prefix ".\[0123456789\]* = " - -set pre_corefile_backtrace [capture_command_output "backtrace" ""] -set pre_corefile_regs [capture_command_output "info registers" ""] -set pre_corefile_allregs [capture_command_output "info all-reg" ""] -set pre_corefile_static_array \ - [capture_command_output "print static_array" "$print_prefix"] -set pre_corefile_uninit_array \ - [capture_command_output "print un_initialized_array" "$print_prefix"] -set pre_corefile_heap_string \ - [capture_command_output "print heap_string" "$print_prefix"] -set pre_corefile_local_array \ - [capture_command_output "print array_func::local_array" "$print_prefix"] -set pre_corefile_extern_array \ - [capture_command_output "print extern_array" "$print_prefix"] - -gdb_test "gcore ${objdir}/${subdir}/gcore.test" \ - "Saved corefile ${objdir}/${subdir}/gcore.test" \ - "save a corefile" - -# Now restart gdb and load the corefile. -gdb_exit -gdb_start -gdb_reinitialize_dir $srcdir/$subdir -gdb_load ${binfile} - -send_gdb "core ${objdir}/${subdir}/gcore.test\n" -gdb_expect { - -re ".* is not a core dump:.*$gdb_prompt $" { - fail "re-load generated corefile (bad file format)" - # No use proceeding from here. - return; - } - -re ".*: No such file or directory.*$gdb_prompt $" { - fail "re-load generated corefile (file not found)" - # No use proceeding from here. - return; - } - -re ".*Couldn't find .* registers in core file.*$gdb_prompt $" { - fail "re-load generated corefile (incomplete note section)" - } - -re "Core was generated by .*$gdb_prompt $" { - pass "re-load generated corefile" - } - -re ".*$gdb_prompt $" { - fail "re-load generated corefile" - } - timeout { - fail "re-load generated corefile (timeout)" - } -} - -send_gdb "where\n" -gdb_expect_list "where in corefile" ".*$gdb_prompt $" { - ".*\[\r\n\]+#0 .* terminal_func \\(\\) at " - ".*\[\r\n\]+#1 .* array_func \\(\\) at " - ".*\[\r\n\]+#2 .* factorial_func \\(value=1\\) at " - ".*\[\r\n\]+#3 .* factorial_func \\(value=2\\) at " - ".*\[\r\n\]+#4 .* factorial_func \\(value=3\\) at " - ".*\[\r\n\]+#5 .* factorial_func \\(value=4\\) at " - ".*\[\r\n\]+#6 .* factorial_func \\(value=5\\) at " - ".*\[\r\n\]+#7 .* factorial_func \\(value=6\\) at " - ".*\[\r\n\]+#8 .* main \\(.*\\) at " -} - -set post_corefile_regs [capture_command_output "info registers" ""] -if ![string compare $pre_corefile_regs $post_corefile_regs] then { - pass "corefile restored general registers" -} else { - fail "corefile restored general registers" -} - -set post_corefile_allregs [capture_command_output "info all-reg" ""] -if ![string compare $pre_corefile_allregs $post_corefile_allregs] then { - pass "corefile restored all registers" -} else { - fail "corefile restored all registers" -} - -set post_corefile_extern_array \ - [capture_command_output "print extern_array" "$print_prefix"] -pass "extern_array = $post_corefile_extern_array" -if ![string compare $pre_corefile_extern_array $post_corefile_extern_array] { - pass "corefile restored extern array" -} else { - fail "corefile restored extern array" -} - -set post_corefile_static_array \ - [capture_command_output "print static_array" "$print_prefix"] -pass "static_array = $post_corefile_static_array" -if ![string compare $pre_corefile_static_array $post_corefile_static_array] { - pass "corefile restored static array" -} else { - fail "corefile restored static array" -} - -set post_corefile_uninit_array \ - [capture_command_output "print un_initialized_array" "$print_prefix"] -pass "uninit_array = $post_corefile_uninit_array" -if ![string compare $pre_corefile_uninit_array $post_corefile_uninit_array] { - pass "corefile restored un-initialized array" -} else { - fail "corefile restored un-initialized array" -} - -set post_corefile_heap_string \ - [capture_command_output "print heap_string" "$print_prefix"] -pass "heap_string = $post_corefile_heap_string" -if ![string compare $pre_corefile_heap_string $post_corefile_heap_string] { - pass "corefile restored heap array" -} else { - fail "corefile restored heap array" -} - -set post_corefile_local_array \ - [capture_command_output "print array_func::local_array" "$print_prefix"] -pass "local_array = $post_corefile_local_array" -if ![string compare $pre_corefile_local_array $post_corefile_local_array] { - pass "corefile restored stack array" -} else { - fail "corefile restored stack array" -} - -set post_corefile_backtrace [capture_command_output "backtrace" ""] -if ![string compare $pre_corefile_backtrace $post_corefile_backtrace] { - pass "corefile restored backtrace" -} else { - fail "corefile restored backtrace" -} |