Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests Activity

* gdb.base/corefile.exp: Add (xfail'd) test for reinit_frame_cache

Browse Source 
bug involving using inferior_pid to figure out whether to select a
	frame.
This commit is contained in:
Jim Kingdon
1994-10-09 14:52:02 +00:00
parent 87888df69f
commit 62433a301a
2 changed files with 30 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
gdb/testsuite/ChangeLog
View File

@@ -1,3 +1,20 @@
Sun Oct 9 07:44:06 1994 Jim Kingdon (kingdon@lioth.cygnus.com)
* gdb.base/corefile.exp: Add (xfail'd) test for reinit_frame_cache
bug involving using inferior_pid to figure out whether to select a
frame.
Wed Sep 28 23:12:02 1994 Jeff Law (law@snake.cs.utah.edu)
* gdb.disasm/hppa.exp: Change arg[0..3] to r[26..23] to
match the current disassembler output.
Fri Sep 16 11:42:41 1994 Stan Shebs (shebs@andros.cygnus.com)
* gdb.fortran/exprs.exp: Expect VOID instead of void.
* gdb.fortran/types.exp: Escape the expected '*'s in Fortran
types, expect "int" as type of integer values (for now).
Wed Sep 7 23:33:51 1994 Jeff Law (law@snake.cs.utah.edu) Wed Sep 7 23:33:51 1994 Jeff Law (law@snake.cs.utah.edu)
* gdb.base/commands.exp: New tests for if/while commands. * gdb.base/commands.exp: New tests for if/while commands.

15
gdb/testsuite/gdb.base/corefile.exp
View File

@@ -52,9 +52,9 @@ if ![file exists $objdir/$subdir/corefile] then {
catch "system \"cd $objdir/$subdir; ./$binfile\"" catch "system \"cd $objdir/$subdir; ./$binfile\""
if [file exists $objdir/$subdir/core] then { if [file exists $objdir/$subdir/core] then {
catch "exec mv $objdir/$subdir/core $objdir/$subdir/corefile" catch "exec mv $objdir/$subdir/core $objdir/$subdir/corefile"
} else if [file exists $objdir/$subdir/core.$binfile] { } elseif [file exists $objdir/$subdir/core.$binfile] {
catch "exec mv $objdir/$subdir/core.$binfile $objdir/$subdir/corefile" catch "exec mv $objdir/$subdir/core.$binfile $objdir/$subdir/corefile"
} else if [file exists $objdir/$subdir/$binfile.core] { } elseif [file exists $objdir/$subdir/$binfile.core] {
catch "exec mv $objdir/$subdir/$binfile.core $objdir/$subdir/corefile" catch "exec mv $objdir/$subdir/$binfile.core $objdir/$subdir/corefile"
} }
} }
@@ -136,4 +136,15 @@ $prompt $" { pass "core-file command" }
timeout { fail "(timeout) core-file command" } timeout { fail "(timeout) core-file command" }
} }
# test reinit_frame_cache
gdb_load $objdir/$subdir/$binfile
setup_xfail "*-*-*"
gdb_test "up" "#\[0-9\]* *\[0-9xa-fH'\]* in .* \\(\\)"
# another good test of roughly the same thing would be to select a frame,
# print a local variable in that frame, then do the "file" and
# (without selecting the frame again explicitly) print the variable
# again.
gdb_test "core" "No core file now." gdb_test "core" "No core file now."