Fix races in gdb.mi/mi-var-display.exp.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 57e332f6e38f35d7a5b72c00328d64abd07fb7be..1afa644b2c4bc87e6af4ad8875862245538ecf23 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2011-06-21  Marek Polacek  <mpolacek@redhat.com>
+
+        * gdb.mi/mi-var-display.exp: Replace gdb_test_multiple with
+       mi_gdb_test.
+
 2011-06-20  Marek Polacek  <mpolacek@redhat.com>
 
         * gdb.mi/mi-nsintrall.exp: Replace gdb_test_multiple with mi_gdb_test.

diff --git a/gdb/testsuite/gdb.mi/mi-var-display.exp b/gdb/testsuite/gdb.mi/mi-var-display.exp
index e307ca49c58e0d07f748fd03668c6053f82c8fa3..ff274079d601a88631ae48898d5193c23b448183 100644 (file)
--- a/gdb/testsuite/gdb.mi/mi-var-display.exp
+++ b/gdb/testsuite/gdb.mi/mi-var-display.exp
@@ -605,12 +605,8 @@ mi_gdb_test "-var-list-children anone" \
 
 
 # Record fp
-
-gdb_test_multiple "p/x \$fp" "print FP register" {
-    -re ".*($hex).*\\^done\r\n$mi_gdb_prompt$" { 
-       pass "print FP register"
-       set fp $expect_out(1,string) 
-    }
+if ![mi_gdb_test "p/x \$fp" ".*($hex).*\\^done" "print FP register"] {
+    set fp $expect_out(3,string) 
 }
 
 mi_continue_to "incr_a"