From 62433a301a117d437e9a92e5f1fba2a09445053c Mon Sep 17 00:00:00 2001 From: Jim Kingdon Date: Sun, 9 Oct 1994 14:52:02 +0000 Subject: [PATCH] * 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. --- gdb/testsuite/ChangeLog | 17 +++++++++++++++++ gdb/testsuite/gdb.base/corefile.exp | 15 +++++++++++++-- 2 files changed, 30 insertions(+), 2 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 3d48e2f9e7..1ddb69538b 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -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) * gdb.base/commands.exp: New tests for if/while commands. diff --git a/gdb/testsuite/gdb.base/corefile.exp b/gdb/testsuite/gdb.base/corefile.exp index 2dc2d5aca6..5406b4d6ad 100644 --- a/gdb/testsuite/gdb.base/corefile.exp +++ b/gdb/testsuite/gdb.base/corefile.exp @@ -52,9 +52,9 @@ if ![file exists $objdir/$subdir/corefile] then { catch "system \"cd $objdir/$subdir; ./$binfile\"" if [file exists $objdir/$subdir/core] then { 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" - } 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" } } @@ -136,4 +136,15 @@ $prompt $" { pass "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." -- 2.34.1