From 62433a301a117d437e9a92e5f1fba2a09445053c Mon Sep 17 00:00:00 2001
From: Jim Kingdon <jkingdon@engr.sgi.com>
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."