valgrind-infcall.exp revision 1.7
1# Copyright 2012-2017 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 16if [is_remote target] { 17 # The test always runs locally. 18 return 0 19} 20 21standard_testfile .c 22if {[build_executable $testfile.exp $testfile $srcfile {debug}] == -1} { 23 return -1 24} 25 26set test "spawn valgrind" 27set cmd "valgrind --vgdb-error=0 $binfile" 28set res [remote_spawn host $cmd] 29if { $res < 0 || $res == "" } { 30 verbose -log "Spawning $cmd failed." 31 unsupported $test 32 return -1 33} 34pass $test 35# Declare GDB now as running. 36set gdb_spawn_id $res 37 38# GDB started by vgdb stops already after the startup is executed, like with 39# non-extended gdbserver. It is also not correct to run/attach the inferior. 40set use_gdb_stub 1 41 42set test "valgrind started" 43# The trailing '.' differs for different memcheck versions. 44gdb_test_multiple "" $test { 45 -re "Memcheck, a memory error detector\\.?\r\n" { 46 pass $test 47 } 48 -re "valgrind: failed to start tool 'memcheck' for platform '.*': No such file or directory" { 49 unsupported $test 50 return -1 51 } 52 -re "valgrind: wrong ELF executable class" { 53 unsupported $test 54 return -1 55 } 56 -re "command not found" { 57 # The spawn succeeded, but then valgrind was not found - e.g. if 58 # we spawned SSH to a remote system. 59 unsupported $test 60 return -1 61 } 62 -re "valgrind: Bad option.*--vgdb-error=0" { 63 # valgrind is not >= 3.7.0. 64 unsupported $test 65 return -1 66 } 67} 68 69set test "vgdb prompt" 70# The trailing '.' differs for different memcheck versions. 71gdb_test_multiple "" $test { 72 -re " (target remote | \[^\r\n\]*/vgdb \[^\r\n\]*)\r\n" { 73 set vgdbcmd $expect_out(1,string) 74 pass $test 75 } 76} 77 78# Do not kill valgrind. 79set valgrind_spawn_id [board_info host fileid] 80unset gdb_spawn_id 81set board [host_info name] 82unset_board_info fileid 83 84clean_restart $testfile 85 86# Make sure we're disconnected, in case we're testing with the 87# native-extended-gdbserver board, where gdb_start/gdb_load spawn 88# gdbserver and connect to it. 89gdb_test "disconnect" ".*" 90 91gdb_test "$vgdbcmd" " in \\.?_start .*" "target remote for vgdb" 92 93gdb_test "monitor v.set gdb_output" "valgrind output will go to gdb.*" 94 95set continue_count 1 96set loop 1 97while {$loop && $continue_count < 100} { 98 set test "continue #$continue_count" 99 gdb_test_multiple "continue" "" { 100 -re "Invalid free\\(\\).*: main .*\r\n$gdb_prompt $" { 101 pass $test 102 set loop 0 103 } 104 -re "Remote connection closed.*\r\n$gdb_prompt $" { 105 fail "$test (remote connection closed)" 106 # Only if valgrind got stuck. 107 kill_wait_spawned_process $valgrind_spawn_id 108 return -1 109 } 110 -re "The program is not being run\\.\r\n$gdb_prompt $" { 111 fail "$test (valgrind vgdb has terminated)" 112 # Only if valgrind got stuck. 113 kill_wait_spawned_process $valgrind_spawn_id 114 return -1 115 } 116 -re "\r\n$gdb_prompt $" { 117 pass "$test (false warning)" 118 } 119 } 120 set continue_count [expr $continue_count + 1] 121} 122 123set test "p gdb_test_infcall ()" 124gdb_test_multiple $test $test { 125 -re "unhandled instruction bytes.*\r\n$gdb_prompt $" { 126 fail $test 127 } 128 -re "Continuing \\.\\.\\..*\r\n\\\$1 = 2\r\n$gdb_prompt $" { 129 pass $test 130 } 131} 132 133# Only if valgrind got stuck. 134kill_wait_spawned_process $valgrind_spawn_id 135