1 # Copyright
1988, 1990, 1991, 1992, 1994, 1995, 1996, 1997, 1999, 2000, 2002,
2 #
2003, 2007, 2008 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 # 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 srcfile0 $
{testfile
}.c
34 set srcfile1 $
{testfile
}1.c
35 set binfile $
{objdir
}/$
{subdir
}/$
{testfile
}
37 if { [gdb_compile
"${srcdir}/${subdir}/${srcfile0}" "${binfile}0.o" object {debug}] != "" } {
41 if { [gdb_compile
"${srcdir}/${subdir}/${srcfile1}" "${binfile}1.o" object {debug}] != "" } {
45 if { [gdb_compile
"${binfile}0.o ${binfile}1.o" "${binfile}" executable {debug}] != "" } {
50 # Create and source the file that provides information about the compiler
51 # used to
compile the test case.
52 if [get_compiler_info $
{binfile
}] {
58 gdb_reinitialize_dir $srcdir
/$subdir
61 # Test ptype of unnamed enumeration members before
any action causes
62 # the partial symbol table to be expanded to full symbols. This fails
63 # with stabs compilers which fail to use a nameless stab
(such as
64 # pre
-2.4.5 versions of gcc and most non
-gcc compilers
).
66 send_gdb
"ptype red1\n"
68 -re
"type = enum primary1_tag \{red1, green1, blue1\}.*$gdb_prompt $"\
70 # The workaround is in effect. As this is a compiler
, not GDB
,
71 # bug
, we
'll make it a PASS but perhaps it should be an XFAIL.
72 pass "ptype unnamed enumeration member (worked around)"
74 -re "type = enum \{red1, green1, blue1\}.*$gdb_prompt $"\
75 { pass "ptype unnamed enumeration member" }
76 -re ".*$gdb_prompt $" { fail "ptype unnamed enumeration member" }
77 timeout { fail "(timeout) ptype unnamed enumeration member" }
81 # test ptype command with structures
83 # Here and elsewhere, we accept
84 # "long", "long int", or "int" for long variables (whatis.exp already
85 # has an XFAIL for "int" (Sun cc bug), so no need to fail it here).
86 gdb_test "ptype struct t_struct" "type = struct t_struct \{.*\[\r\n\] (unsigned |)char v_char_member;.*\[\r\n\] (short|short int) v_short_member;.*\[\r\n\] int v_int_member;.*\[\r\n\] (long|long int|int) v_long_member;.*\[\r\n\] float v_float_member;.*\[\r\n\] double v_double_member;.*\[\r\n\]\}.*" "ptype structure"
89 # Test the equivalence between '.
' and '->' for struct member references.
91 if [gdb_test "ptype v_struct1.v_float_member" "type = float"]<0 then {
94 if [gdb_test "ptype v_struct1->v_float_member" "type = float"]<0 then {
97 if [gdb_test "ptype v_t_struct_p.v_float_member" "type = float"]<0 then {
100 if [gdb_test "ptype v_t_struct_p->v_float_member" "type = float"]<0 then {
105 # IBM's xlc puts out bogus stabs
--the stuff field is type
42,
106 # which isn
't defined.
108 gdb_test "ptype struct link" "type = struct link \{\[\r\n\]+\[ \t\]+struct link \\*next;\[\r\n\]+\[ \t\]+struct link \\*\\(\\*linkfunc\\)\\((struct link \\*, int|void|)\\);\[\r\n\]+\[ \t\]+struct t_struct stuff.1..2..3.;\[\r\n\]+\}.*" "ptype linked list structure"
111 # test ptype command with unions
113 gdb_test "ptype union t_union" "type = union t_union \{.*\[\r\n\] (unsigned |)char v_char_member;.*\[\r\n\] (short|short int) v_short_member;.*\[\r\n\] int v_int_member;.*\[\r\n\] (long|long int|int) v_long_member;.*\[\r\n\] float v_float_member;.*\[\r\n\] double v_double_member;.*\[\r\n\]\}.*" "ptype union"
115 # IBM's xlc puts out bogus stabs
--the stuff field is type
42,
116 # which isn
't defined.
117 gdb_test "ptype union tu_link" "type = union tu_link \{\[\r\n\]+\[ \t\]+struct link \\*next;\[\r\n\]+\[ \t\]+struct link \\*\\(\\*linkfunc\\)\\((struct link \\*, int|void|)\\);\[\r\n\]+\[ \t\]+struct t_struct stuff.1..2..3.;\[\r\n\]+\}.*" "ptype linked list union"
120 # test ptype command with enums
123 gdb_test "ptype primary" "type = enum .red, green, blue.*" "ptype unnamed enumeration"
125 gdb_test "ptype enum colors" "type = enum colors \{yellow, purple, pink\}.*" "ptype named enumeration"
129 # test ptype command with enums as typedef
131 gdb_test "ptype boolean" "type = enum (boolean |)\{FALSE, TRUE\}.*" "ptype unnamed typedef'd enumeration
"
133 # And check that whatis shows the
name, not
"enum {...}".
134 # This probably fails
for all DWARF
1 cases
, so assume so
for now.
-fnf
135 # The problem with xlc is that the stabs look like
136 #
:t51
=eFALSE
:0,TRUE
:1,;
139 # GDB
's behavior is correct; the type which the variable is defined
140 # as (51) doesn't have a
name. Only
55 has a
name.
142 if {!$gcc_compiled
&& !$hp_aCC_compiler
} {
143 setup_xfail
"rs6000-*-*" "i*86-*-sysv4*"
144 setup_xfail
"hppa*-*-*" CLLbs14773
147 #
For get_debug_format to
do its job
, we need to have a current source file.
148 gdb_test
"list main" ""
150 gdb_test
"whatis v_boolean" "type = (enum |)boolean" \
151 "whatis unnamed typedef'd enum (compiler bug in IBM's xlc)"
153 # Same thing with struct and union.
154 gdb_test
"ptype t_struct3" "type = struct (t_struct3 |)\{.*
155 *double v_double_member
;.
*
156 *int v_int_member
;.
*\
}" "printing typedef'd struct"
158 gdb_test
"ptype t_union3" "type = union (t_union3 |)\{.*
159 *double v_double_member
;.
*
160 *int v_int_member
;.
*\
}" "printing typedef'd union"
162 gdb_test
"ptype enum bvals" "type = enum bvals \{my_false, my_true\}.*" "ptype named typedef'd enumf'd enum"
165 # test ptype command with out
-of
-order enum
values
167 gdb_test
"ptype enum misordered" "type = enum misordered \{two = 2, one = 1, zero = 0, three = 3\}.*" "ptype misordered enumeration"
170 # test ptype command with a named enum
's value
172 gdb_test "ptype three" "type = enum misordered \{two = 2, one = 1, zero = 0, three = 3\}.*" "ptype named enumeration member"
174 gdb_test "ptype red" "type = enum \{red, green, blue\}.*" "ptype unnamed enumeration member #2"
177 # test ptype command with basic C types
179 # I've commented most of this out because it duplicates tests in whatis.exp.
180 # I
've just left in a token test or 2 which is designed to test that ptype
181 # acts like whatis for basic types. If it is thought to be necessary to
182 # test both whatis and ptype for all the types, the tests should be
183 # merged into whatis.exp, or else maintenance will be a royal pain -kingdon
184 #setup_xfail "mips-idt-*" "mips-sgi-*"
185 #send "ptype v_char\n"
187 # -re "type = char.*$gdb_prompt $" { pass "ptype char" }
188 # -re ".*$gdb_prompt $" { fail "ptype char" }
189 # timeout { fail "(timeout) ptype char" }
193 #setup_xfail "mips-*-*"
194 #send "ptype v_signed_char\n"
196 # -re "type = signed char.*$gdb_prompt $" { pass "ptype signed char" }
197 # -re ".*$gdb_prompt $" { fail "ptype signed char" }
198 # timeout { fail "(timeout) ptype signed char" }
202 #send "ptype v_unsigned_char\n"
204 # -re "type = unsigned char.*$gdb_prompt $" { pass "ptype unsigned char" }
205 # -re ".*$gdb_prompt $" { fail "ptype unsigned char" }
206 # timeout { fail "(timeout) ptype unsigned char" }
209 gdb_test "ptype v_short" "type = short(| int).*" "ptype short"
211 #send "ptype v_signed_short\n"
213 # -re "type = short.*$gdb_prompt $" { pass "ptype signed short" }
214 # -re ".*$gdb_prompt $" { fail "ptype signed short" }
215 # timeout { fail "(timeout) ptype signed short" }
219 #send "ptype v_unsigned_short\n"
221 # -re "type = unsigned short.*$gdb_prompt $" { pass "ptype unsigned short" }
222 # -re ".*$gdb_prompt $" { fail "ptype unsigned short" }
223 # timeout { fail "(timeout) ptype unsigned short" }
227 gdb_test "ptype v_int" "type = int.*" "ptype int"
229 #send "ptype v_signed_int\n"
231 # -re "type = int.*$gdb_prompt $" { pass "ptype signed int" }
232 # -re ".*$gdb_prompt $" { fail "ptype signed int" }
233 # timeout { fail "(timeout) ptype signed int" }
237 #send "ptype v_unsigned_int\n"
239 # -re "type = unsigned int.*$gdb_prompt $" { pass "ptype unsigned int" }
240 # -re ".*$gdb_prompt $" { fail "ptype unsigned int" }
241 # timeout { fail "(timeout) ptype unsigned int" }
245 #send "ptype v_long\n"
247 # -re "type = long.*$gdb_prompt $" { pass "ptype long" }
248 # -re ".*$gdb_prompt $" { fail "ptype long" }
249 # timeout { fail "(timeout) ptype long" }
253 #send "ptype v_signed_long\n"
255 # -re "type = long.*$gdb_prompt $" { pass "ptype signed long" }
256 # -re ".*$gdb_prompt $" { fail "ptype signed long" }
257 # timeout { fail "(timeout) ptype signed long" }
261 #send "ptype v_unsigned_long\n"
263 # -re "type = unsigned long.*$gdb_prompt $" { pass "ptype unsigned long" }
264 # -re ".*$gdb_prompt $" { fail "ptype unsigned long" }
265 # timeout { fail "(timeout) ptype unsigned long" }
269 #send "ptype v_float\n"
271 # -re "type = float.*$gdb_prompt $" { pass "ptype float" }
272 # -re ".*$gdb_prompt $" { fail "ptype float" }
273 # timeout { fail "(timeout) ptype float" }
277 #send "ptype v_double\n"
279 # -re "type = double.*$gdb_prompt $" { pass "ptype double" }
280 # -re ".*$gdb_prompt $" { fail "ptype double" }
281 # timeout { fail "(timeout) ptype double" }
286 # test ptype command with arrays
288 #setup_xfail "mips-idt-*" "mips-sgi-*"
289 #send "ptype v_char_array\n"
291 # -re "type = char .2..*$gdb_prompt $" { pass "ptype char array" }
292 # -re ".*$gdb_prompt $" { fail "ptype char array" }
293 # timeout { fail "(timeout) ptype char array" }
297 #setup_xfail "mips-*-*"
298 #send "ptype v_signed_char_array\n"
300 # -re "type = (|signed )char .2..*$gdb_prompt $" { pass "ptype signed char array" }
301 # -re ".*$gdb_prompt $" { fail "ptype signed char array" }
302 # timeout { fail "(timeout) ptype signed char array" }
306 #send "ptype v_unsigned_char_array\n"
308 # -re "type = unsigned char .2..*$gdb_prompt $" { pass "ptype unsigned char array" }
309 # -re ".*$gdb_prompt $" { fail "ptype unsigned char array" }
310 # timeout { fail "(timeout) ptype unsigned char array" }
315 #send "ptype v_int_array\n"
317 # -re "type = int .2..*$gdb_prompt $" { pass "ptype int array" }
318 # -re ".*$gdb_prompt $" { fail "ptype int array" }
319 # timeout { fail "(timeout) ptype int array" }
323 #send "ptype v_signed_int_array\n"
325 # -re "type = int .2..*$gdb_prompt $" { pass "ptype signed int array" }
326 # -re ".*$gdb_prompt $" { fail "ptype signed int array" }
327 # timeout { fail "(timeout) ptype signed int array" }
331 #send "ptype v_unsigned_int_array\n"
333 # -re "type = unsigned int .2..*$gdb_prompt $" { pass "ptype unsigned int array" }
334 # -re ".*$gdb_prompt $" { fail "ptype unsigned int array" }
335 # timeout { fail "(timeout) ptype unsigned int array" }
339 #send "ptype v_long_array\n"
341 # -re "type = (long|int|long int) .2..*$gdb_prompt $" {
342 # pass "ptype long array" }
343 # -re ".*$gdb_prompt $" { fail "ptype long array" }
344 # timeout { fail "(timeout) ptype long array" }
348 #send "ptype v_signed_long_array\n"
350 # -re "type = (long|int|long int) .2..*$gdb_prompt $" {
351 # pass "ptype signed long array" }
352 # -re ".*$gdb_prompt $" { fail "ptype signed long array" }
353 # timeout { fail "(timeout) ptype signed long array" }
357 #send "ptype v_unsigned_long_array\n"
359 # -re "type = unsigned long .2..*$gdb_prompt $" { pass "ptype unsigned long array" }
360 # -re ".*$gdb_prompt $" { fail "ptype unsigned long array" }
361 # timeout { fail "(timeout) ptype unsigned long array" }
365 #send "ptype v_float_array\n"
367 # -re "type = float .2..*$gdb_prompt $" { pass "ptype float array" }
368 # -re ".*$gdb_prompt $" { fail "ptype float array" }
369 # timeout { fail "(timeout) ptype float array" }
373 #send "ptype v_double_array\n"
375 # -re "type = double .2..*$gdb_prompt $" { pass "ptype double array" }
376 # -re ".*$gdb_prompt $" { fail "ptype double array" }
377 # timeout { fail "(timeout) ptype double array" }
381 if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" "i*86-*-sysv4*" }
382 if {$hp_aCC_compiler} {setup_xfail "hppa*-*-*"}
383 gdb_test "ptype t_char_array" "type = (|unsigned )char \\\[0?\\\]"
387 ## test ptype command with pointers
389 #setup_xfail "mips-idt-*" "mips-sgi-*"
390 #send "ptype v_char_pointer\n"
392 # -re "type = char \*.*$gdb_prompt $" { pass "ptype char pointer" }
393 # -re ".*$gdb_prompt $" { fail "ptype char pointer" }
394 # timeout { fail "(timeout) ptype char pointer" }
398 #setup_xfail "mips-*-*"
399 #send "ptype v_signed_char_pointer\n"
401 # -re "type = (|signed )char \*.*$gdb_prompt $"
402 # { pass "ptype signed char pointer" }
403 # -re ".*$gdb_prompt $" { fail "ptype signed char pointer" }
404 # timeout { fail "(timeout) ptype signed char pointer" }
408 #send "ptype v_unsigned_char_pointer\n"
410 # -re "type = unsigned char \*.*$gdb_prompt $" { pass "ptype unsigned char pointer" }
411 # -re ".*$gdb_prompt $" { fail "ptype unsigned char pointer" }
412 # timeout { fail "(timeout) ptype unsigned char pointer" }
416 #send "ptype v_short_pointer\n"
418 # -re "type = (short|short int) \*.*$gdb_prompt $" { pass "ptype short pointer" }
419 # -re ".*$gdb_prompt $" { fail "ptype short pointer" }
420 # timeout { fail "(timeout) ptype short pointer" }
424 #send "ptype v_signed_short_pointer\n"
426 # -re "type = short \*.*$gdb_prompt $" { pass "ptype signed short pointer" }
427 # -re ".*$gdb_prompt $" { fail "ptype signed short pointer" }
428 # timeout { fail "(timeout) ptype signed short pointer" }
432 #send "ptype v_unsigned_short_pointer\n"
434 # -re "type = unsigned short \*.*$gdb_prompt $" { pass "ptype unsigned short pointer" }
435 # -re ".*$gdb_prompt $" { fail "ptype unsigned short pointer" }
436 # timeout { fail "(timeout) ptype unsigned short pointer" }
440 #send "ptype v_int_pointer\n"
442 # -re "type = int \*.*$gdb_prompt $" { pass "ptype int pointer" }
443 # -re ".*$gdb_prompt $" { fail "ptype int pointer" }
444 # timeout { fail "(timeout) ptype int pointer" }
448 #send "ptype v_signed_int_pointer\n"
450 # -re "type = int \*.*$gdb_prompt $" { pass "ptype signed int pointer" }
451 # -re ".*$gdb_prompt $" { fail "ptype signed int pointer" }
452 # timeout { fail "(timeout) ptype signed int pointer" }
456 #send "ptype v_unsigned_int_pointer\n"
458 # -re "type = unsigned int \*.*$gdb_prompt $" { pass "ptype unsigned int pointer" }
459 # -re ".*$gdb_prompt $" { fail "ptype unsigned int pointer" }
460 # timeout { fail "(timeout) ptype unsigned int pointer" }
464 #send "ptype v_long_pointer\n"
466 # -re "type = long \*.*$gdb_prompt $" { pass "ptype long pointer" }
467 # -re ".*$gdb_prompt $" { fail "ptype long pointer" }
468 # timeout { fail "(timeout) ptype long pointer" }
472 #send "ptype v_signed_long_pointer\n"
474 # -re "type = long \*.*$gdb_prompt $" { pass "ptype signed long pointer" }
475 # -re ".*$gdb_prompt $" { fail "ptype signed long pointer" }
476 # timeout { fail "(timeout) ptype signed long pointer" }
480 #send "ptype v_unsigned_long_pointer\n"
482 # -re "type = unsigned long \*.*$gdb_prompt $" { pass "ptype unsigned long pointer" }
483 # -re ".*$gdb_prompt $" { fail "ptype unsigned long pointer" }
484 # timeout { fail "(timeout) ptype unsigned long pointer" }
488 #send "ptype v_float_pointer\n"
490 # -re "type = float \*.*$gdb_prompt $" { pass "ptype float pointer" }
491 # -re ".*$gdb_prompt $" { fail "ptype float pointer" }
492 # timeout { fail "(timeout) ptype float pointer" }
496 #send "ptype v_double_pointer\n"
498 # -re "type = double \*.*$gdb_prompt $" { pass "ptype double pointer" }
499 # -re ".*$gdb_prompt $" { fail "ptype double pointer" }
500 # timeout { fail "(timeout) ptype double pointer" }
504 # test ptype command with nested structure and union
506 if {$hp_aCC_compiler} {
507 set outer "outer_struct::"
515 gdb_test "ptype struct outer_struct" "type = struct outer_struct \{.*\[\r\n\]+\
516 .*int outer_int;.*\[\r\n\]+\
517 .*(struct|) ${outer}inner_struct inner_struct_instance;.*\[\r\n\]+\
518 .*(union|) ${outer}inner_union inner_union_instance;.*\[\r\n\]+\
519 .*(long|long int|int) outer_long;.*\[\r\n\]\}.*" "ptype outer structure"
521 gdb_test "ptype ${struct} ${outer}inner_struct" "type = struct ${outer}inner_struct \{.*\[\r\n\] int inner_int;.*\[\r\n\] (long|long int|int) inner_long;.*\[\r\n\]\}.*" "ptype inner structure"
523 gdb_test "ptype ${union} ${outer}inner_union" "type = union ${outer}inner_union \{.*\[\r\n\] int inner_union_int;.*\[\r\n\] (long|long int|int) inner_union_long;.*\[\r\n\]\}.*" "ptype inner union"
525 gdb_test "ptype nested_su" "type = struct outer_struct \{.*\[\r\n\] int outer_int;.*\[\r\n\] (struct |)${outer}inner_struct inner_struct_instance;.*\[\r\n\] (union |)${outer}inner_union inner_union_instance;.*\[\r\n\] (long|long int|int) outer_long;.*\[\r\n\]\}.*" "ptype nested structure"
527 gdb_test "ptype nested_su.outer_int" "type = int.*" "ptype outer int"
529 gdb_test "ptype nested_su.inner_struct_instance" "type = struct ${outer}inner_struct \{.*\[\r\n\] int inner_int;.*\[\r\n\] (long|long int|int) inner_long;.*\[\r\n\]\}.*" "ptype nested structure #2"
531 gdb_test "ptype nested_su.inner_struct_instance.inner_int" "type = int.*" "ptype inner int"
533 gdb_test "ptype nested_su.inner_union_instance" "type = union ${outer}inner_union \{.*\[\r\n\] int inner_union_int;.*\[\r\n\] (long|long int|int) inner_union_long;.*\[\r\n\]\}.*" "ptype nested union"
535 # Print the type description of variable the_highest, and verify that
536 # the type description for the fields whose type is anonymous are
537 # correctly printed (at nesting level 1 and 2).
539 gdb_test "ptype the_highest" \
540 "type = struct highest \{.*\[\r\n\] *int a;.*\[\r\n\] *struct \{.*\[\r\n\] *int b;.*\[\r\n\] *struct \{\.\.\.\} anonymous_level_2;.*\[\r\n\] *\} anonymous_level_1;.*\[\r\n\]}.*" \
543 # Print the type descrption for one of the fields of variable the_highest.
544 # The purpose is to verify that the type of a field that was printed above
545 # as "struct {...}" is now printed in a more descriptive way (because the
546 # nesting level is now one level less).
548 gdb_test "ptype the_highest.anonymous_level_1" \
549 "type = struct \{.*\[\r\n\] *int b;.*\[\r\n\] *struct \{.*\[\r\n\] *int c;.*\[\r\n\] *\} anonymous_level_2;.*\[\r\n\]}.*" \
554 # Print the type of the identifier ID, and check the response:
555 # - Expect to see PROTOTYPED as the type. PROTOTYPED is not a regular
556 # expression; it's a literal string.
557 #
- If we instead see the unprototyped type PLAIN
, and we
're using STABS
558 # generated by GCC, that's an xfail
; as of
9 Feb
2002, GCC never emits
559 # prototyped function types in STABS. Like PROTOTYPED
, PLAIN is a
560 # literal string
, not a regular expression.
561 #
- Otherwise
, it
's a failure.
562 proc ptype_maybe_prototyped { id prototyped plain } {
566 # Turn `prototyped' and `plain
', which are literal strings, into
567 # regular expressions by quoting any special characters they contain.
568 regsub -all "\[\]\[*()\]" $prototyped "\\\\&" prototyped
569 regsub -all "\[\]\[*()\]" $plain "\\\\&" plain
571 send_gdb "ptype $id\n"
573 -re "type = $prototyped\[\r\n\]+$gdb_prompt $" {
576 -re "type = $plain\[\r\n\]+$gdb_prompt $" {
577 if {$gcc_compiled} { setup_xfail_format "stabs" }
578 fail "ptype $id (compiler doesn't emit prototyped types
)"
580 -re
"$gdb_prompt $" {
584 fail
"ptype $id (timeout)"
589 ptype_maybe_prototyped
"func_type" "int (*)(int (*)(int, float), float)" \
591 ptype_maybe_prototyped
"old_fptr" "double (*)()" "double (*)()"
592 ptype_maybe_prototyped
"new_fptr" "double (*)(void)" "double (*)()"
593 ptype_maybe_prototyped
"fptr" "int (*)(int, float)" "int (*)()"
594 ptype_maybe_prototyped
"fptr2" "int *(*)(int (*)(int, float), float)" \
596 ptype_maybe_prototyped
"xptr" "int (*)(int (*)(), int (*)(void), int)" \
598 ptype_maybe_prototyped
"ffptr" "int (*(*)(char))(short int)" \
600 ptype_maybe_prototyped
"fffptr" "int (*(*(*)(char))(short int))(long int)" \
601 "int (*(*(*)())())()"
603 # Test printing type of typedefs in different scopes
, with same
name
604 # but different type.
606 gdb_test
"list intfoo" ""
607 gdb_test
"ptype foo" "type = int" "ptype foo typedef after first list of intfoo"
608 gdb_test
"list charfoo" ""
609 gdb_test
"ptype foo" "type = char" "ptype foo typedef after first list of charfoo"
610 gdb_test
"list intfoo" ""
611 gdb_test
"ptype foo" "type = int" "ptype foo typedef after second list of intfoo"
612 gdb_test
"list charfoo" ""
613 gdb_test
"ptype foo" "type = char" "ptype foo typedef after second list of charfoo"
615 # Test printing type of string constants and array constants
, but
616 # requires a running process. These
call malloc
, and can take a long
617 # time to
execute over a slow serial link
, so increase the timeout.
619 # UDI can
't do this (PR 2416). XFAIL is not suitable, because attempting
620 # the operation causes a slow painful death rather than a nice simple failure.
622 if [runto_main] then {
624 if [target_info exists gdb,cannot_call_functions] {
625 setup_xfail "*-*-*" 2416
626 fail "This target can not call functions"
630 # We need to up this because this can be really slow on some boards.
631 # (malloc() is called as part of the test).
634 gdb_test "ptype \"abc\"" "type = char \\\[4\\\]"
635 gdb_test "ptype {'a
','b
','c
'}" "type = char \\\[3\\\]"
636 gdb_test "ptype {0,1,2}" "type = int \\\[3\\\]"
637 gdb_test "ptype {(long)0,(long)1,(long)2}" "type = long \\\[3\\\]"
638 gdb_test "ptype {(float)0,(float)1,(float)2}" "type = float \\\[3\\\]"
639 gdb_test "ptype {{0,1,2},{3,4,5}}" "type = int \\\[2\\\]\\\[3\\\]"
640 gdb_test "ptype {4,5,6}\[2\]" "type = int"
641 gdb_test "ptype *&{4,5,6}\[1\]" "type = int"
643 # Test ptype of user register
644 gdb_test "ptype \$pc" "void \\(\\*\\)\\(\\)" "ptype \$pc"