* gdb.ada/array_bounds.exp, gdb.ada/array_subscript_addr.exp,

        gdb.ada/arrayidx.exp, gdb.ada/arrayparam.exp, gdb.ada/arrayptr.exp,
        gdb.ada/assign_1.exp, gdb.ada/boolean_expr.exp,
        gdb.ada/char_param.exp, gdb.ada/exprs.exp, gdb.ada/fixed_cmp.exp,
        gdb.ada/fixed_points.exp, gdb.ada/fun_addr.exp,
        gdb.ada/funcall_param.exp, gdb.ada/homonym.exp,
        gdb.ada/interface.exp, gdb.ada/null_array.exp,
        gdb.ada/packed_array.exp, gdb.ada/packed_tagged.exp,
        gdb.ada/print_chars.exp, gdb.ada/print_pc.exp,
        gdb.ada/str_ref_cmp.exp, gdb.ada/sym_print_name.exp,
        gdb.ada/taft_type.exp, gdb.ada/tagged.exp, gdb.ada/type_coercion.exp:
        Include the "= " sequence in the expected output of print tests.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 3da4d30ae202a0d8a1ae02efb6ac934d9e60d6d1..57085ee7f094b99a395edcbf2cb81ffdfd2379e6 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,18 @@
+2008-09-10  Joel Brobecker  <brobecker@adacore.com>
+
+       * gdb.ada/array_bounds.exp, gdb.ada/array_subscript_addr.exp,
+       gdb.ada/arrayidx.exp, gdb.ada/arrayparam.exp, gdb.ada/arrayptr.exp,
+       gdb.ada/assign_1.exp, gdb.ada/boolean_expr.exp,
+       gdb.ada/char_param.exp, gdb.ada/exprs.exp, gdb.ada/fixed_cmp.exp,
+       gdb.ada/fixed_points.exp, gdb.ada/fun_addr.exp,
+       gdb.ada/funcall_param.exp, gdb.ada/homonym.exp,
+       gdb.ada/interface.exp, gdb.ada/null_array.exp,
+       gdb.ada/packed_array.exp, gdb.ada/packed_tagged.exp,
+       gdb.ada/print_chars.exp, gdb.ada/print_pc.exp,
+       gdb.ada/str_ref_cmp.exp, gdb.ada/sym_print_name.exp,
+       gdb.ada/taft_type.exp, gdb.ada/tagged.exp, gdb.ada/type_coercion.exp:
+       Include the "= " sequence in the expected output of print tests.
+
 2008-09-10  Joel Brobecker  <brobecker@adacore.com>
 
        * gdb.ada/packed_tagged.exp: Accept "boolean" as a valid type

diff --git a/gdb/testsuite/gdb.ada/array_bounds.exp b/gdb/testsuite/gdb.ada/array_bounds.exp
index 54753ca0ec0915c7537d4ef0a207e724a7021b12..f5365f72606ce9b5ddb5b359bcd9863bcc660a31 100644 (file)
--- a/gdb/testsuite/gdb.ada/array_bounds.exp
+++ b/gdb/testsuite/gdb.ada/array_bounds.exp
@@ -41,18 +41,18 @@ if ![runto "bar.adb:$bp_location" ] then {
 } 
 
 gdb_test "print itable'first" \
-         "2" \
+         "= 2" \
          "print itable'first"
 
 gdb_test "print itable'last" \
-         "5" \
+         "= 5" \
          "print itable'last"
 
 gdb_test "print table'first" \
-         "zero" \
+         "= zero" \
          "print table'first"
 
 gdb_test "print table'last" \
-         "two" \
+         "= two" \
          "print table'last"
 

diff --git a/gdb/testsuite/gdb.ada/array_subscript_addr.exp b/gdb/testsuite/gdb.ada/array_subscript_addr.exp
index 7b517ee56b441f8878ec53aa3b1f345bb050f4fd..2edce85a1b3c84405db71b2f654a40fbdeab54ee 100644 (file)
--- a/gdb/testsuite/gdb.ada/array_subscript_addr.exp
+++ b/gdb/testsuite/gdb.ada/array_subscript_addr.exp
@@ -40,6 +40,6 @@ runto "p.adb:$bp_location"
 # Verify that we can compare a string slice with another string.
 
 gdb_test "print a(2)'Address" \
-         "\\(system\\.address\\) 0x\[0-9a-fA-F\]+" \
+         "= \\(system\\.address\\) 0x\[0-9a-fA-F\]+" \
          "print a(2)'Address"
 

diff --git a/gdb/testsuite/gdb.ada/arrayidx.exp b/gdb/testsuite/gdb.ada/arrayidx.exp
index 35bf2399bdefaa99a4318c5670321037a4733834..e58274397d2ece1ef33c2afb855bc23760ee1399 100644 (file)
--- a/gdb/testsuite/gdb.ada/arrayidx.exp
+++ b/gdb/testsuite/gdb.ada/arrayidx.exp
@@ -44,35 +44,35 @@ gdb_test "set print array-indexes off" \
          "set print array-indexes to off"
 
 gdb_test "print one_two_three" \
-         "\\(1, 2, 3\\)" \
+         "= \\(1, 2, 3\\)" \
          "print one_two_three, indexes off"
 
 gdb_test "print e_one_two_three" \
-         "\\(1, 2, 3\\)" \
+         "= \\(1, 2, 3\\)" \
          "print e_one_two_three, indexes off"
 
 gdb_test "print r_two_three" \
-         "\\(two => 2, 3\\)" \
+         "= \\(two => 2, 3\\)" \
          "print r_two_three, indexes off"
 
 gdb_test "print u_one_two_three" \
-         "\\(1, 2, 3\\)" \
+         "= \\(1, 2, 3\\)" \
          "print u_one_two_three, indexes off"
 
 gdb_test "print p_one_two_three" \
-         "\\(0 => false, true, true\\)" \
+         "= \\(0 => false, true, true\\)" \
          "print p_one_two_three, indexes off"
 
 gdb_test "print few_reps" \
-         "\\(1, 2, 3, 3, 3, 3, 3, 4, 5\\)" \
+         "= \\(1, 2, 3, 3, 3, 3, 3, 4, 5\\)" \
          "print few_reps, indexes off"
 
 gdb_test "print many_reps" \
-         "\\(1, 2, 3 <repeats 12 times>, 4, 5\\)" \
+         "= \\(1, 2, 3 <repeats 12 times>, 4, 5\\)" \
          "print many_reps, indexes off"
 
 gdb_test "print empty" \
-         "\\(\\)" \
+         "= \\(\\)" \
          "print empty, indexes off"
 
 # Next, print all the arrays with the indexes
@@ -82,35 +82,35 @@ gdb_test "set print array-indexes on" \
          "set print array-indexes to on"
 
 gdb_test "print one_two_three" \
-         "\\(1 => 1, 2 => 2, 3 => 3\\)" \
+         "= \\(1 => 1, 2 => 2, 3 => 3\\)" \
          "print one_two_three"
 
 gdb_test "print e_one_two_three" \
-         "\\(one => 1, two => 2, three => 3\\)" \
+         "= \\(one => 1, two => 2, three => 3\\)" \
          "print e_one_two_three"
 
 gdb_test "print r_two_three" \
-         "\\(two => 2, three => 3\\)" \
+         "= \\(two => 2, three => 3\\)" \
          "print r_two_three"
 
 gdb_test "print u_one_two_three" \
-         "\\(1 => 1, 2 => 2, 3 => 3\\)" \
+         "= \\(1 => 1, 2 => 2, 3 => 3\\)" \
          "print u_one_two_three"
 
 gdb_test "print p_one_two_three" \
-         "\\(0 => false, 1 => true, 2 => true\\)" \
+         "= \\(0 => false, 1 => true, 2 => true\\)" \
          "print p_one_two_three"
 
 gdb_test "print few_reps" \
-         "\\(1 => 1, 2 => 2, 3 => 3, 4 => 3, 5 => 3, 6 => 3, 7 => 3, 8 => 4, 9 => 5\\)" \
+         "= \\(1 => 1, 2 => 2, 3 => 3, 4 => 3, 5 => 3, 6 => 3, 7 => 3, 8 => 4, 9 => 5\\)" \
          "print few_reps"
 
 gdb_test "print many_reps" \
-         "\\(1 => 1, 2 => 2, 3 => 3 <repeats 12 times>, 15 => 4, 16 => 5\\)" \
+         "= \\(1 => 1, 2 => 2, 3 => 3 <repeats 12 times>, 15 => 4, 16 => 5\\)" \
          "print many_reps"
 
 gdb_test "print empty" \
-         "\\(\\)" \
+         "= \\(\\)" \
          "print empty"
 
 

diff --git a/gdb/testsuite/gdb.ada/arrayparam.exp b/gdb/testsuite/gdb.ada/arrayparam.exp
index e123d6ef44f03efc065ded38a2b0a4f9b2d41bf0..645fbb32c0db91c039baf5e39d67672aee56d7f0 100644 (file)
--- a/gdb/testsuite/gdb.ada/arrayparam.exp
+++ b/gdb/testsuite/gdb.ada/arrayparam.exp
@@ -41,21 +41,21 @@ runto "foo.adb:$bp_location"
 # works without problem.
 
 gdb_test "print call_me (\"bonjour\")" \
-         "void" \
+         "= void" \
          "print call_me (\"bonjour\")"
 
 # Verify that the array was passed properly by checking the global
 # variables that Call_Me sets as side-effects.
 
 gdb_test "print first" \
-         "98 'b'" \
+         "= 98 'b'" \
          "print first after function call"
 
 gdb_test "print last" \
-         "114 'r'" \
+         "= 114 'r'" \
          "print lasta after function call"
 
 gdb_test "print length" \
-         "7" \
+         "= 7" \
          "print length after function call"
 

diff --git a/gdb/testsuite/gdb.ada/arrayptr.exp b/gdb/testsuite/gdb.ada/arrayptr.exp
index 733547509013119a1d7dd6d093e7bb8e7bbfa319..024cab4649c4ed46e54bccd2f4372f596ec5785e 100644 (file)
--- a/gdb/testsuite/gdb.ada/arrayptr.exp
+++ b/gdb/testsuite/gdb.ada/arrayptr.exp
@@ -41,6 +41,6 @@ if ![runto "foo.adb:$bp_location" ] then {
 } 
 
 gdb_test "print string_p" \
-         "\\(foo\\.string_access\\) 0x\[0-9a-zA-Z\]+" \
+         "= \\(foo\\.string_access\\) 0x\[0-9a-zA-Z\]+" \
          "print string_p"
 

diff --git a/gdb/testsuite/gdb.ada/assign_1.exp b/gdb/testsuite/gdb.ada/assign_1.exp
index 22553117e8c903ca5affeae8c3f6763032ee2d41..b9093cb92568a36112e2a003a734341281d0c4f6 100644 (file)
--- a/gdb/testsuite/gdb.ada/assign_1.exp
+++ b/gdb/testsuite/gdb.ada/assign_1.exp
@@ -30,7 +30,7 @@ gdb_test "set lang ada" \
          "Changing the language to ada"
 
 gdb_test "print \$xxx := 1" \
-         "1" \
+         "= 1" \
          "set convenience variable \$xxx to 1"
 
 

diff --git a/gdb/testsuite/gdb.ada/boolean_expr.exp b/gdb/testsuite/gdb.ada/boolean_expr.exp
index efb3e128a46683dc1245c63464b95f724f391899..decbcba6c60acfb21cdfb27284a288c58085fc7d 100644 (file)
--- a/gdb/testsuite/gdb.ada/boolean_expr.exp
+++ b/gdb/testsuite/gdb.ada/boolean_expr.exp
@@ -33,10 +33,10 @@ gdb_test "set lang ada" \
          "Changing the language to ada"
 
 gdb_test "print 1 = 2" \
-         "false" \
+         "= false" \
          "print 1 = 2"
 
 gdb_test "print 3 = 3" \
-         "true" \
+         "= true" \
          "print 3 = 3"
 

diff --git a/gdb/testsuite/gdb.ada/char_param.exp b/gdb/testsuite/gdb.ada/char_param.exp
index b81eebb377cff7a26d4459da27a0be3b85ef245d..db3805f38250f43e76c7f51c19654a0f4cb0c670 100644 (file)
--- a/gdb/testsuite/gdb.ada/char_param.exp
+++ b/gdb/testsuite/gdb.ada/char_param.exp
@@ -43,7 +43,7 @@ runto "foo.adb:$bp_location"
 # the function call.
 
 gdb_test "print procedure_result" \
-         "32 ' '"  \
+         "= 32 ' '"  \
          "print procedure_result before calling same"
 
 gdb_test "call same (first)" \
@@ -51,15 +51,15 @@ gdb_test "call same (first)" \
          "call same"
 
 gdb_test "print procedure_result" \
-         "97 'a'"  \
+         "= 97 'a'"  \
          "print procedure_result after calling same"
 
 gdb_test "call next (first)" \
-         "98 'b'" \
+         "= 98 'b'" \
          "call next"
 
 gdb_test "print procedure_result" \
-         "98 'b'"  \
+         "= 98 'b'"  \
          "print procedure_result after calling next"
 
 

diff --git a/gdb/testsuite/gdb.ada/exprs.exp b/gdb/testsuite/gdb.ada/exprs.exp
index 0283bb1a705b56479991850d9720007da80245d7..78593682cd4525dfe7404c50629aaa4068d2211b 100644 (file)
--- a/gdb/testsuite/gdb.ada/exprs.exp
+++ b/gdb/testsuite/gdb.ada/exprs.exp
@@ -38,13 +38,13 @@ set bp_location [gdb_get_line_number "START" ${testdir}/p.adb]
 runto "p.adb:$bp_location"
 
 gdb_test "print X ** Y = Z" \
-         "true" \
+         "= true" \
          "Long_Long_Integer ** Y"
 
 gdb_test "print long_float'min (long_float (X), 8.0)" \
-         "7.0" \
+         "= 7.0" \
          "long_float'min"
 
 gdb_test "print long_float'max (long_float (X), 8.0)" \
-         "8.0" \
+         "= 8.0" \
          "long_float'max"

diff --git a/gdb/testsuite/gdb.ada/fixed_cmp.exp b/gdb/testsuite/gdb.ada/fixed_cmp.exp
index 59feca9249858ba8b78a547cea7991fd5b8c8b2e..2697143d206c3c67429a7079554ac2c5b652e69d 100644 (file)
--- a/gdb/testsuite/gdb.ada/fixed_cmp.exp
+++ b/gdb/testsuite/gdb.ada/fixed_cmp.exp
@@ -38,20 +38,20 @@ set bp_location [gdb_get_line_number "STOP" ${testdir}/fixed.adb]
 runto "fixed.adb:$bp_location"
 
 gdb_test "print My_Var > 10.0" \
-         "true" \
+         "= true" \
          "print My_Var > 10.0"
 
 gdb_test "print My_Var > 20.0" \
-         "false" \
+         "= false" \
          "print My_Var > 20.0"
 
 # Do the same, but with integer values.
 
 gdb_test "print My_Var > 10" \
-         "true" \
+         "= true" \
          "print My_Var > 10"
 
 gdb_test "print My_Var > 20" \
-         "false" \
+         "= false" \
          "print My_Var > 20"
 

diff --git a/gdb/testsuite/gdb.ada/fixed_points.exp b/gdb/testsuite/gdb.ada/fixed_points.exp
index 5735d3f69aad2857441582cde17c760e79f1d22a..62d427b586af188fea67bbdc7dc37513ed012c71 100644 (file)
--- a/gdb/testsuite/gdb.ada/fixed_points.exp
+++ b/gdb/testsuite/gdb.ada/fixed_points.exp
@@ -38,13 +38,13 @@ set bp_location [gdb_get_line_number "Set breakpoint here" ${testdir}/fixed_poin
 runto "fixed_points.adb:$bp_location"
 
 gdb_test "print base_object" \
-         ".* = -50" \
+         "= -50" \
          "p on a fixed point type"
 
 gdb_test "print subtype_object" \
-         ".* = -50" \
+         "= -50" \
          "p on a subtype fixed point type"
 
 gdb_test "print new_type_object" \
-         ".* = -50" \
+         "= -50" \
          "p on a new fixed point type"

diff --git a/gdb/testsuite/gdb.ada/fun_addr.exp b/gdb/testsuite/gdb.ada/fun_addr.exp
index f706d6165d947328bf1503ba4205aac4a3bc2fcc..477c8a95b43f7d8124cf9089ab6c901286fb70d4 100644 (file)
--- a/gdb/testsuite/gdb.ada/fun_addr.exp
+++ b/gdb/testsuite/gdb.ada/fun_addr.exp
@@ -38,7 +38,7 @@ gdb_load ${binfile}
 # the inferior is *not* running (no frame).
 
 gdb_test "print foo'address" \
-         "0x\[0-9a-zA-Z\]+" \
+         "= .* 0x\[0-9a-zA-Z\]+" \
          "print foo'address"
 
 

diff --git a/gdb/testsuite/gdb.ada/funcall_param.exp b/gdb/testsuite/gdb.ada/funcall_param.exp
index 0b6a15ccc2bb5f25f0102c12a3a3b12a7543e9a1..f6bc984aa607a88bcfbfb7b8160b58d334fab33c 100644 (file)
--- a/gdb/testsuite/gdb.ada/funcall_param.exp
+++ b/gdb/testsuite/gdb.ada/funcall_param.exp
@@ -41,6 +41,6 @@ runto "foo.adb:$bp_location"
 # class-wide.
 
 gdb_test "p ident (ident (my_parameter))" \
-         "\\(one => 1, two => 2, three => 3\\)" \
+         "= \\(one => 1, two => 2, three => 3\\)" \
          "p ident (ident (my_parameter))"
 

diff --git a/gdb/testsuite/gdb.ada/homonym.exp b/gdb/testsuite/gdb.ada/homonym.exp
index ca020d562831057ef74f8ec0a44da79bd7d6f24c..e59a07c3f4ad1b422c6506918c8f497cd10dcc11 100644 (file)
--- a/gdb/testsuite/gdb.ada/homonym.exp
+++ b/gdb/testsuite/gdb.ada/homonym.exp
@@ -58,7 +58,7 @@ gdb_test "ptype lcl" \
          "ptype lcl at BREAK_1"
 
 gdb_test "print lcl" \
-         "29" \
+         "= 29" \
          "print lcl at BREAK_1"
 
 # Now, continue until reaching BREAK_2, and do the same commands
@@ -87,7 +87,7 @@ gdb_test "ptype lcl" \
          "ptype lcl at BREAK_2"
 
 gdb_test "print lcl" \
-         "17" \
+         "= 17" \
          "print lcl at BREAK_2"
 
 

diff --git a/gdb/testsuite/gdb.ada/interface.exp b/gdb/testsuite/gdb.ada/interface.exp
index f9f77703e6a8e022b4c9b3cd05c5ac19a807216f..5c6ff86665efc37cd04621a35be579ac5e3211e3 100644 (file)
--- a/gdb/testsuite/gdb.ada/interface.exp
+++ b/gdb/testsuite/gdb.ada/interface.exp
@@ -38,11 +38,11 @@ set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
 runto "foo.adb:$bp_location"
 
 gdb_test "print r" \
-         "\\(x => 1, y => 2, w => 3, h => 4\\)" \
+         "= \\(x => 1, y => 2, w => 3, h => 4\\)" \
          "print r"
 
 gdb_test "print s" \
-         "\\(x => 1, y => 2, w => 3, h => 4\\)" \
+         "= \\(x => 1, y => 2, w => 3, h => 4\\)" \
          "print s"
 
 

diff --git a/gdb/testsuite/gdb.ada/null_array.exp b/gdb/testsuite/gdb.ada/null_array.exp
index 7ab9b70efa060afd276594b21e68bf09ac28ece3..8b9e38d3b0549700f975ef4093b00cb071a882d8 100644 (file)
--- a/gdb/testsuite/gdb.ada/null_array.exp
+++ b/gdb/testsuite/gdb.ada/null_array.exp
@@ -38,7 +38,7 @@ set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
 runto "foo.adb:$bp_location"
 
 gdb_test "print my_table" \
-         "\\(\\)" \
+         "= \\(\\)" \
          "print my_table"
 
 gdb_test "ptype my_table" \
@@ -46,5 +46,5 @@ gdb_test "ptype my_table" \
          "ptype my_table"
 
 gdb_test "print my_matrix" \
-         "\\(m => \\((\"\", ){9}\"\"\\)\\)" \
+         "= \\(m => \\((\"\", ){9}\"\"\\)\\)" \
          "print my_matrix"

diff --git a/gdb/testsuite/gdb.ada/packed_array.exp b/gdb/testsuite/gdb.ada/packed_array.exp
index 15989b84bb15f93add515c56509d0be81da8873c..3b80841a8f1255fd73b899c4037cbb7722231f1c 100644 (file)
--- a/gdb/testsuite/gdb.ada/packed_array.exp
+++ b/gdb/testsuite/gdb.ada/packed_array.exp
@@ -38,7 +38,7 @@ set bp_location [gdb_get_line_number "STOP" ${testdir}/pa.adb]
 runto "pa.adb:$bp_location"
 
 gdb_test "print var" \
-         ".* = \\(4 => true, false, true, false, true\\)" \
+         "= \\(4 => true, false, true, false, true\\)" \
          "print var"
 
 # Try printing the value and the type definition of a reference
@@ -49,5 +49,5 @@ gdb_test "ptype &var" \
          "ptype &var"
 
 gdb_test "print &var" \
-         "\\(access array \\(\\.\\.\\.\\) of boolean\\) \\(4 => true, false, true, false, true\\)" \
+         "= \\(access array \\(\\.\\.\\.\\) of boolean\\) \\(4 => true, false, true, false, true\\)" \
          "print &var"

diff --git a/gdb/testsuite/gdb.ada/packed_tagged.exp b/gdb/testsuite/gdb.ada/packed_tagged.exp
index fcf9778210aebb0b890501074954d179f41d956d..318c25b4c9a4e825f921a6adffde6aec623966b2 100644 (file)
--- a/gdb/testsuite/gdb.ada/packed_tagged.exp
+++ b/gdb/testsuite/gdb.ada/packed_tagged.exp
@@ -49,7 +49,7 @@ set bp_location [gdb_get_line_number "STOP" ${testdir}/comp_bug.adb]
 runto "comp_bug.adb:$bp_location"
 
 gdb_test "print x" \
-         "\\(exists => true, value => 10\\)" \
+         "= \\(exists => true, value => 10\\)" \
          "print x"
 
 gdb_test "ptype x" \

diff --git a/gdb/testsuite/gdb.ada/print_chars.exp b/gdb/testsuite/gdb.ada/print_chars.exp
index 1607b0a64181d0b90e721658550bfdce1bcec265..e29fe2c7b0d0977bcf1285de2644b72b00ee590c 100644 (file)
--- a/gdb/testsuite/gdb.ada/print_chars.exp
+++ b/gdb/testsuite/gdb.ada/print_chars.exp
@@ -39,15 +39,15 @@ runto "foo.adb:$bp_location"
 
 
 gdb_test "print C" \
-         "97 'a'"  \
+         "= 97 'a'"  \
          "print C"
 
 gdb_test "print WC" \
-         "98 'b'"  \
+         "= 98 'b'"  \
          "print WC"
 
 gdb_test "print WWC" \
-         "99 'c'"  \
+         "= 99 'c'"  \
          "print WWC"
 
 

diff --git a/gdb/testsuite/gdb.ada/print_pc.exp b/gdb/testsuite/gdb.ada/print_pc.exp
index 555ef10840c8c308f04a7d9e76af944df1852995..846f5e139b595172ae710a5607a81421752e2934 100644 (file)
--- a/gdb/testsuite/gdb.ada/print_pc.exp
+++ b/gdb/testsuite/gdb.ada/print_pc.exp
@@ -44,5 +44,5 @@ gdb_test "" \
          "start inferior"
 
 gdb_test "p /x \$pc" \
-         "0x\[0-9a-zA-Z\]+" \
+         "= 0x\[0-9a-zA-Z\]+" \
          "p /x \$pc"

diff --git a/gdb/testsuite/gdb.ada/str_ref_cmp.exp b/gdb/testsuite/gdb.ada/str_ref_cmp.exp
index bb071a65b12da4f8bda5bfffb8f7cb07144a9728..dc366671a94abab7e7755eb7533986b5abfcfaa9 100644 (file)
--- a/gdb/testsuite/gdb.ada/str_ref_cmp.exp
+++ b/gdb/testsuite/gdb.ada/str_ref_cmp.exp
@@ -40,10 +40,10 @@ runto "foo.adb:$bp_location"
 # Verify that we can compare a string slice with another string.
 
 gdb_test "print String_Var (1 .. 3) = \"Hel\"" \
-         "true" \
+         "= true" \
          "print String_Var (1 .. 3) = \"Hel\""
 
 gdb_test "print String_Var (1 .. 3) = \"hel\"" \
-         "false" \
+         "= false" \
          "print String_Var (1 .. 3) = \"hel\""
 

diff --git a/gdb/testsuite/gdb.ada/sym_print_name.exp b/gdb/testsuite/gdb.ada/sym_print_name.exp
index 6a98abf2bc39932d2ec40ff50430c49a57cc6b72..bd2b94152432cef3abfc662b9dc8e1ac2cecac53 100644 (file)
--- a/gdb/testsuite/gdb.ada/sym_print_name.exp
+++ b/gdb/testsuite/gdb.ada/sym_print_name.exp
@@ -68,6 +68,6 @@ gdb_test_multiple "print i" "$test_name" \
 
 # Select the first choice from the multiple-choice menu above.
 gdb_test "1" \
-         "48" \
+         "= 48" \
          "select first choice from multiple-choice menu"
 

diff --git a/gdb/testsuite/gdb.ada/taft_type.exp b/gdb/testsuite/gdb.ada/taft_type.exp
index 290ed244cdd17321356cfa6a017162b916d9882d..e3d7a1ea39be67221eb595607fe61117dcd3b8e0 100644 (file)
--- a/gdb/testsuite/gdb.ada/taft_type.exp
+++ b/gdb/testsuite/gdb.ada/taft_type.exp
@@ -41,6 +41,6 @@ if ![runto "p.adb:$bp_location" ] then {
 } 
 
 gdb_test "print w.e.all" \
-         "\\(month => 8, year => 1974\\)" \
+         "= \\(month => 8, year => 1974\\)" \
          "print w.e.all"
 

diff --git a/gdb/testsuite/gdb.ada/tagged.exp b/gdb/testsuite/gdb.ada/tagged.exp
index 981203d7191d1b6f679fd213e77c269416f9d2a7..eb044a73026830afb0ac1dbc8702d9349db64228 100644 (file)
--- a/gdb/testsuite/gdb.ada/tagged.exp
+++ b/gdb/testsuite/gdb.ada/tagged.exp
@@ -58,7 +58,7 @@ gdb_test "ptype segm" \
          "ptype segm"
 
 gdb_test "print segm" \
-         "\\(position => 74, width => 8\\)" \
+         "= \\(position => 74, width => 8\\)" \
          "print segm"
 
 # Now, test printing of an class-wide object.
@@ -70,7 +70,7 @@ gdb_test "ptype obj" \
          "ptype obj"
 
 gdb_test "print obj" \
-         "\\(position => 74, width => 8\\)" \
+         "= \\(position => 74, width => 8\\)" \
          "print obj"
 
 

diff --git a/gdb/testsuite/gdb.ada/type_coercion.exp b/gdb/testsuite/gdb.ada/type_coercion.exp
index c0174a2063a16730d12136e7942bc9c32da99f18..b735c53c43c719dfde374a6ef53cd9d84c1c830e 100644 (file)
--- a/gdb/testsuite/gdb.ada/type_coercion.exp
+++ b/gdb/testsuite/gdb.ada/type_coercion.exp
@@ -38,7 +38,7 @@ set bp_location [gdb_get_line_number "START" ${testdir}/assign.adb]
 runto "assign.adb:$bp_location"
 
 gdb_test "p q" \
-         "\\(2, 3, 5, 7, 11\\)" \
+         "= \\(2, 3, 5, 7, 11\\)" \
          "p q"
 
 gdb_test "set \$addr := q'address" \
@@ -46,7 +46,7 @@ gdb_test "set \$addr := q'address" \
          "save q'address in convenience variable"
 
 gdb_test "p {Integer} \$addr" \
-         "2" \
+         "= 2" \
          "print {Integer} \$addr"
 
 # Now change the value at $addr using the same "{TYPE}" syntax.
@@ -56,7 +56,7 @@ gdb_test "set {Integer} \$addr := 19" \
          "set {Integer} \$addr := 19"
 
 gdb_test "p q" \
-         "\\(19, 3, 5, 7, 11\\)" \
+         "= \\(19, 3, 5, 7, 11\\)" \
          "p q"