1# Test `info auxv' and related functionality. 2 3# Copyright (C) 1992-2020 Free Software Foundation, Inc. 4 5# This program is free software; you can redistribute it and/or modify 6# it under the terms of the GNU General Public License as published by 7# the Free Software Foundation; either version 3 of the License, or 8# (at your option) any later version. 9# 10# This program is distributed in the hope that it will be useful, 11# but WITHOUT ANY WARRANTY; without even the implied warranty of 12# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13# GNU General Public License for more details. 14# 15# You should have received a copy of the GNU General Public License 16# along with this program. If not, see <http://www.gnu.org/licenses/>. 17 18# This file is based on corefile.exp which was written by Fred 19# Fish. (fnf@cygnus.com) 20 21if { ! [istarget "*-*-linux*"] && ! [istarget "*-*-solaris*"] } { 22 verbose "Skipping auxv.exp because of lack of support." 23 return 24} 25 26 27standard_testfile .c 28 29set corefile ${binfile}.corefile 30set gcorefile ${binfile}.gcore 31 32if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable \ 33 {debug additional_flags=-DUSE_RLIMIT}] != "" 34 && [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable \ 35 {debug}] != "" } { 36 untested "failed to compile" 37 return -1 38} 39 40# Use a fresh directory to confine the native core dumps. 41# Make it the working directory for the inferior. 42set coredir [standard_output_file coredir.[getpid]] 43file mkdir $coredir 44set core_works [expr [isnative] && ! [is_remote target]] 45 46# Run GDB on the test program up to where it will dump core. 47 48clean_restart ${binfile} 49gdb_test_no_output "set print sevenbit-strings" 50gdb_test_no_output "set width 0" 51 52if {$core_works} { 53 if {[gdb_test_no_output "set cwd $coredir" \ 54 "set cwd to temporary directory for core dumps"]} { 55 set core_works 0 56 } 57} 58 59if ![runto_main] then { 60 fail "can't run to main" 61 return 0 62} 63set print_core_line [gdb_get_line_number "ABORT;"] 64gdb_test "tbreak $print_core_line" 65gdb_test continue ".*ABORT;.*" 66 67proc fetch_auxv {test} { 68 global gdb_prompt 69 70 set auxv_lines {} 71 set bad -1 72 # Former trailing `\[\r\n\]+' may eat just \r leaving \n in the buffer 73 # corrupting the next matches. 74 if {[gdb_test_multiple "info auxv" $test { 75 -re "info auxv\r\n" { 76 exp_continue 77 } 78 -ex "The program has no auxiliary information now" { 79 set bad 1 80 exp_continue 81 } 82 -ex "Auxiliary vector is empty" { 83 set bad 1 84 exp_continue 85 } 86 -ex "No auxiliary vector found" { 87 set bad 1 88 exp_continue 89 } 90 -re "^\[0-9\]+\[ \t\]+(AT_\[^ \t\]+)\[^\r\n\]+\r\n" { 91 lappend auxv_lines $expect_out(0,string) 92 exp_continue 93 } 94 -re "^\[0-9\]+\[ \t\]+\\?\\?\\?\[^\r\n\]+\r\n" { 95 warning "Unrecognized tag value: $expect_out(0,string)" 96 set bad 1 97 lappend auxv_lines $expect_out(0,string) 98 exp_continue 99 } 100 -re "$gdb_prompt $" { 101 incr bad 102 } 103 -re "^\[^\r\n\]+\r\n" { 104 if {!$bad} { 105 warning "Unrecognized output: $expect_out(0,string)" 106 set bad 1 107 } 108 exp_continue 109 } 110 }] != 0} { 111 return {} 112 } 113 114 if {$bad} { 115 fail $test 116 return {} 117 } 118 119 pass $test 120 return $auxv_lines 121} 122 123set live_data [fetch_auxv "info auxv on live process"] 124 125# Now try gcore. 126set gcore_works [gdb_gcore_cmd "$gcorefile" "gcore"] 127 128# Let the program continue and die. 129gdb_test continue ".*Program received signal.*" "continue until signal" 130gdb_test continue ".*Program terminated with signal.*" "continue and terminate" 131 132# Now collect the core dump it left. 133set test "generate native core dump" 134if {$core_works} { 135 # Find the 136 set names [glob -nocomplain -directory $coredir *core*] 137 if {[llength $names] == 1} { 138 set file [file join $coredir [lindex $names 0]] 139 remote_exec build "mv $file $corefile" 140 pass $test 141 } else { 142 set core_works 0 143 warning "can't generate a core file - core tests suppressed - check ulimit -c" 144 unsupported $test 145 } 146} else { 147 unsupported $test 148} 149remote_exec build "rm -rf $coredir" 150 151# Now we can examine the core files and check that their data matches what 152# we saw in the process. Note that the exact data can vary between runs, 153# so it's important that the native core dump file and the gcore-created dump 154# both be from the same run of the program as we examined live. 155 156proc do_core_test {works corefile test1 test2} { 157 if {! $works} { 158 unsupported $test1 159 unsupported $test2 160 } else { 161 gdb_test "core $corefile" "Core was generated by.*" \ 162 "load core file for $test1" \ 163 "A program is being debugged already.*" "y" 164 set core_data [fetch_auxv $test1] 165 global live_data 166 if {$core_data == $live_data} { 167 pass $test2 168 } else { 169 fail $test2 170 } 171 } 172} 173 174do_core_test $core_works $corefile \ 175 "info auxv on native core dump" "matching auxv data from live and core" 176 177do_core_test $gcore_works $gcorefile \ 178 "info auxv on gcore-created dump" "matching auxv data from live and gcore" 179