1 # Copyright 1992, 1994, 1995, 1996, 1997, 1999, 2002, 2007
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 2 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, write to the Free Software
16 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
18 # Please email any bugs, comments, and/or additions to this file to:
19 # bug-gdb@prep.ai.mit.edu
21 # This file was written by Fred Fish. (fnf@cygnus.com)
31 set binfile ${objdir}/${subdir}/opaque
33 #if { [gdb_compile "${srcdir}/${subdir}/opaque0.c ${srcdir}/${subdir}/opaque1.c" "${binfile}" executable {debug}] != "" } {
34 # gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
37 if { [gdb_compile "${srcdir}/${subdir}/opaque0.c" "${binfile}0.o" object {debug}] != "" } {
42 if { [gdb_compile "${srcdir}/${subdir}/opaque1.c" "${binfile}1.o" object {debug}] != "" } {
47 if { [gdb_compile "${binfile}0.o ${binfile}1.o" ${binfile} executable {debug}] != "" } {
53 # Create and source the file that provides information about the compiler
54 # used to compile the test case.
55 if [get_compiler_info ${binfile}] {
59 # Start with a fresh gdb.
63 gdb_reinitialize_dir $srcdir/$subdir
67 # Test basic opaque structure handling (statically).
68 # The ordering of the tests is significant. We first try the things that
69 # might fail if gdb fails to connect the uses of opaque structures to
70 # the actual opaque structure definition.
72 # When we start up, gdb sets the file containing main() as the current
73 # source file. The actual structure foo is defined in a different file.
74 # A pointer (foop) to an instance of the opaque struct is defined in the same
75 # source file as main(). Ensure that gdb correctly "connected" the definition
76 # in the other file with the pointer to the opaque struct in the file containing
79 # Define a procedure to set up an xfail for all targets that do not support
80 # this sort of cross reference.
81 # Any target gcc that has a DBX_NO_XREFS definition in its config file will
82 # not support it (FIXME: Is this still true; I suspect maybe not).
84 # Native alpha ecoff doesn't support it either.
85 # I don't think this type of cross reference works for any COFF target
88 proc setup_xfail_on_opaque_pointer {} {
91 setup_xfail "vax-*-*" "i*86-sequent-bsd*"
92 if {!$gcc_compiled} then {
93 setup_xfail "alpha-*-*" "mips-sgi-irix5*"
97 # This seems easier than trying to track different versions of xlc; I'm
98 # not sure there is much rhyme or reason regarding which tests it fails
99 # and which ones it passes.
100 if {[istarget "rs6000-*-aix*"] && !$gcc_compiled} then {
101 warning "xfails in opaque.exp may not be set up correctly for xlc"
104 setup_xfail_on_opaque_pointer
105 gdb_test "whatis foop" \
106 "type = struct foo \[*\]+" \
107 "whatis on opaque struct pointer (statically)"
110 # Ensure that we know the form of the structure that foop points to.
112 setup_xfail_on_opaque_pointer
113 if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" }
114 gdb_test "ptype foop" \
115 "type = struct foo \{\[\r\n\]+ int a;\[\r\n\]+ int b;\[\r\n\]+\} \[*\]+" \
116 "ptype on opaque struct pointer (statically)"
119 # An instance of the opaque structure (afoo) is defined in a different file.
120 # Ensure that we can locate afoo and the structure definition.
122 gdb_test "whatis afoo" \
123 "type = struct foo" \
124 "whatis on opaque struct instance (statically)"
127 # Ensure that we know the form of "afoo".
129 gdb_test "ptype afoo" \
130 "type = struct foo \{\[\r\n\]+ int a;\[\r\n\]+ int b;\[\r\n\]+\}" \
131 "ptype on opaque struct instance (statically)"
134 # Ensure that we know what a struct foo looks like.
136 gdb_test "ptype struct foo" \
137 "type = struct foo \{\[\r\n\]+ int a;\[\r\n\]+ int b;\[\r\n\]+\}" \
138 "ptype on opaque struct tagname (statically)"
142 # Done with static tests, now test dynamic opaque structure handling.
143 # We reload the symbol table so we forget about anything we might
144 # have learned during the static tests.
147 if [istarget "mips-idt-*"] then {
148 # Restart because IDT/SIM runs out of file descriptors.
152 gdb_reinitialize_dir $srcdir/$subdir
155 # Run to main, where struct foo is incomplete.
157 perror "cannot run to breakpoint at main"
161 # The current source file is now the one containing main(). The structure foo
162 # is defined in a different file, but we have a pointer to an instance of
163 # the opaque structure in the current file. Ensure we know it's type.
165 setup_xfail_on_opaque_pointer
166 gdb_test "whatis foop" \
167 "type = struct foo \[*\]+" \
168 "whatis on opaque struct pointer (dynamically)"
171 # Ensure that we know the form of the thing foop points to.
173 setup_xfail_on_opaque_pointer
174 if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" }
175 gdb_test "ptype foop" \
176 "type = struct foo \{\[\r\n\]+ int a;\[\r\n\]+ int b;\[\r\n\]+\} \[*\]+" \
177 "ptype on opaque struct pointer (dynamically) 1"
179 gdb_test "whatis afoo" \
180 "type = struct foo" \
181 "whatis on opaque struct instance (dynamically) 1"
184 # Ensure that we know the form of afoo, an instance of a struct foo.
186 gdb_test "ptype afoo" \
187 "type = struct foo \{\[\r\n\]+ int a;\[\r\n\]+ int b;\[\r\n\]+\}" \
188 "ptype on opaque struct instance (dynamically) xyz 1"
191 # Ensure that we know the form of an explicit struct foo.
193 if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" }
194 gdb_test "ptype struct foo" \
195 "type = struct foo \{\[\r\n\]+ int a;\[\r\n\]+ int b;\[\r\n\]+\}" \
196 "ptype on opaque struct tagname (dynamically) 1"
199 # Now reload the symbols again so we forget about anything we might
200 # have learned reading the symbols during the previous tests.
202 if [istarget "mips-idt-*"] then {
203 # Restart because IDT/SIM runs out of file descriptors.
207 gdb_reinitialize_dir $srcdir/$subdir
210 # Run to getfoo, where struct foo is complete.
212 perror "cannot run to breakpoint at getfoo"
216 # Ensure that we know what foop is.
218 setup_xfail_on_opaque_pointer
219 gdb_test "whatis foop" \
220 "type = struct foo \[*\]+" \
221 "whatis on opaque struct pointer (dynamically) 1"
224 # Ensure that we know the form of the thing foop points to.
226 setup_xfail_on_opaque_pointer
227 if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" }
228 gdb_test "ptype foop" \
229 "type = struct foo \{\[\r\n\]+ int a;\[\r\n\]+ int b;\[\r\n\]+\} \[*\]+" \
230 "ptype on opaque struct pointer (dynamically) 2"
232 gdb_test "whatis afoo" \
233 "type = struct foo" \
234 "whatis on opaque struct instance (dynamically) 1"
237 # Ensure that we know the form of afoo, an instance of a struct foo.
239 gdb_test "ptype afoo" \
240 "type = struct foo \{\r\n int a;\r\n int b;\r\n\}" \
241 "ptype on opaque struct instance (dynamically) 1"
243 gdb_test "ptype afoo" \
244 "type = struct foo \{\[\r\n\]*.*int a;\[\r\n\]*.*int b;\[\r\n\]*}\[\r\n\]*" \
245 "ptype on opaque struct instance (dynamically) pqr 1"
248 # Ensure that we know the form of an explicit struct foo.
250 gdb_test "ptype foop" \
251 "type = struct foo \{\[\r\n\]+ int a;\[\r\n\]+ int b;\[\r\n\]+\} \[*\]+" \
252 "ptype on opaque struct pointer (dynamically) 2"
254 gdb_test "whatis afoo" \
255 "type = struct foo" \
256 "whatis on opaque struct instance (dynamically) 2"
259 # Ensure that we know the form of afoo, an instance of a struct foo.
261 gdb_test "ptype afoo" \
262 "type = struct foo \{\[\r\n\]+ int a;\[\r\n\]+ int b;\[\r\n\]+\}" \
263 "ptype on opaque struct instance (dynamically) 2"
266 # Ensure that we know the form of an explicit struct foo.
268 gdb_test "ptype struct foo" \
269 "type = struct foo \{\[\r\n\]+ int a;\[\r\n\]+ int b;\[\r\n\]+\}" \
270 "ptype on opaque struct tagname (dynamically) 2"