2002-03-26 Fred Fish <fnf@redhat.com>

	* gdb.base/step-test.exp: Accept stopping in memcpy/bcopy when we
	have debugging info for those functions and the compiler uses them
	internally to copy structs around.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index a137347e6772c0eb0a058f983d03fc222edfb011..b290cc6e3294d52c5fff4573b21c053d1735b6bd 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2002-03-26  Fred Fish  <fnf@redhat.com>
+
+       * gdb.base/step-test.exp: Accept stopping in memcpy/bcopy when we
+       have debugging info for those functions and the compiler uses them
+       internally to copy structs around.
+
 2002-03-26  Fred Fish  <fnf@redhat.com>
 
        * gdb.base/list.exp: Revert the change made yesterday and add note

diff --git a/gdb/testsuite/gdb.base/step-test.exp b/gdb/testsuite/gdb.base/step-test.exp
index 48af23c5387a67bdc73b48071d5940a709493982..6756b5d1be84e51a594924e0b55b31b2ca6bdb84 100644 (file)
--- a/gdb/testsuite/gdb.base/step-test.exp
+++ b/gdb/testsuite/gdb.base/step-test.exp
@@ -1,4 +1,4 @@
-# Copyright 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
+# Copyright 1997, 1998, 1999, 2000, 2002 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -212,9 +212,23 @@ gdb_test \
 gdb_test "continue" \
          ".*Breakpoint ${decimal},.*large_struct_by_value.*" \
         "run to pass large struct"
-gdb_test "step" \
-         ".*step-test.exp: arrive here 1.*" \
-         "large struct by value"
+send_gdb "step\n"
+gdb_expect {
+    -re ".*step-test.exp: arrive here 1.*$gdb_prompt $" {
+       pass "large struct by value"
+    }
+    -re ".*(memcpy|bcopy).*$gdb_prompt $" {
+       send_gdb "finish\n" ; gdb_expect -re "$gdb_prompt $"
+       send_gdb "step\n"
+       exp_continue
+    }
+    -re ".*$gdb_prompt $" {
+       fail "large struct by value"
+    }
+    timeout {
+       fail "large struct by value (timeout)"
+    }
+}
 
 gdb_continue_to_end "step-test.exp"