2004-04-23 Andrew Cagney <cagney@redhat.com>

* gdb.base/siginfo.exp: Clean up step out of signal.
	* gdb.base/sigstep.exp: Ditto.

gdb/testsuite/ChangeLog

@@ -1,3 +1,8 @@
+2004-04-23  Andrew Cagney  <cagney@redhat.com>
+
+	* gdb.base/siginfo.exp: Better handle step out of signal.
+	* gdb.base/sigstep.exp: Ditto.
+
 2004-04-22  Jeff Johnston  <jjohnstn@redhat.com>
             Daniel Jacobowitz  <drow@mvista.com>
 

gdb/testsuite/gdb.base/siginfo.exp

@@ -83,9 +83,16 @@ gdb_test_multiple "step" "${test}" {
 	send_gdb "step\n"
 	exp_continue
     }
-    -re "return 0.*${gdb_prompt} $" {
+    -re "Program exited normally.*${gdb_prompt} $" {
-	# Stepping out of a function GDB advances the inferior to the
+	kfail gdb/1613 "$test (program exited)"
-	# start of the next line
+    }
+    -re "(while ..done|return 0).*${gdb_prompt} $" {
+	# After stepping out of a function /r signal-handler, GDB will
+	# advance the inferior until it is at the first instruction of
+	# a code-line.  While typically things return to the middle of
+	# the "while..." (and hence GDB advances the inferior to the
+	# "return..." line) it is also possible for the return to land
+	# on the first instruction of "while...".  Accept both cases.
 	pass "$test"
     }
 }

gdb/testsuite/gdb.base/sigstep.exp

@@ -87,17 +87,15 @@ proc advance { i } {
 	    exp_continue
 	}
 	-re "Program exited normally.*${gdb_prompt} $" {
-	    kfail gdb/1613 "$test (Program exited normally)"
+	    kfail gdb/1613 "$test (program exited)"
 	}
-	-re "while ..done.*${gdb_prompt} $" {
+	-re "(while ..done|return 0).*${gdb_prompt} $" {
-	    # After stepping out of a function, GDB might find that
+	    # After stepping out of a function /r signal-handler, GDB will
-	    # the inferior is already at the first instruction of this
+	    # advance the inferior until it is at the first instruction of
-	    # line.
+	    # a code-line.  While typically things return to the middle of
-	    pass "$test"
+	    # the "while..." (and hence GDB advances the inferior to the
-	}
+	    # "return..." line) it is also possible for the return to land
-	-re "return 0.*${gdb_prompt} $" {
+	    # on the first instruction of "while...".  Accept both cases.
-	    # After stepping out of a function, GDB will advance the
-	    # inferior to the start of the next line.
 	    pass "$test"
 	}
     }
@@ -125,7 +123,7 @@ proc advancei { i } {
 	    pass "$test"
 	}
 	-re "Program exited normally.*${gdb_prompt} $" {
-	    kfail gdb/1613 "$test (Program exited normally)"
+	    kfail gdb/1613 "$test (program exited)"
 	    set program_exited 1
 	}
 	-re "main .*${gdb_prompt} $" {