Remove superfluous semicolons from testsuite throughout.
[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.base / auxv.exp
CommitLineData
d65308ae
RM
1# Test `info auxv' and related functionality.
2
28e7fd62 3# Copyright (C) 1992-2013 Free Software Foundation, Inc.
d65308ae
RM
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
e22f8b7c 7# the Free Software Foundation; either version 3 of the License, or
d65308ae
RM
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
e22f8b7c 16# along with this program. If not, see <http://www.gnu.org/licenses/>.
d65308ae 17
d65308ae
RM
18# This file is based on corefile.exp which was written by Fred
19# Fish. (fnf@cygnus.com)
20
0155cc76
NS
21if { ! [istarget "*-*-linux*"] && ! [istarget "*-*-solaris*"] } {
22 verbose "Skipping auxv.exp because of lack of support."
23 return
24}
25
d65308ae
RM
26
27set testfile "auxv"
28set srcfile ${testfile}.c
29set binfile ${objdir}/${subdir}/${testfile}
30set corefile ${objdir}/${subdir}/${testfile}.corefile
31set gcorefile ${objdir}/${subdir}/${testfile}.gcore
32
2e98ca53
JK
33if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable \
34 {debug additional_flags=-DUSE_RLIMIT}] != ""
35 && [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable \
36 {debug}] != "" } {
78df6c56
JB
37 untested "couldn't compile ${srcdir}/${subdir}/${srcfile}"
38 return -1
d65308ae
RM
39}
40
41# Use a fresh directory to confine the native core dumps.
42# Make it the working directory for gdb and its child.
43set coredir "${objdir}/${subdir}/coredir.[getpid]"
44file mkdir $coredir
db9d7fc5 45set core_works [expr [isnative] && ! [is_remote target]]
d65308ae
RM
46
47# Run GDB on the test program up to where it will dump core.
48
49gdb_exit
50gdb_start
51gdb_reinitialize_dir $srcdir/$subdir
52gdb_load ${binfile}
27d3a1a2
MS
53gdb_test_no_output "set print sevenbit-strings"
54gdb_test_no_output "set width 0"
d65308ae
RM
55
56if {$core_works} {
57 if {[gdb_test "cd $coredir" ".*Working directory .*" \
58 "cd to temporary directory for core dumps"]} {
59 set core_works 0
60 }
61}
62
63if { ![runto_main] } then {
4ec70201 64 gdb_suppress_tests
d65308ae
RM
65}
66set print_core_line [gdb_get_line_number "ABORT;"]
67gdb_test "tbreak $print_core_line"
68gdb_test continue ".*ABORT;.*"
69
70proc fetch_auxv {test} {
71 global gdb_prompt
72
73 set auxv_lines {}
74 set bad -1
bcd5727b
JK
75 # Former trailing `\[\r\n\]+' may eat just \r leaving \n in the buffer
76 # corrupting the next matches.
d65308ae 77 if {[gdb_test_multiple "info auxv" $test {
bcd5727b 78 -re "info auxv\r\n" {
d65308ae
RM
79 exp_continue
80 }
c1b5970d 81 -ex "The program has no auxiliary information now" {
d65308ae 82 set bad 1
f1ed375c 83 exp_continue
d65308ae 84 }
c1b5970d 85 -ex "Auxiliary vector is empty" {
d65308ae 86 set bad 1
f1ed375c 87 exp_continue
d65308ae 88 }
c1b5970d 89 -ex "No auxiliary vector found" {
d65308ae 90 set bad 1
f1ed375c 91 exp_continue
d65308ae 92 }
bcd5727b 93 -re "^\[0-9\]+\[ \t\]+(AT_\[^ \t\]+)\[^\r\n\]+\r\n" {
d65308ae
RM
94 lappend auxv_lines $expect_out(0,string)
95 exp_continue
96 }
bcd5727b 97 -re "^\[0-9\]+\[ \t\]+\\?\\?\\?\[^\r\n\]+\r\n" {
d65308ae
RM
98 warning "Unrecognized tag value: $expect_out(0,string)"
99 set bad 1
100 lappend auxv_lines $expect_out(0,string)
101 exp_continue
102 }
bcd5727b 103 -re "$gdb_prompt $" {
f1ed375c 104 incr bad
d65308ae 105 }
bcd5727b 106 -re "^\[^\r\n\]+\r\n" {
c1b5970d
RM
107 if {!$bad} {
108 warning "Unrecognized output: $expect_out(0,string)"
109 set bad 1
110 }
111 exp_continue
112 }
d65308ae
RM
113 }] != 0} {
114 return {}
115 }
116
117 if {$bad} {
118 fail $test
119 return {}
120 }
121
122 pass $test
123 return $auxv_lines
124}
125
126set live_data [fetch_auxv "info auxv on live process"]
127
128# Now try gcore.
2d338fa9 129set gcore_works [gdb_gcore_cmd "$gcorefile" "gcore"]
d65308ae
RM
130
131# Let the program continue and die.
132gdb_test continue ".*Program received signal.*"
133gdb_test continue ".*Program terminated with signal.*"
134
135# Now collect the core dump it left.
136set test "generate native core dump"
137if {$core_works} {
138 # Find the
139 set names [glob -nocomplain -directory $coredir *core*]
140 if {[llength $names] == 1} {
141 set file [file join $coredir [lindex $names 0]]
142 remote_exec build "mv $file $corefile"
143 pass $test
144 } else {
145 set core_works 0
146 warning "can't generate a core file - core tests suppressed - check ulimit -c"
2e98ca53 147 unsupported $test
d65308ae
RM
148 }
149} else {
150 unsupported $test
151}
152remote_exec build "rm -rf $coredir"
153
154# Now we can examine the core files and check that their data matches what
155# we saw in the process. Note that the exact data can vary between runs,
156# so it's important that the native core dump file and the gcore-created dump
157# both be from the same run of the program as we examined live.
158
159proc do_core_test {works corefile test1 test2} {
160 if {! $works} {
161 unsupported $test1
162 unsupported $test2
163 } else {
164 gdb_test "core $corefile" "Core was generated by.*" \
165 "load core file for $test1" \
166 "A program is being debugged already.*" "y"
167 set core_data [fetch_auxv $test1]
168 global live_data
169 if {$core_data == $live_data} {
170 pass $test2
171 } else {
172 fail $test2
173 }
174 }
175}
176
177do_core_test $core_works $corefile \
178 "info auxv on native core dump" "matching auxv data from live and core"
179
180do_core_test $gcore_works $gcorefile \
181 "info auxv on gcore-created dump" "matching auxv data from live and gcore"
This page took 1.037505 seconds and 4 git commands to generate.