1# Copyright 2016 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# Test an inferior function call which execs a new program. 17# This is a test for breakpoints/19546. 18 19standard_testfile 20 21set testfile2 "infcall-exec2" 22set srcfile2 "${testfile2}.c" 23set binfile2 [standard_output_file $testfile2] 24 25# Build the two executables for the test. 26if {[gdb_compile $srcdir/$subdir/$srcfile $binfile executable debug] != ""} { 27 untested "could not build $binfile" 28 return -1 29} 30if {[gdb_compile $srcdir/$subdir/$srcfile2 $binfile2 executable debug] != ""} { 31 untested "could not build $binfile2" 32 return -1 33} 34 35clean_restart $binfile 36 37if {![runto_main]} { 38 untested "could not run to main" 39 return -1 40} 41 42set expected_result "process $decimal is executing new program: $binfile2" 43append expected_result "\[\r\n\]+.*" 44append expected_result "Breakpoint 1, main .*at .*$srcfile2:$decimal" 45append expected_result ".*" 46 47gdb_test "call execlp \(\"$binfile2\", \"$binfile2\", \(char \*\)0\)" \ 48 $expected_result "call execlp" 49