1 # Copyright 1997, 1998, 1999, 2001, 2003, 2004, 2006, 2007, 2008, 2009, 2010
2 # Free Software Foundation, Inc.
4 # This program is free software; you can redistribute it and/or modify
5 # it under the terms of the GNU General Public License as published by
6 # the Free Software Foundation; either version 3 of the License, or
7 # (at your option) any later version.
9 # This program is distributed in the hope that it will be useful,
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 # GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License
15 # along with this program. If not, see <http://www.gnu.org/licenses/>.
17 # Test that GDB properly ignores invalid stabs.
18 # Also test that GDB can debug a .o file, and that it doesn't mind
19 # a file that's more minimal than what a compiler normally puts out.
24 # If the test directory was not created by configure then skip
26 if ![file isdirectory ${objdir}/${subdir}] then {
32 set srcfile ${objdir}/${subdir}/weird.s
33 set binfile ${objdir}/${subdir}/weirdx.o
35 if { [ get_compiler_info "$binfile" ] } {
39 if { $hp_cc_compiler || $hp_aCC_compiler } {
40 # The native hp-ux assembler does not support stabs at all.
41 # If the compiler is native hp-ux, of course the assembler is too.
42 # But if someone builds gcc with the native assembler (not recommended)
43 # rather than the gnu assembler, then this logic will not suppress it.
44 # -- chastain 2004-01-07
45 unsupported "stabs with hp-ux assembler"
53 # Mips/alpha targets that use gcc with mips-tfile put out the stabs
54 # assembler directives embedded in comments. If the assembler
55 # file is then processed with native cc, all stabs directives
57 # Skip the rest of the stabs tests for this case.
58 send_gdb "ptype inttype\n"
60 -re "^ptype inttype\r*\ntype = inttype.*$gdb_prompt $" {
63 -re ".*$gdb_prompt $" {
64 setup_xfail "mips-*-*"
65 setup_xfail "alpha-*-*"
66 fail "stabs not found"
69 default { fail "checking for stabs" }
77 print_weird_var attr32
78 print_weird_var attr33
79 print_weird_var attr35
80 print_weird_var attr36
81 print_weird_var attr37
82 print_weird_var attr38
83 print_weird_var attr39
84 print_weird_var attr41
85 print_weird_var attr42
86 print_weird_var attr43
87 print_weird_var attr44
88 print_weird_var attr46
89 print_weird_var attr47
90 print_weird_var attr58
91 print_weird_var attr59
92 print_weird_var attr60
93 print_weird_var attr61
94 print_weird_var attr62
95 print_weird_var attr63
96 print_weird_var attr64
97 print_weird_var attr65
98 print_weird_var attr66
99 print_weird_var attr67
100 print_weird_var attr68
101 print_weird_var attr69
102 print_weird_var attr70
103 print_weird_var attr71
104 print_weird_var attr72
105 print_weird_var attr73
106 print_weird_var attr74
107 print_weird_var attr75
108 print_weird_var attr76
109 print_weird_var attr77
110 print_weird_var attr78
111 print_weird_var attr79
112 print_weird_var attr80
113 print_weird_var attr81
114 print_weird_var attr82
115 print_weird_var attr83
116 print_weird_var attr84
117 print_weird_var attr85
118 print_weird_var attr86
119 print_weird_var attr87
120 print_weird_var attr88
121 print_weird_var attr89
122 print_weird_var attr90
123 print_weird_var attr91
124 print_weird_var attr92
125 print_weird_var attr93
126 print_weird_var attr94
127 print_weird_var attr95
128 print_weird_var attr96
129 print_weird_var attr97
130 print_weird_var attr98
131 print_weird_var attr99
132 print_weird_var attr100
133 print_weird_var attr101
134 print_weird_var attr102
135 print_weird_var attr103
136 print_weird_var attr104
137 print_weird_var attr105
138 print_weird_var attr106
139 print_weird_var attr107
140 print_weird_var attr108
141 print_weird_var attr109
142 print_weird_var attr110
143 print_weird_var attr111
144 print_weird_var attr112
145 print_weird_var attr113
146 print_weird_var attr114
147 print_weird_var attr115
148 print_weird_var attr116
149 print_weird_var attr117
150 print_weird_var attr118
151 print_weird_var attr119
152 print_weird_var attr120
153 print_weird_var attr121
154 print_weird_var attr122
155 print_weird_var attr123
156 print_weird_var attr124
157 print_weird_var attr125
158 print_weird_var attr126
160 gdb_test "p const69" " = 69" "'e' constant on non-enum type"
161 gdb_test "whatis const69" "type = (unsigned int|inttype)" "whatis const69"
163 gdb_test "p sizeof (const70)" " = 2" "'e' constant with embedded type"
165 gdb_test "p constchar" " = 97 'a'" "char constant"
166 gdb_test "p constString1" " = \"Single quote String1\"" "String constant 1"
167 gdb_test "p constString2" " = \"Double quote String2\"" "String constant 2"
169 gdb_test "p constString3" " = \"String3 with embedded quote ' in the middle\"" "String constant 3"
170 gdb_test "p constString4" { = "String4 with embedded quote \\" in the middle"} "String constant 4"
171 gdb_test "p bad_neg0" " = \{field0 = 42, field2 =.*field3 = 45\}" "p bad_neg0"
173 gdb_test "ptype inttype" "type = (unsigned int|inttype)" "ptype on inttype"
174 gdb_test "p sizeof (float72type)" " = 9" "unrecognized floating point type"
176 # This big number needs to be kept as one piece
177 gdb_test "p/x int256var" " = 0x0*2a0000002b0000002c0000002d0000002d0000002c0000002b0000002a" "print very big integer"
179 gdb_test "whatis consth" "type = inttype" "whatis consth"
180 gdb_test "whatis consth2" "type = inttype" "whatis consth2"
182 # GDB does not yet understand S constants
184 gdb_test "p/x bad_neg0const" " = \{field0 = 0x11222211, field2 =.*\
185 field3 = 0x77888877\}" "print struct constant"
187 gdb_test "ptype bad_type0" "type = .*" "print bad_type0"
188 gdb_test "ptype bad_type1" "type = .*" "print bad_type1"
190 # GDB does not yet support arrays indexed by anything at all unusual
192 gdb_test "p array0" " = \\{42, 43, 44, 45, 46, 47\\}" "array0 with strange index"
194 gdb_test "p array1" " = \\{42, 43, 44\\}" "array1 with strange index"
196 # GDB does not yet support this feature
197 gdb_test "whatis one_var" "type = inttype_one" \
198 "whatis one_var (known failure in gdb 4.10)"
199 # But do make sure that it prints as something reasonable
200 gdb_test "whatis one_var" "type = inttype(|_one)" \
201 "whatis one_var test 2"
203 gdb_test "whatis two_var" "type = inttype_two" \
204 "whatis two_var (known failure in gdb 4.10)"
205 # But do make sure that it prints as something reasonable
206 gdb_test "whatis two_var" "type = inttype(|_two)" \
207 "whatis two_var test 2"
210 gdb_test "whatis pointer_to_int_var" "type = int \[*\]"
212 gdb_test "whatis intp_var" "type = intp"
214 gdb_test "p common0var0" "= 42"
215 # GDB seems to only understand common blocks local to a function.
216 # These variables never get relocated to be relative to the common
218 # I'm not sure whether it is valid to have a common block which
219 # is not local to a function.
221 gdb_test "p common0var1" "= 24"
223 gdb_test "p common0var2" "= 22"
226 proc print_weird_var { var } {
229 # Make sure that the variable gets printed out correctly, without
230 # any sort of warning message.
231 gdb_test_multiple "print $var" "variable $var printed property" {
232 -re "^print $var\r*\n.\[0-9\]* = 42.*$gdb_prompt $" {
233 pass "variable $var printed properly"
235 -re ".*$gdb_prompt $" {
236 fail "variable $var printed properly"
240 # Make sure that the stabs did get loaded in a sensible way.
241 # If somehow the stabs got skipped, then the above test can
242 # pass because GDB assumes int for variables without a stab.
244 # This doesn't work because 32=45 doesn't preserve the name in
245 # gdb (as of 14 Sep 93 anyway).
246 #gdb_test "whatis $var" "type = (unsigned int|inttype)"
248 # But the size should be right.
249 gdb_test "print sizeof ($var)" "= 4"
253 # Don't use gdb_load; it doesn't bitch if the loading produced some
254 # error messages during symbol reading.
257 set sedscript ${srcdir}/${subdir}/aout.sed
260 switch -glob ${target_triplet} {
262 set sedscript ${srcdir}/${subdir}/hppa.sed
265 set sedscript ${srcdir}/${subdir}/ecoff.sed
268 set sedscript ${srcdir}/${subdir}/xcoff.sed
272 set sedscript ${srcdir}/${subdir}/xcoff.sed
276 set sedscript ${srcdir}/${subdir}/aout.sed
279 set sedscript ${srcdir}/${subdir}/xcoff.sed
283 set sedscript ${srcdir}/${subdir}/ecoff.sed
287 # Hope this is a Unix box.
288 set exec_output [remote_exec build "sed" "${sedoptions} -f ${sedscript}" "${srcdir}/${subdir}/weird.def" "${srcfile}"]
289 if { [lindex $exec_output 0] != 0 } {
290 perror "Couldn't make test case. $exec_output"
294 if { [gdb_compile "${srcfile}" "${binfile}" object ""] != "" } {
299 remote_file build delete ${srcfile}
301 # Start with a fresh gdb
304 gdb_reinitialize_dir $srcdir/$subdir
306 set binfile [remote_download host ${binfile} object.o]
307 send_gdb "file $binfile\n"
308 # If $binfile is very long, a \r (but not a \n) will echo in the
309 # middle of the echo of the command. So to match the echo, we
310 # would like to match anything not containing \n
311 # (we would prefer to be sure not to match any warning message).
312 # But \[^\n\]* doesn't seem to work, so instead use the heuristic
313 # that a filename won't contain a space and a warning message will.
314 # But spaces following by backspaces aren't really spaces.
316 -re "^file (\[^ \]| +\008)*\r*\n" {
319 -re "A program is being debugged already.\[\r\n\]+Are you sure you want to change the file\\? \\(y or n\\)" {
323 -re "^Reading symbols from .*$binfile\\.\\.\\.done\.(|\r\nUsing host libthread_db library .*libthread_db.so.*\\.)\r\n$gdb_prompt $" {
324 pass "weirdx.o read without error"
326 -re ".*$gdb_prompt $" {
327 fail "Errors reading weirdx.o"
330 perror "couldn't load $binfile into $GDB (timed out)."
333 eof { fail "(eof) cannot read weirdx.o" }
338 remote_file host delete ${binfile}