OLD | NEW |
(Empty) | |
| 1 # Copyright 2012 Free Software Foundation, Inc. |
| 2 # |
| 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 |
| 5 # the Free Software Foundation; either version 3 of the License, or |
| 6 # (at your option) any later version. |
| 7 # |
| 8 # This program is distributed in the hope that it will be useful, |
| 9 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 11 # GNU General Public License for more details. |
| 12 # |
| 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/>. |
| 15 |
| 16 load_lib "ada.exp" |
| 17 |
| 18 set testdir "bp_enum_homonym" |
| 19 set testfile "${testdir}/p" |
| 20 set srcfile ${srcdir}/${subdir}/${testfile}.adb |
| 21 set binfile ${objdir}/${subdir}/${testfile} |
| 22 |
| 23 file mkdir ${objdir}/${subdir}/${testdir} |
| 24 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" }
{ |
| 25 return -1 |
| 26 } |
| 27 |
| 28 clean_restart ${testfile} |
| 29 |
| 30 # Force GDB to convert the psymtab of pck.adb into a symtab. |
| 31 gdb_test "list pck.adb:1" \ |
| 32 "$decimal\[ \t\]+-- Copyright.*" |
| 33 |
| 34 # Break on subprogram "Archive". There is an enumeral that's an |
| 35 # homonym, so verify that GDB doesn't provide the choice between |
| 36 # the subprogram and the enumeral for the location of the breakpoint. |
| 37 # Instead, it should insert the breakpoint on the function alone. |
| 38 |
| 39 gdb_test "break archive" \ |
| 40 "Breakpoint $decimal at $hex: file .*pck.adb, line $decimal\\." |
| 41 |
| 42 # Run the program. Make sure the program runs until it hits |
| 43 # the breakpoint and that the debugger does not unexpectedly ask |
| 44 # the user to choose between several locations for the breakpoint |
| 45 # (while the inferior is starting up, new DSOs being mapped causes |
| 46 # the breakpoint location to be reevaluated). |
| 47 |
| 48 gdb_run_cmd |
| 49 gdb_test "" \ |
| 50 "Breakpoint $decimal, pck\\.archive \\(\\).*" \ |
| 51 "run to pck.archive breakpoint" |
| 52 |
OLD | NEW |