Commit | Line | Data |
---|---|---|
6aba47ca | 1 | # Copyright 1997, 1998, 1999, 2001, 2003, 2004, 2006, 2007 |
fe11a27f | 2 | # Free Software Foundation, Inc. |
c906108c SS |
3 | |
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 2 of the License, or | |
7 | # (at your option) any later version. | |
8 | # | |
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. | |
13 | # | |
14 | # You should have received a copy of the GNU General Public License | |
15 | # along with this program; if not, write to the Free Software | |
16 | # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. | |
17 | ||
18 | # Please email any bugs, comments, and/or additions to this file to: | |
19 | # bug-gdb@prep.ai.mit.edu | |
20 | ||
21 | # Test that GDB properly ignores invalid stabs. | |
22 | # Also test that GDB can debug a .o file, and that it doesn't mind | |
23 | # a file that's more minimal than what a compiler normally puts out. | |
24 | if $tracelevel then { | |
25 | strace $tracelevel | |
26 | } | |
27 | ||
28 | # If the test directory was not created by configure then skip | |
29 | # this test. | |
30 | if ![file isdirectory ${objdir}/${subdir}] then { | |
31 | return 0 | |
32 | } | |
33 | ||
34 | set prms_id 0 | |
35 | set bug_id 0 | |
36 | ||
fe11a27f MC |
37 | set testfile weird |
38 | set srcfile ${objdir}/${subdir}/weird.s | |
39 | set binfile ${objdir}/${subdir}/weirdx.o | |
40 | ||
41 | if { [ get_compiler_info "$binfile" ] } { | |
42 | return -1 | |
43 | } | |
44 | ||
45 | if { $hp_cc_compiler || $hp_aCC_compiler } { | |
46 | # The native hp-ux assembler does not support stabs at all. | |
47 | # If the compiler is native hp-ux, of course the assembler is too. | |
48 | # But if someone builds gcc with the native assembler (not recommended) | |
49 | # rather than the gnu assembler, then this logic will not suppress it. | |
50 | # -- chastain 2004-01-07 | |
51 | unsupported "stabs with hp-ux assembler" | |
52 | continue | |
53 | } | |
54 | ||
c906108c SS |
55 | proc do_tests {} { |
56 | global binfile | |
57 | global gdb_prompt | |
58 | ||
59 | # Mips/alpha targets that use gcc with mips-tfile put out the stabs | |
60 | # assembler directives embedded in comments. If the assembler | |
61 | # file is then processed with native cc, all stabs directives | |
62 | # will be lost. | |
63 | # Skip the rest of the stabs tests for this case. | |
64 | send_gdb "ptype inttype\n" | |
65 | gdb_expect { | |
66 | -re "^ptype inttype\r*\ntype = inttype.*$gdb_prompt $" { | |
67 | pass "stabs found" | |
68 | } | |
69 | -re ".*$gdb_prompt $" { | |
70 | setup_xfail "mips-*-*" | |
71 | setup_xfail "alpha-*-*" | |
72 | fail "stabs not found" | |
73 | return | |
74 | } | |
75 | default { fail "checking for stabs" } | |
76 | } | |
77 | ||
78 | print_weird_var var0 | |
79 | print_weird_var var1 | |
80 | print_weird_var var2 | |
81 | print_weird_var var3 | |
82 | ||
83 | print_weird_var attr32 | |
84 | print_weird_var attr33 | |
85 | print_weird_var attr35 | |
86 | print_weird_var attr36 | |
87 | print_weird_var attr37 | |
88 | print_weird_var attr38 | |
89 | print_weird_var attr39 | |
90 | print_weird_var attr41 | |
91 | print_weird_var attr42 | |
92 | print_weird_var attr43 | |
93 | print_weird_var attr44 | |
94 | print_weird_var attr46 | |
95 | print_weird_var attr47 | |
96 | print_weird_var attr58 | |
97 | print_weird_var attr59 | |
98 | print_weird_var attr60 | |
99 | print_weird_var attr61 | |
100 | print_weird_var attr62 | |
101 | print_weird_var attr63 | |
102 | print_weird_var attr64 | |
103 | print_weird_var attr65 | |
104 | print_weird_var attr66 | |
105 | print_weird_var attr67 | |
106 | print_weird_var attr68 | |
107 | print_weird_var attr69 | |
108 | print_weird_var attr70 | |
109 | print_weird_var attr71 | |
110 | print_weird_var attr72 | |
111 | print_weird_var attr73 | |
112 | print_weird_var attr74 | |
113 | print_weird_var attr75 | |
114 | print_weird_var attr76 | |
115 | print_weird_var attr77 | |
116 | print_weird_var attr78 | |
117 | print_weird_var attr79 | |
118 | print_weird_var attr80 | |
119 | print_weird_var attr81 | |
120 | print_weird_var attr82 | |
121 | print_weird_var attr83 | |
122 | print_weird_var attr84 | |
123 | print_weird_var attr85 | |
124 | print_weird_var attr86 | |
125 | print_weird_var attr87 | |
126 | print_weird_var attr88 | |
127 | print_weird_var attr89 | |
128 | print_weird_var attr90 | |
129 | print_weird_var attr91 | |
130 | print_weird_var attr92 | |
131 | print_weird_var attr93 | |
132 | print_weird_var attr94 | |
133 | print_weird_var attr95 | |
134 | print_weird_var attr96 | |
135 | print_weird_var attr97 | |
136 | print_weird_var attr98 | |
137 | print_weird_var attr99 | |
138 | print_weird_var attr100 | |
139 | print_weird_var attr101 | |
140 | print_weird_var attr102 | |
141 | print_weird_var attr103 | |
142 | print_weird_var attr104 | |
143 | print_weird_var attr105 | |
144 | print_weird_var attr106 | |
145 | print_weird_var attr107 | |
146 | print_weird_var attr108 | |
147 | print_weird_var attr109 | |
148 | print_weird_var attr110 | |
149 | print_weird_var attr111 | |
150 | print_weird_var attr112 | |
151 | print_weird_var attr113 | |
152 | print_weird_var attr114 | |
153 | print_weird_var attr115 | |
154 | print_weird_var attr116 | |
155 | print_weird_var attr117 | |
156 | print_weird_var attr118 | |
157 | print_weird_var attr119 | |
158 | print_weird_var attr120 | |
159 | print_weird_var attr121 | |
160 | print_weird_var attr122 | |
161 | print_weird_var attr123 | |
162 | print_weird_var attr124 | |
163 | print_weird_var attr125 | |
164 | print_weird_var attr126 | |
165 | ||
166 | gdb_test "p const69" " = 69" "'e' constant on non-enum type" | |
167 | gdb_test "whatis const69" "type = (unsigned int|inttype)" "whatis const69" | |
168 | ||
169 | gdb_test "p sizeof (const70)" " = 2" "'e' constant with embedded type" | |
170 | ||
171 | gdb_test "p bad_neg0" " = \{field0 = 42, field2 =.*field3 = 45\}" "p bad_neg0" | |
172 | ||
173 | gdb_test "ptype inttype" "type = (unsigned int|inttype)" "ptype on inttype" | |
174 | gdb_test "p sizeof (float72type)" " = 9" "unrecognized floating point type" | |
175 | ||
176 | # This big number needs to be kept as one piece | |
177 | gdb_test "p/x int256var" " = 0x0*2a0000002b0000002c0000002d0000002d0000002c0000002b0000002a" "print very big integer" | |
178 | ||
179 | gdb_test "whatis consth" "type = inttype" "whatis consth" | |
180 | gdb_test "whatis consth2" "type = inttype" "whatis consth2" | |
181 | ||
182 | # GDB does not yet understand S constants | |
183 | setup_xfail "*-*-*" | |
184 | gdb_test "p/x bad_neg0const" " = \{field0 = 0x11222211, field2 =.*\ | |
185 | field3 = 0x77888877\}" "print struct constant" | |
186 | ||
187 | gdb_test "ptype bad_type0" "type = .*" "print bad_type0" | |
188 | gdb_test "ptype bad_type1" "type = .*" "print bad_type1" | |
189 | ||
190 | # GDB does not yet support arrays indexed by anything at all unusual | |
191 | setup_xfail "*-*-*" | |
cb135b83 | 192 | gdb_test "p array0" " = \\{42, 43, 44, 45, 46, 47\\}" "array0 with strange index" |
c906108c | 193 | setup_xfail "*-*-*" |
cb135b83 | 194 | gdb_test "p array1" " = \\{42, 43, 44\\}" "array1 with strange index" |
c906108c SS |
195 | |
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" | |
202 | ||
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" | |
208 | ||
209 | setup_xfail "*-*-*" | |
210 | gdb_test "whatis pointer_to_int_var" "type = int \[*\]" | |
211 | setup_xfail "*-*-*" | |
212 | gdb_test "whatis intp_var" "type = intp" | |
213 | ||
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 | |
217 | # block. | |
218 | # I'm not sure whether it is valid to have a common block which | |
219 | # is not local to a function. | |
220 | setup_xfail "*-*-*" | |
221 | gdb_test "p common0var1" "= 24" | |
222 | setup_xfail "*-*-*" | |
223 | gdb_test "p common0var2" "= 22" | |
c906108c SS |
224 | } |
225 | ||
226 | proc print_weird_var { var } { | |
227 | global gdb_prompt | |
228 | ||
229 | # Make sure that the variable gets printed out correctly, without | |
230 | # any sort of warning message. | |
32a13b1a | 231 | gdb_test_multiple "print $var" "variable $var printed property" { |
c906108c SS |
232 | -re "^print $var\r*\n.\[0-9\]* = 42.*$gdb_prompt $" { |
233 | pass "variable $var printed properly" | |
234 | } | |
235 | -re ".*$gdb_prompt $" { | |
0398c9aa | 236 | fail "variable $var printed properly" |
c906108c | 237 | } |
c906108c SS |
238 | } |
239 | ||
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. | |
243 | ||
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)" | |
247 | ||
248 | # But the size should be right. | |
249 | gdb_test "print sizeof ($var)" "= 4" | |
250 | } | |
251 | ||
252 | ||
253 | # Don't use gdb_load; it doesn't bitch if the loading produced some | |
254 | # error messages during symbol reading. | |
c906108c SS |
255 | |
256 | global target_os | |
257 | set sedscript ${srcdir}/${subdir}/aout.sed | |
258 | switch -glob ${target_triplet} { | |
259 | "hppa*-*-*" { | |
260 | set sedscript ${srcdir}/${subdir}/hppa.sed | |
261 | } | |
262 | "mips-*-ecoff" { | |
263 | set sedscript ${srcdir}/${subdir}/ecoff.sed | |
264 | } | |
265 | "powerpc-*-aix*" { | |
266 | set sedscript ${srcdir}/${subdir}/xcoff.sed | |
267 | } | |
268 | "rs6000-*-aix*" { | |
269 | set sedscript ${srcdir}/${subdir}/xcoff.sed | |
270 | } | |
271 | "*-*-aout" { | |
272 | set sedscript ${srcdir}/${subdir}/aout.sed | |
273 | } | |
274 | "*-*-xcoff" { | |
275 | set sedscript ${srcdir}/${subdir}/xcoff.sed | |
276 | } | |
277 | "alpha-*-*" { | |
278 | set sedscript ${srcdir}/${subdir}/ecoff.sed | |
279 | } | |
280 | } | |
281 | ||
c906108c SS |
282 | # Hope this is a Unix box. |
283 | set exec_output [remote_exec build "sed" "-f ${sedscript}" "${srcdir}/${subdir}/weird.def" "${srcfile}"] | |
284 | if { [lindex $exec_output 0] != 0 } { | |
285 | perror "Couldn't make test case. $exec_output" | |
286 | return -1 | |
287 | } | |
288 | ||
289 | if { [gdb_compile "${srcfile}" "${binfile}" object ""] != "" } { | |
b60f0898 JB |
290 | untested weird.exp |
291 | return -1 | |
c906108c SS |
292 | } |
293 | ||
294 | remote_file build delete ${srcfile} | |
295 | ||
296 | # Start with a fresh gdb | |
297 | gdb_exit | |
298 | gdb_start | |
299 | gdb_reinitialize_dir $srcdir/$subdir | |
300 | ||
301 | set binfile [remote_download host ${binfile} object.o] | |
302 | send_gdb "file $binfile\n" | |
303 | # If $binfile is very long, a \r (but not a \n) will echo in the | |
304 | # middle of the echo of the command. So to match the echo, we | |
305 | # would like to match anything not containing \n | |
306 | # (we would prefer to be sure not to match any warning message). | |
307 | # But \[^\n\]* doesn't seem to work, so instead use the heuristic | |
308 | # that a filename won't contain a space and a warning message will. | |
309 | # But spaces following by backspaces aren't really spaces. | |
310 | gdb_expect 60 { | |
311 | -re "^file (\[^ \]| +\008)*\r*\n" { | |
312 | exp_continue | |
313 | } | |
4c42eaff | 314 | -re "A program is being debugged already.\[\r\n\]+Are you sure you want to change the file\\? \\(y or n\\)" { |
c906108c SS |
315 | send_gdb "y\n" |
316 | exp_continue | |
317 | } | |
3b611f1a | 318 | -re "^Reading symbols from .*$binfile\\.\\.\\.done\.(|\r\nUsing host libthread_db library .*libthread_db.so.*\\.)\r\n$gdb_prompt $" { |
c906108c SS |
319 | pass "weirdx.o read without error" |
320 | } | |
321 | -re ".*$gdb_prompt $" { | |
322 | fail "Errors reading weirdx.o" | |
323 | } | |
324 | timeout { | |
325 | perror "couldn't load $binfile into $GDB (timed out)." | |
326 | return -1 | |
327 | } | |
328 | eof { fail "(eof) cannot read weirdx.o" } | |
329 | } | |
330 | ||
331 | do_tests | |
332 | ||
333 | remote_file host delete ${binfile} | |
334 | ||
335 | return 0 |