1# Copyright 2005-2015 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" 17 18if { [skip_ada_tests] } { return -1 } 19 20# This testcase verifies the behavior of the `start' command, which 21# does not work when we use the gdb stub... 22if [target_info exists use_gdb_stub] { 23 untested exec_changed.exp 24 return 25} 26 27standard_ada_testfile first 28 29# Build the first test program (note that cygwin needs the $EXEEXT). 30if {[gdb_compile_ada "${srcfile}" "${binfile}$EXEEXT" executable {debug}] != ""} { 31 return -1 32} 33 34# Build the second test program 35set testfile2 "${testdir}/second" 36set srcfile2 ${srcdir}/${subdir}/${testfile2}.adb 37set binfile2 [standard_output_file ${testfile2}$EXEEXT] 38 39if {[gdb_compile_ada "${srcfile2}" "${binfile2}" executable {debug}] != ""} { 40 return -1 41} 42 43# Start with a fresh gdb. 44 45set common_binfile [standard_output_file ${testdir}/common$EXEEXT] 46 47gdb_start 48gdb_reinitialize_dir $srcdir/$subdir 49 50# Load the first executable. 51 52gdb_test "shell mv ${binfile} ${common_binfile}" ".*" "" 53gdb_load ${common_binfile} 54 55# Start the program, we should land in the program main procedure 56if { [gdb_start_cmd] < 0 } { 57 untested start 58 return -1 59} 60 61gdb_test "" \ 62 "first \\(\\) at .*first.adb.*" \ 63 "start first" 64 65# Restore first executable to its original name, and move 66# second executable into its place. Ensure that the new 67# executable is at least a second newer than the old. 68 69gdb_test "shell mv ${common_binfile} ${binfile}" ".*" "" 70gdb_test "shell mv ${binfile2} ${common_binfile}" ".*" "" 71gdb_test "shell sleep 1" ".*" "" 72gdb_test "shell touch ${common_binfile}" ".*" "" 73 74# Start the program a second time, GDB should land in procedure Second 75# this time. 76 77if { [gdb_start_cmd] < 0 } { 78 fail "start second" 79} else { 80 gdb_test "" \ 81 "second \\(\\) at .*second.adb.*" \ 82 "start second" 83} 84 85# Try again, this time with just changing the file time of first. 86 87clean_restart "${binfile}$EXEEXT" 88 89# Ensure we don't accidently use the main symbol cache. 90gdb_test_no_output "mt set symbol-cache-size 0" 91 92# Put something in the symbol lookup cache that will get looked up when 93# starting after having re-read symbols. PR 17855. 94gdb_breakpoint break_me 95 96gdb_test "shell touch ${binfile}$EXEEXT" ".*" "" 97gdb_test "shell sleep 1" ".*" "" 98 99if { [gdb_start_cmd] < 0 } { 100 # PR 17855: At this point gdb may have crashed or gotten an internal 101 # error, but we still need to detect this. Just issue any simple command 102 # to verify gdb is still running. This will establish in gdb.log whether 103 # gdb is still running. 104 gdb_test_no_output "set \$check_gdb_running = 0" "check gdb running" 105 fail "start just first" 106} else { 107 gdb_test "" \ 108 "first \\(\\) at .*first.adb.*" \ 109 "start just first" 110} 111