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