* 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.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 3d48e2f9e7cfadea2529e559ca12e3ac632907ed..1ddb69538b4c429fd3d28fa28a918fc4df43d9a8 100644 (file)
--- 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 2dc2d5aca6e9283085642e4e71f20c64c67257cf..5406b4d6ad3637da8693a9a1160a6e5e6b33eb9e 100644 (file)
--- 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."