| OLD | NEW | 
|   1 # Copyright 2006-2012 Free Software Foundation, Inc. |   1 # Copyright 2006-2012 Free Software Foundation, Inc. | 
|   2 # |   2 # | 
|   3 # This program is free software; you can redistribute it and/or modify |   3 # This program is free software; you can redistribute it and/or modify | 
|   4 # it under the terms of the GNU General Public License as published by |   4 # it under the terms of the GNU General Public License as published by | 
|   5 # the Free Software Foundation; either version 3 of the License, or |   5 # the Free Software Foundation; either version 3 of the License, or | 
|   6 # (at your option) any later version. |   6 # (at your option) any later version. | 
|   7 # |   7 # | 
|   8 # This program is distributed in the hope that it will be useful, |   8 # This program is distributed in the hope that it will be useful, | 
|   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of |   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 
|  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the |  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the | 
|  11 # GNU General Public License for more details. |  11 # GNU General Public License for more details. | 
|  12 # |  12 # | 
|  13 # You should have received a copy of the GNU General Public License |  13 # You should have received a copy of the GNU General Public License | 
|  14 # along with this program.  If not, see <http://www.gnu.org/licenses/>. |  14 # along with this program.  If not, see <http://www.gnu.org/licenses/>. | 
|  15  |  15  | 
|  16 if $tracelevel then { |  | 
|  17     strace $tracelevel |  | 
|  18 } |  | 
|  19  |  | 
|  20 load_lib "ada.exp" |  16 load_lib "ada.exp" | 
|  21  |  17  | 
|  22 if { [skip_ada_tests] } { return -1 } |  18 if { [skip_ada_tests] } { return -1 } | 
|  23  |  19  | 
|  24 set testdir "watch_arg" |  20 set testdir "watch_arg" | 
|  25 set testfile "${testdir}/watch" |  21 set testfile "${testdir}/watch" | 
|  26 set srcfile ${srcdir}/${subdir}/${testfile}.adb |  22 set srcfile ${srcdir}/${subdir}/${testfile}.adb | 
|  27 set binfile ${objdir}/${subdir}/${testfile} |  23 set binfile ${objdir}/${subdir}/${testfile} | 
|  28  |  24  | 
|  29 file mkdir ${objdir}/${subdir}/${testdir} |  25 file mkdir ${objdir}/${subdir}/${testdir} | 
| (...skipping 19 matching lines...) Expand all  Loading... | 
|  49          "insert second breakpoint in watch.adb" |  45          "insert second breakpoint in watch.adb" | 
|  50  |  46  | 
|  51 # Then continue to that breakpoint, and verify that the watchpoint |  47 # Then continue to that breakpoint, and verify that the watchpoint | 
|  52 # did not interfere with that. |  48 # did not interfere with that. | 
|  53  |  49  | 
|  54 gdb_test "cont" \ |  50 gdb_test "cont" \ | 
|  55          "Breakpoint \[0-9\]+, watch \\(\\).*" \ |  51          "Breakpoint \[0-9\]+, watch \\(\\).*" \ | 
|  56          "Continuing to second breakpoint" |  52          "Continuing to second breakpoint" | 
|  57  |  53  | 
|  58  |  54  | 
| OLD | NEW |