[gdb/testsuite] Use valnum_re more often (part 4)

Grepping through the testsuite I also found:
- "\\$\[0-9\]\+"
- "\\$\[0-9\]\*"
- "\\$\[0-9\]".

Also replace these with valnum_re.

Approved-by: Kevin Buettner <kevinb@redhat.com>

diff --git a/gdb/testsuite/gdb.base/bitfields.exp b/gdb/testsuite/gdb.base/bitfields.exp
index a5928ab2dafefb3c875894f6d1a315a240e3d620..6f4ace22371a034955f0672249d418735eae0aff 100644 (file)
--- a/gdb/testsuite/gdb.base/bitfields.exp
+++ b/gdb/testsuite/gdb.base/bitfields.exp
@@ -193,12 +193,12 @@ proc bitfield_internalvar {} {
     gdb_test_no_output "set \$myvar.f = 1"
 
     # Here comes the true testing.
-    gdb_test "print \$myvar.a" "\\$\[0-9\]\+ = 0"
-    gdb_test "print \$myvar.inner.b" "\\$\[0-9\]\+ = 1"
-    gdb_test "print \$myvar.inner.deep.c" "\\$\[0-9\]\+ = 0"
-    gdb_test "print \$myvar.inner.deep.d" "\\$\[0-9\]\+ = -1"
-    gdb_test "print \$myvar.inner.e" "\\$\[0-9\]\+ = -1"
-    gdb_test "print \$myvar.f" "\\$\[0-9\]\+ = -1"
+    gdb_test "print \$myvar.a" "${::valnum_re} = 0"
+    gdb_test "print \$myvar.inner.b" "${::valnum_re} = 1"
+    gdb_test "print \$myvar.inner.deep.c" "${::valnum_re} = 0"
+    gdb_test "print \$myvar.inner.deep.d" "${::valnum_re} = -1"
+    gdb_test "print \$myvar.inner.e" "${::valnum_re} = -1"
+    gdb_test "print \$myvar.f" "${::valnum_re} = -1"
 }
 
 gdb_test_no_output "set print sevenbit-strings"

diff --git a/gdb/testsuite/gdb.cp/m-data.exp b/gdb/testsuite/gdb.cp/m-data.exp
index 7b67d78d55b99633ee4b66991c28b48fffb96612..1d1c94e107da9d29ac617a2cb584e09932c78f4a 100644 (file)
--- a/gdb/testsuite/gdb.cp/m-data.exp
+++ b/gdb/testsuite/gdb.cp/m-data.exp
@@ -85,14 +85,14 @@ gdb_test "print test3.data.key2" "${::valnum_re} = 7" "template object, long"
 gdb_test "print test3.data.value" "${::valnum_re} = oriental" "template object, base enum"
 
 # template object, derived template data member's enum
-gdb_test "print test3.data.value_derived" "\\$\[0-9]\* = etruscan" "template object, derived enum"
+gdb_test "print test3.data.value_derived" "${::valnum_re} = etruscan" "template object, derived enum"
 
 # Now some tests for shadowing (see PR gdb/804):
 
 gdb_breakpoint "C::marker"
 gdb_continue_to_breakpoint "continue to shadow breakpoint"
 
-gdb_test "print shadow" "\\$\[0-9]\* = 1" "shadowing member"
-gdb_test "print ::shadow" "\\$\[0-9]\* = 0" "shadowed global variable"
+gdb_test "print shadow" "${::valnum_re} = 1" "shadowing member"
+gdb_test "print ::shadow" "${::valnum_re} = 0" "shadowed global variable"
 
 gdb_exit

diff --git a/gdb/testsuite/gdb.objc/basicclass.exp b/gdb/testsuite/gdb.objc/basicclass.exp
index 79ac09dbb4dd45f8f12a61b5efff2839fedd325f..903583274e4c61a148002194c72e2e56145ef634 100644 (file)
--- a/gdb/testsuite/gdb.objc/basicclass.exp
+++ b/gdb/testsuite/gdb.objc/basicclass.exp
@@ -124,15 +124,15 @@ gdb_test continue \
 # Test printing objects
 #
 gdb_test "print object" \
-    "\\$\[0-9\] = .*0x0" \
+    "${::valnum_re} = .*0x0" \
     " print an ivar of self"
 
 gdb_test "print self" \
-    "\\$\[0-9\] = \\(.*BasicClass \\*\\) 0x\[0-9a-f\]+" \
+    "${::valnum_re} = \\(.*BasicClass \\*\\) 0x\[0-9a-f\]+" \
     " print self"
 
 gdb_test "print \*self" \
-    "\\$\[0-9\] = \{{?isa = 0x\[0-9a-f\]+( <.*>)?}?, object = 0x0\}" \
+    "${::valnum_re} = \{{?isa = 0x\[0-9a-f\]+( <.*>)?}?, object = 0x0\}" \
     " print contents of self"
 
 #
@@ -154,11 +154,11 @@ gdb_test continue \
 # Test calling Objective-C methods
 #
 gdb_test "print \[self printHi\]" \
-    "Hi.*\\$\[0-9\] = \\(.*objc_object \\*\\) 0x\[0-9a-f\]+" \
+    "Hi.*${::valnum_re} = \\(.*objc_object \\*\\) 0x\[0-9a-f\]+" \
     "call an Objective-C method with no arguments"
 
 gdb_test "print \[self printNumber: 42\]" \
-    "42.*\\$\[0-9\] = 43" \
+    "42.*${::valnum_re} = 43" \
     "call an Objective-C method with one argument"
 
 #