1# Copyright 2020 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 16load_lib "ada.exp" 17load_lib "gdb-python.exp" 18 19if { [skip_ada_tests] } { return -1 } 20 21standard_ada_testfile pkg 22 23load_lib mi-support.exp 24set MIFLAGS "-i=mi" 25 26foreach_with_prefix scenario {none all minimal} { 27 set flags {debug} 28 if {$scenario != "none"} { 29 lappend flags additional_flags=-fgnat-encodings=$scenario 30 } 31 32 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable $flags] != ""} { 33 return -1 34 } 35 36 gdb_exit 37 if [mi_gdb_start] { 38 continue 39 } 40 41 mi_delete_breakpoints 42 mi_gdb_reinitialize_dir $srcdir/$subdir 43 mi_gdb_load ${binfile} 44 45 if ![mi_run_to_main] then { 46 fail "cannot run to main, testcase aborted" 47 return 0 48 } 49 50 set bp_location [gdb_get_line_number "STOP" ${testdir}/pkg.adb] 51 mi_continue_to_line \ 52 "pkg.adb:$bp_location" \ 53 "stop at start of main Ada procedure" 54 55 mi_gdb_test "-var-create r * r" \ 56 "\\^done,name=\"r\",numchild=\"1\",.*" \ 57 "create r varobj" 58 59 set bp_location [gdb_get_line_number "STOP2" ${testdir}/pkg.adb] 60 mi_continue_to_line \ 61 "pkg.adb:$bp_location" \ 62 "stop at second breakpoint" 63 64 mi_gdb_test "-var-update 1 r" \ 65 "\\^done.*name=\"r\",.*new_num_children=\"2\",.*" \ 66 "update r varobj" 67} 68