1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
# Copyright 2004-2015 Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>. */
# Test resolving of an opaque type from the loaded shared library.
if {[skip_shlib_tests]} {
return -1
}
standard_testfile type-opaque-main.c
set libfile type-opaque-lib
set libsrc "${srcdir}/${subdir}/${libfile}.c"
set libobj [standard_output_file ${libfile}.so]
set execsrc "${srcdir}/${subdir}/${srcfile}"
remote_exec build "rm -f ${binfile}"
# get the value of gcc_compiled
if [get_compiler_info] {
return -1
}
if { [gdb_compile_shlib $libsrc $libobj {debug}] != ""
|| [gdb_compile $execsrc ${binfile} executable \
[list debug shlib=${libobj}]] != "" } {
return -1
}
clean_restart ${binfile}
gdb_load_shlibs ${libobj}
if ![runto_main] then {
fail "Can't run to main"
return 0
}
# DWARF3: An incomplete structure, union or class type is represented by
# a structure, union or class entry that does not have a byte size attribute
# and that has a DW_AT_declaration attribute.
proc body { struct } {
global gdb_prompt
# <1><15f>: Abbrev Number: 8 (DW_TAG_structure_type)
# DW_AT_name : libtype_opaque
# DW_AT_declaration : 1
set name "opaque $struct type resolving"
gdb_test_multiple "ptype pointer_${struct}_opaque" $name \
{
-re "libfield_opaque.*$gdb_prompt $" {
pass $name
}
}
# <1><9e>: Abbrev Number: 2 (DW_TAG_structure_type)
# DW_AT_name : libtype_empty
# DW_AT_byte_size : 0
# DW_AT_decl_file : 1
# DW_AT_decl_line : 25
set name "empty $struct type resolving"
gdb_test_multiple "ptype pointer_${struct}_empty" $name \
{
-re "\\{\[ \t\r\n\]*<no data fields>\[ \t\r\n\]*\\}.*$gdb_prompt $" {
pass $name
}
-re "libfield_empty.*$gdb_prompt $" {
fail $name
}
}
# <1><b0>: Abbrev Number: 3 (DW_TAG_structure_type)
# DW_AT_sibling : <e3>
# DW_AT_name : libtype_filled
# DW_AT_byte_size : 4
# DW_AT_decl_file : 1
# DW_AT_decl_line : 29
# <2><c7>: Abbrev Number: 4 (DW_TAG_member)
# DW_AT_name : mainfield_filled
# DW_AT_decl_file : 1
# DW_AT_decl_line : 30
# DW_AT_type : <e3>
# DW_AT_data_member_location: 2 byte block: 23 0 (DW_OP_plus_uconst: 0)
set name "filled $struct type resolving"
gdb_test_multiple "ptype pointer_${struct}_filled" $name \
{
-re "mainfield_filled.*$gdb_prompt $" {
pass $name
}
-re "libfield_filled.*$gdb_prompt $" {
fail $name
}
}
}
body struct
body union
|
