1 # Copyright (C) 1988, 1990, 1991, 1992, 1995, 1997 Free Software Foundation, Inc.
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 2 of the License, or
6 # (at your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this program; if not, write to the Free Software
15 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
17 # Please email any bugs, comments, and/or additions to this file to:
18 # bug-gdb@prep.ai.mit.edu
20 # This file was written by Rob Savoye. (rob@cygnus.com)
27 # test running programs
33 set srcfile ${testfile}.c
34 set binfile ${objdir}/${subdir}/${testfile}
35 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
36 gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
39 # Create and source the file that provides information about the compiler
40 # used to compile the test case.
41 if [get_compiler_info ${binfile}] {
45 # Start with a fresh gdb.
49 gdb_reinitialize_dir $srcdir/$subdir
52 # Define a procedure to set up an xfail for all targets that put out a
53 # `long' type as an `int' type.
54 # Sun/Ultrix cc have this problem.
55 # It was said that COFF targets can not distinguish int from long either.
57 proc setup_xfail_on_long_vs_int {} {
61 setup_xfail "*-sun-sunos4*" "*-*-ultrix*" "i*86-sequent-bsd*"
66 # Test whatis command with basic C types
68 # The name printed now (as of 23 May 1993) is whatever name the compiler
69 # uses in the stabs. So we need to deal with names both from gcc and
73 gdb_test "whatis v_char" \
74 "type = (unsigned char|char)" \
77 # If we did not use the signed keyword when compiling the file, don't
78 # expect GDB to know that char is signed.
79 if { $hp_cc_compiler || $hp_aCC_compiler } {
80 set signed_keyword_not_used 1
82 if $signed_keyword_not_used then {
83 set signed_char "char"
85 set signed_char "signed char"
87 setup_xfail "a29k-*-*"
88 if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix*" }
89 gdb_test "whatis v_signed_char" \
90 "type = $signed_char" \
93 gdb_test "whatis v_unsigned_char" \
94 "type = unsigned char" \
95 "whatis unsigned char"
97 gdb_test "whatis v_short" \
98 "type = (short|short int)" \
101 gdb_test "whatis v_signed_short" \
102 "type = (short|short int|signed short|signed short int)" \
103 "whatis signed short"
105 gdb_test "whatis v_unsigned_short" \
106 "type = (unsigned short|short unsigned int)" \
107 "whatis unsigned short"
109 gdb_test "whatis v_int" \
113 gdb_test "whatis v_signed_int" \
114 "type = (signed |)int" \
117 gdb_test "whatis v_unsigned_int" \
118 "type = unsigned int" \
119 "whatis unsigned int"
121 setup_xfail_on_long_vs_int
122 # AIX xlc gets this wrong and unsigned long right. Go figure.
123 if {!$gcc_compiled} then {setup_xfail "rs6000-*-aix*"}
124 gdb_test "whatis v_long" \
125 "type = (long|long int)" \
128 setup_xfail_on_long_vs_int
129 # AIX xlc gets this wrong and unsigned long right. Go figure.
130 if {!$gcc_compiled} then {setup_xfail "rs6000-*-aix*"}
131 gdb_test "whatis v_signed_long" \
132 "type = (signed |)(long|long int)" \
135 setup_xfail_on_long_vs_int
136 gdb_test "whatis v_unsigned_long" \
137 "type = (unsigned long|long unsigned int)" \
138 "whatis unsigned long"
140 gdb_test "whatis v_float" \
144 gdb_test "whatis v_double" \
149 # test whatis command with arrays
151 # We already tested whether char prints as "char", so here we accept
152 # "unsigned char", "signed char", and other perversions. No need for more
153 # than one xfail for the same thing.
154 gdb_test "whatis v_char_array" \
155 "type = (signed |unsigned |)char \\\[2\\\]" \
158 gdb_test "whatis v_signed_char_array" \
159 "type = (signed |unsigned |)char \\\[2\\\]" \
160 "whatis signed char array"
162 gdb_test "whatis v_unsigned_char_array" \
163 "type = unsigned char \\\[2\\\]" \
164 "whatis unsigned char array"
166 gdb_test "whatis v_short_array" \
167 "type = (short|short int) \\\[2\\\]" \
170 gdb_test "whatis v_signed_short_array" \
171 "type = (signed |)(short|short int) \\\[2\\\]" \
172 "whatis signed short array"
174 gdb_test "whatis v_unsigned_short_array" \
175 "type = (unsigned short|short unsigned int) \\\[2\\\]" \
176 "whatis unsigned short array"
178 gdb_test "whatis v_int_array" \
179 "type = int \\\[2\\\]" \
182 gdb_test "whatis v_signed_int_array" \
183 "type = (signed |)int \\\[2\\\]" \
184 "whatis signed int array"
186 gdb_test "whatis v_unsigned_int_array" \
187 "type = unsigned int \\\[2\\\]" \
188 "whatis unsigned int array"
190 # We already tested whether long prints as long, so here we accept int
191 # No need for more than one xfail for the same thing.
192 gdb_test "whatis v_long_array" \
193 "type = (int|long|long int) \\\[2\\\]" \
196 gdb_test "whatis v_signed_long_array" \
197 "type = (signed |)(int|long|long int) \\\[2\\\]" \
198 "whatis signed long array"
200 gdb_test "whatis v_unsigned_long_array" \
201 "type = (unsigned (int|long|long int)|long unsigned int) \\\[2\\\]" \
202 "whatis unsigned long array"
204 gdb_test "whatis v_float_array" \
205 "type = float \\\[2\\\]" \
208 gdb_test "whatis v_double_array" \
209 "type = double \\\[2\\\]" \
210 "whatis double array"
213 # test whatis command with pointers
215 # We already tested whether char prints as char, so accept various perversions
216 # here. We especially want to make sure we test that it doesn't print as
218 gdb_test "whatis v_char_pointer" \
219 "type = (unsigned |signed |)char \\*" \
220 "whatis char pointer"
222 gdb_test "whatis v_signed_char_pointer" \
223 "type = (unsigned |signed |)char \\*" \
224 "whatis signed char pointer"
226 gdb_test "whatis v_unsigned_char_pointer" \
227 "type = unsigned char \\*" \
228 "whatis unsigned char pointer"
230 gdb_test "whatis v_short_pointer" \
231 "type = (short|short int) \\*" \
232 "whatis short pointer"
234 gdb_test "whatis v_signed_short_pointer" \
235 "type = (signed |)(short|short int) \\*" \
236 "whatis signed short pointer"
238 gdb_test "whatis v_unsigned_short_pointer" \
239 "type = (unsigned short|short unsigned int) \\*" \
240 "whatis unsigned short pointer"
242 gdb_test "whatis v_int_pointer" \
246 gdb_test "whatis v_signed_int_pointer" \
247 "type = (signed |)int \\*" \
248 "whatis signed int pointer"
250 gdb_test "whatis v_unsigned_int_pointer" \
251 "type = unsigned int \\*" \
252 "whatis unsigned int pointer"
254 # We already tested whether long prints as long, so here we accept int
255 gdb_test "whatis v_long_pointer" \
256 "type = (long|int|long int) \\*" \
257 "whatis long pointer"
259 gdb_test "whatis v_signed_long_pointer" \
260 "type = (signed |)(long|int|long int) \\*" \
261 "whatis signed long pointer"
263 gdb_test "whatis v_unsigned_long_pointer" \
264 "type = (unsigned (int|long|long int)|long unsigned int) \\*" \
265 "whatis unsigned long pointer"
267 gdb_test "whatis v_float_pointer" \
269 "whatis float pointer"
271 gdb_test "whatis v_double_pointer" \
272 "type = double \\*" \
273 "whatis double pointer"
276 if { $hp_aCC_compiler } {
277 set unstruct "unnamed\.struct\..*"
278 set ununion "unnamed\.union\..*"
280 set unstruct "\.\.\."
284 # test whatis command with structure types
285 gdb_test "whatis v_struct1" \
286 "type = struct t_struct" \
287 "whatis named structure"
289 gdb_test "whatis v_struct2" \
290 "type = struct \{$unstruct\}" \
291 "whatis unnamed structure"
294 # test whatis command with union types
295 gdb_test "whatis v_union" \
296 "type = union t_union" \
299 gdb_test "whatis v_union2" \
300 "type = union \{$ununion\}" \
301 "whatis unnamed union"
304 if { [istarget "hppa*-hp-hpux10.20"] && $hp_aCC_compiler } {
305 # On HP-UX 10.20 with aCC compiler and objdebug mode,
306 # we need the 'void' pattern; without objdebug mode,
307 # we still need to '' pattern.
308 # FIXME: need to look into this further.
315 # test whatis command with functions return type
316 gdb_test "whatis v_char_func" \
317 "type = (signed |unsigned |)char \\($void\\)" \
318 "whatis char function"
320 gdb_test "whatis v_signed_char_func" \
321 "type = (signed |unsigned |)char \\($void\\)" \
322 "whatis signed char function"
324 gdb_test "whatis v_unsigned_char_func" \
325 "type = unsigned char \\($void\\)" \
326 "whatis unsigned char function"
328 gdb_test "whatis v_short_func" \
329 "type = short (int |)\\($void\\)" \
330 "whatis short function"
332 gdb_test "whatis v_signed_short_func" \
333 "type = (signed |)short (int |)\\($void\\)" \
334 "whatis signed short function"
336 gdb_test "whatis v_unsigned_short_func" \
337 "type = (unsigned short|short unsigned int) \\($void\\)" \
338 "whatis unsigned short function"
340 gdb_test "whatis v_int_func" \
341 "type = int \\($void\\)" \
342 "whatis int function"
344 gdb_test "whatis v_signed_int_func" \
345 "type = (signed |)int \\($void\\)" \
346 "whatis signed int function"
348 gdb_test "whatis v_unsigned_int_func" \
349 "type = unsigned int \\($void\\)" \
350 "whatis unsigned int function"
352 gdb_test "whatis v_long_func" \
353 "type = (long|int|long int) \\($void\\)" \
354 "whatis long function"
356 gdb_test "whatis v_signed_long_func" \
357 "type = (signed |)(int|long|long int) \\($void\\)" \
358 "whatis signed long function"
360 gdb_test "whatis v_unsigned_long_func" \
361 "type = (unsigned (int|long|long int)|long unsigned int) \\($void\\)" \
362 "whatis unsigned long function"
364 # Sun /bin/cc calls this a function returning double.
365 if {!$gcc_compiled} then {setup_xfail "*-sun-sunos4*"}
366 gdb_test "whatis v_float_func" \
367 "type = float \\($void\\)" \
368 "whatis float function"
370 gdb_test "whatis v_double_func" \
371 "type = double \\($void\\)" \
372 "whatis double function" \
375 # test whatis command with some misc complicated types
376 gdb_test "whatis s_link" \
377 "type = struct link \\*" \
378 "whatis complicated structure"
380 gdb_test "whatis u_link" \
381 "type = union tu_link" \
382 "whatis complicated union"
385 # test whatis command with enumerations
386 gdb_test "whatis clunker" \
391 # test whatis command with nested struct and union
392 gdb_test "whatis nested_su" \
393 "type = struct outer_struct" \
394 "whatis outer structure"
396 gdb_test "whatis nested_su.outer_int" \
398 "whatis outer structure member"
400 if {$hp_aCC_compiler} {
401 set outer "outer_struct::"
406 gdb_test "whatis nested_su.inner_struct_instance" \
407 "type = struct ${outer}inner_struct" \
408 "whatis inner structure"
410 gdb_test "whatis nested_su.inner_struct_instance.inner_int" \
412 "whatis inner structure member"
414 gdb_test "whatis nested_su.inner_union_instance" \
415 "type = union ${outer}inner_union" \
418 gdb_test "whatis nested_su.inner_union_instance.inner_union_int" \
420 "whatis inner union member"