GDB 7.6.50

gdb/testsuite/gdb.base/break.exp

-#   Copyright 1988, 1990-1992, 1994-2000, 2002-2003, 2007-2012 Free
-#   Software Foundation, Inc.
+#   Copyright 1988-2013 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
 # the Free Software Foundation; either version 3 of the License, or
 # (at your option) any later version.
 #
 # This program is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.
@@ skipping 316 matching lines @@
         }
     }
 }
 
 # test with bad values
 
 gdb_test "enable" "" ""
 gdb_test "disable 10" "No breakpoint number 10." \
     "disable non-existent breakpoint 10"
 
-gdb_test "set \$baz 1.234"
+gdb_test_no_output "set \$baz = 1.234"
 gdb_test "disable \$baz" \
     "Convenience variable must have integer value.*" \
     "disable with non-integer convenience var"
 gdb_test "disable \$grbx" \
     "Convenience variable must have integer value.*" \
     "disable with non-existent convenience var"
 gdb_test "disable \$10" \
     "History has not yet reached .10." \
     "disable with non-existent history value"
 gdb_test "disable \$1foo" \
@@ skipping 420 matching lines @@
     delete_breakpoints
 
     gdb_test "break factorial" "Breakpoint $decimal at .*" "break at factorial"
 
     # Run until we call factorial with 6
 
     gdb_run_cmd
     gdb_expect {
         -re "Break.* factorial .value=6. .*$gdb_prompt $" {}
         -re ".*$gdb_prompt $" {
-            fail "run to factorial(6)";
-            gdb_suppress_tests;
+            fail "run to factorial(6)"
+            gdb_suppress_tests
         }
         timeout { fail "run to factorial(6) (timeout)" ; gdb_suppress_tests }
     }
 
     # Continue until we call factorial recursively with 5.
 
     if [gdb_test "continue" \
         "Continuing.*Break.* factorial .value=5. .*" \
         "continue to factorial(5)"] then { gdb_suppress_tests }
 
@@ skipping 40 matching lines @@
     # OK, we should be back in the same stack frame we started from.
     # Do a backtrace just to confirm.
 
     set result [gdb_test "backtrace" \
             "#0\[ \t\]+ factorial .value=120.*\r\n#1\[ \t\]+ \[0-9a-fx\]+ in factorial .value=6..*" \
             "backtrace from factorial(5.1)"]
     if { $result != 0 } { gdb_suppress_tests }
 
     if [target_info exists gdb,noresults] { gdb_suppress_tests }
   gdb_continue_to_end "recursive next test"
-   gdb_stop_suppressing_tests;
+   gdb_stop_suppressing_tests
 }
 
 test_next_with_recursion
 
 
 #********
 
 # build a new file with optimization enabled so that we can try breakpoints
 # on targets with optimized prologues
 
@@ skipping 98 matching lines @@
         fail "rbreak junk"
     }
     -re ".*Breakpoint \[0-9\]+,.*$gdb_prompt $" {
         pass "rbreak junk"
     }
     timeout {
         fail "rbreak junk (timeout)"
     }
 }
 
+#
+# Test break via convenience variable with file name
+#
+set line [gdb_get_line_number "set breakpoint 1 here"]
+gdb_test_no_output "set \$l = $line"
+gdb_breakpoint ${srcfile}:\$l
+
+gdb_test_no_output "set \$foo=81.5" \
+    "set convenience variable \$foo to 81.5"
+gdb_test "break $srcfile:\$foo" \
+    "Convenience variables used in line specs must have integer values.*" \
+    "set breakpoint via non-integer convenience variable disallowed"
 
 # Reset the default arguments for VxWorks
 if [istarget "*-*-vxworks*"] {
     set timeout 10
     verbose "Timeout is now $timeout seconds" 2
     gdb_test_no_output "set args main"
 }