From: Stan Shebs <shebs@codesourcery.com>
Date: Fri, 2 Dec 1994 07:17:28 +0000 (+0000)
Subject: 	* gdb.base/a1-selftest.exp: Change initial stepping to know about
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=3046ecae1f55dfbe21c7e9d4ae358e20a4e1f14d;p=binutils-gdb.git

	* gdb.base/a1-selftest.exp: Change initial stepping to know about
	additional line of code that was added.
---

diff --git a/gdb/testsuite/gdb.base/a1-selftest.exp b/gdb/testsuite/gdb.base/a1-selftest.exp
index f22e5e8bbe4..5cf6d534919 100644
--- a/gdb/testsuite/gdb.base/a1-selftest.exp
+++ b/gdb/testsuite/gdb.base/a1-selftest.exp
@@ -201,7 +201,7 @@ proc test_with_self {} {
     set description "step over ttyarg initialization"
     send "step\n"
     expect {
-	-re "init_malloc.* NULL.*$prompt $" {
+	-re ".*time_at_startup = get_run_time .*$prompt $" {
 	    pass "$description"
 	}
 	-re ".*No such file or directory.\r\n$prompt $" {
@@ -220,17 +220,22 @@ proc test_with_self {} {
 
     # now jump over a few functions
 
-    set description "next over init_malloc and everything it calls"
+    set description "next over get_run_time and everything it calls"
     send "next\n"
     expect {
-	-re "if.*SET_TOP_LEVEL.*$prompt $" {
+	-re ".*init_malloc.*$prompt $" {
 	    pass "$description"
-	}
-	-re "i = .*count.*$prompt $" {
-	    pass "$description"
-	    set description "next over ALIGN_STACK_ON_STARTUP code"
-	    send "next\n"
+	    set description "next over init_malloc and everything it calls"
+   	    send "next\n"
 	    expect {
+	    -re "if.*SET_TOP_LEVEL.*$prompt $" {
+	        pass "$description"
+	    }
+	    -re "i = .*count.*$prompt $" {
+	      pass "$description"
+	      set description "next over ALIGN_STACK_ON_STARTUP code"
+	      send "next\n"
+	      expect {
 		-re "if.*i != 0.*$prompt $" {
 		    pass "$description"
 		    send "next\n"
@@ -248,8 +253,10 @@ proc test_with_self {} {
 			}
 		    }
 		}
-	    }
+	      }
+	   }
 	}
+       }
 	-re ".*No such file or directory.\r\n$prompt $" {
 	    pass "$description (no source available)"
 	}
@@ -265,7 +272,6 @@ proc test_with_self {} {
     }
     #    -re "if \(setmp \(to_top_level\)\).*$prompt $" { pass "first next" }
     
-    
     # This one fails on Solaris (for some versions of gdb) because you
     # can't next over library functions
     setup_xfail "sparc-sun-solaris2" 1817