* lib/gdb.exp (gdb_run_cmd): Move comment out from between expect

	patterns, since that is not a valid context for comments.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index f23b91bc7ef8a644b6aee5998b896d9f4734bec0..525f540adf8f59b9c82018288656e75191ccccef 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,13 @@
+Tue Aug 23 19:14:06 1994  Stan Shebs  (shebs@andros.cygnus.com)
+
+       * lib/gdb.exp (gdb_run_cmd): Move comment out from between expect
+       patterns, since that is not a valid context for comments.
+
+Fri Aug 19 15:07:30 1994  Kung Hsu  (kung@mexican.cygnus.com)
+
+       * gdb.c++/demangle.exp (test_arm_style_demangling): Add tests for
+       repeated types and repeated types with indices > 9.
+
 Tue Aug 16 15:57:52 1994  Stan Shebs  (shebs@andros.cygnus.com)
 
        * gdb.base/printcmds.exp: Remove all the a29k XFAILs tagged with

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index f6764d02f49de6e755b4eee57c385e6279d19f78..cb54c954bb84eefdf144ba7587bb70df9f1cb8a7 100644 (file)
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -113,7 +113,11 @@ proc delete_breakpoints {} {
 
 
 #
+# Generic run command.
 #
+# The second pattern below matches up to the first newline *only*.
+# Using ``.*$'' could swallow up output that we attempt to match
+# elsewhere.
 #
 proc gdb_run_cmd {} {
     send "run\n"
@@ -122,10 +126,6 @@ proc gdb_run_cmd {} {
            send "y\n"
            exp_continue
        }
-
-       # The following pattern matches up to to the first newline *only*.
-       # Using ``.*$'' could swallow up output that we attempt to match
-       # elsewhere.
        -re "Starting program: \[^\n\]*" {}
     }
 }
@@ -221,13 +221,15 @@ proc gdb_test { args } {
 
     set result -1
     set errmess ""
-    # trap the send so any problems don't crash things
-    catch "send \"$command\n\"" errmess
-    if [string match "write.spawn_id=\[0-9\]+.:" $errmess] then {
-       perror "sent \"$command\" got expect error \"$errmess\""
-       catch "close"
-       gdb_start
-       return -1
+    if ![string match $command ""] {
+       # trap the send so any problems don't crash things
+       catch "send \"$command\n\"" errmess
+       if [string match "write.spawn_id=\[0-9\]+.:" $errmess] then {
+           perror "sent \"$command\" got expect error \"$errmess\""
+           catch "close"
+           gdb_start
+           return -1
+       }
     }
 
     expect {