Commit | Line | Data |
---|---|---|
b811d2c2 | 1 | # Copyright (C) 2014-2020 Free Software Foundation, Inc. |
ec9f644a IB |
2 | |
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 3 of the License, or | |
6 | # (at your option) any later version. | |
7 | # | |
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. | |
12 | # | |
13 | # You should have received a copy of the GNU General Public License | |
14 | # along with this program. If not, see <http://www.gnu.org/licenses/>. | |
15 | ||
16 | # Test support for D demangling. The tests here intentionally do not | |
17 | # require a D compiler, it simply calls the internal demangler with | |
18 | # synthesized strings and tests the results. | |
19 | ||
20 | load_lib "d-support.exp" | |
21 | ||
22 | if { [skip_d_tests] } { continue } | |
23 | ||
24 | ### Utility function for test_demangling and test_demangling_exact. | |
25 | proc test_demangling {test result} { | |
439250fb | 26 | gdb_test_exact "demangle $test" $result $test |
ec9f644a IB |
27 | } |
28 | ||
29 | proc test_d_demangling {} { | |
30 | ||
31 | # Test D demangler | |
32 | test_demangling "_Dmain" "D main" | |
33 | ||
34 | test_demangling "_D8demangle4testFaZv" "demangle.test(char)" | |
35 | test_demangling "_D8demangle4testFbZv" "demangle.test(bool)" | |
36 | test_demangling "_D8demangle4testFcZv" "demangle.test(creal)" | |
37 | test_demangling "_D8demangle4testFdZv" "demangle.test(double)" | |
38 | test_demangling "_D8demangle4testFeZv" "demangle.test(real)" | |
39 | test_demangling "_D8demangle4testFfZv" "demangle.test(float)" | |
40 | test_demangling "_D8demangle4testFgZv" "demangle.test(byte)" | |
41 | test_demangling "_D8demangle4testFhZv" "demangle.test(ubyte)" | |
42 | test_demangling "_D8demangle4testFiZv" "demangle.test(int)" | |
43 | test_demangling "_D8demangle4testFjZv" "demangle.test(ireal)" | |
44 | test_demangling "_D8demangle4testFkZv" "demangle.test(uint)" | |
45 | test_demangling "_D8demangle4testFlZv" "demangle.test(long)" | |
46 | test_demangling "_D8demangle4testFmZv" "demangle.test(ulong)" | |
47 | test_demangling "_D8demangle4testFnZv" "demangle.test(none)" | |
48 | test_demangling "_D8demangle4testFoZv" "demangle.test(ifloat)" | |
49 | test_demangling "_D8demangle4testFpZv" "demangle.test(idouble)" | |
50 | test_demangling "_D8demangle4testFqZv" "demangle.test(cfloat)" | |
51 | test_demangling "_D8demangle4testFrZv" "demangle.test(cdouble)" | |
52 | test_demangling "_D8demangle4testFsZv" "demangle.test(short)" | |
53 | test_demangling "_D8demangle4testFtZv" "demangle.test(ushort)" | |
54 | test_demangling "_D8demangle4testFuZv" "demangle.test(wchar)" | |
55 | test_demangling "_D8demangle4testFvZv" "demangle.test(void)" | |
56 | test_demangling "_D8demangle4testFwZv" "demangle.test(dchar)" | |
57 | ||
58 | test_demangling "_D8demangle4testFOaZv" "demangle.test(shared(char))" | |
59 | test_demangling "_D8demangle4testFxaZv" "demangle.test(const(char))" | |
60 | test_demangling "_D8demangle4testFyaZv" "demangle.test(immutable(char))" | |
61 | test_demangling "_D8demangle4testFNgaZv" "demangle.test(inout(char))" | |
62 | test_demangling "_D8demangle4testFOxaZv" "demangle.test(shared(const(char)))" | |
63 | test_demangling "_D8demangle4testFONgaZv" "demangle.test(shared(inout(char)))" | |
64 | test_demangling "_D8demangle4testFAaZv" "demangle.test(char\[\])" | |
65 | test_demangling "_D8demangle4testFAAaZv" "demangle.test(char\[\]\[\])" | |
66 | test_demangling "_D8demangle4testFAAAaZv" "demangle.test(char\[\]\[\]\[\])" | |
67 | test_demangling "_D8demangle4testFG42aZv" "demangle.test(char\[42\])" | |
68 | test_demangling "_D8demangle4testFG42G42aZv" "demangle.test(char\[42\]\[42\])" | |
69 | test_demangling "_D8demangle4testFG42G42G42aZv" "demangle.test(char\[42\]\[42\]\[42\])" | |
70 | test_demangling "_D8demangle4testFG1234567890aZv" "demangle.test(char\[1234567890\])" | |
71 | test_demangling "_D8demangle4testFHaaZv" "demangle.test(char\[char\])" | |
72 | test_demangling "_D8demangle4testFHHaaaZv" "demangle.test(char\[char\[char\]\])" | |
73 | test_demangling "_D8demangle4testFPaZv" "demangle.test(char*)" | |
74 | test_demangling "_D8demangle4testFPPaZv" "demangle.test(char**)" | |
75 | test_demangling "_D8demangle4testFPPPaZv" "demangle.test(char***)" | |
76 | ||
77 | test_demangling "_D8demangle4testFNhG8gZv" "demangle.test(__vector(byte\[8\]))" | |
78 | test_demangling "_D8demangle4testFNhG16gZv" "demangle.test(__vector(byte\[16\]))" | |
79 | test_demangling "_D8demangle4testFNhG32gZv" "demangle.test(__vector(byte\[32\]))" | |
80 | test_demangling "_D8demangle4testFNhG4sZv" "demangle.test(__vector(short\[4\]))" | |
81 | test_demangling "_D8demangle4testFNhG8sZv" "demangle.test(__vector(short\[8\]))" | |
82 | test_demangling "_D8demangle4testFNhG16sZv" "demangle.test(__vector(short\[16\]))" | |
83 | test_demangling "_D8demangle4testFNhG2iZv" "demangle.test(__vector(int\[2\]))" | |
84 | test_demangling "_D8demangle4testFNhG4iZv" "demangle.test(__vector(int\[4\]))" | |
85 | test_demangling "_D8demangle4testFNhG8iZv" "demangle.test(__vector(int\[8\]))" | |
86 | test_demangling "_D8demangle4testFNhG1lZv" "demangle.test(__vector(long\[1\]))" | |
87 | test_demangling "_D8demangle4testFNhG2lZv" "demangle.test(__vector(long\[2\]))" | |
88 | test_demangling "_D8demangle4testFNhG4lZv" "demangle.test(__vector(long\[4\]))" | |
89 | test_demangling "_D8demangle4testFNhG2fZv" "demangle.test(__vector(float\[2\]))" | |
90 | test_demangling "_D8demangle4testFNhG4fZv" "demangle.test(__vector(float\[4\]))" | |
91 | test_demangling "_D8demangle4testFNhG8fZv" "demangle.test(__vector(float\[8\]))" | |
92 | test_demangling "_D8demangle4testFNhG1dZv" "demangle.test(__vector(double\[1\]))" | |
93 | test_demangling "_D8demangle4testFNhG2dZv" "demangle.test(__vector(double\[2\]))" | |
94 | test_demangling "_D8demangle4testFNhG4dZv" "demangle.test(__vector(double\[4\]))" | |
95 | ||
96 | test_demangling "_D8demangle4testFI5identZv" "demangle.test(ident)" | |
97 | test_demangling "_D8demangle4testFI5ident4testZv" "demangle.test(ident.test)" | |
98 | test_demangling "_D8demangle4testFC5classZv" "demangle.test(class)" | |
99 | test_demangling "_D8demangle4testFC5class4testZv" "demangle.test(class.test)" | |
100 | test_demangling "_D8demangle4testFS6structZv" "demangle.test(struct)" | |
101 | test_demangling "_D8demangle4testFS6struct4testZv" "demangle.test(struct.test)" | |
102 | test_demangling "_D8demangle4testFE4enumZv" "demangle.test(enum)" | |
103 | test_demangling "_D8demangle4testFE4enum4testZv" "demangle.test(enum.test)" | |
104 | test_demangling "_D8demangle4testFT7typedefZv" "demangle.test(typedef)" | |
105 | test_demangling "_D8demangle4testFT7typedef4testZv" "demangle.test(typedef.test)" | |
106 | ||
107 | test_demangling "_D8demangle4testFJaZv" "demangle.test(out char)" | |
108 | test_demangling "_D8demangle4testFKaZv" "demangle.test(ref char)" | |
109 | test_demangling "_D8demangle4testFLaZv" "demangle.test(lazy char)" | |
110 | test_demangling "_D8demangle4testFMaZv" "demangle.test(scope char)" | |
111 | test_demangling "_D8demangle4testFaXv" "demangle.test(char...)" | |
112 | test_demangling "_D8demangle4testFaYv" "demangle.test(char, ...)" | |
113 | test_demangling "_D8demangle4testFaaYv" "demangle.test(char, char, ...)" | |
4324c94d | 114 | test_demangling "_D8demangle4testFYv" "demangle.test(...)" |
ec9f644a IB |
115 | test_demangling "_D8demangle4testFaaZv" "demangle.test(char, char)" |
116 | ||
117 | test_demangling "_D8demangle4testFDFZaZv" "demangle.test(char() delegate)" | |
118 | test_demangling "_D8demangle4testFDUZaZv" "demangle.test(extern(C) char() delegate)" | |
119 | test_demangling "_D8demangle4testFDWZaZv" "demangle.test(extern(Windows) char() delegate)" | |
120 | test_demangling "_D8demangle4testFDVZaZv" "demangle.test(extern(Pascal) char() delegate)" | |
121 | test_demangling "_D8demangle4testFDRZaZv" "demangle.test(extern(C++) char() delegate)" | |
4324c94d | 122 | test_demangling "_D8demangle4testFDYZaZv" "demangle.test(extern(Objective-C) char() delegate)" |
ec9f644a | 123 | |
4324c94d IB |
124 | test_demangling "_D8demangle4testFPFZaZv" "demangle.test(char() function)" |
125 | test_demangling "_D8demangle4testFPUZaZv" "demangle.test(extern(C) char() function)" | |
126 | test_demangling "_D8demangle4testFPWZaZv" "demangle.test(extern(Windows) char() function)" | |
127 | test_demangling "_D8demangle4testFPVZaZv" "demangle.test(extern(Pascal) char() function)" | |
128 | test_demangling "_D8demangle4testFPRZaZv" "demangle.test(extern(C++) char() function)" | |
129 | test_demangling "_D8demangle4testFPYZaZv" "demangle.test(extern(Objective-C) char() function)" | |
ec9f644a IB |
130 | |
131 | test_demangling "_D8demangle4testFDFNaZaZv" "demangle.test(char() pure delegate)" | |
132 | test_demangling "_D8demangle4testFDFNbZaZv" "demangle.test(char() nothrow delegate)" | |
133 | test_demangling "_D8demangle4testFDFNcZaZv" "demangle.test(char() ref delegate)" | |
134 | test_demangling "_D8demangle4testFDFNdZaZv" "demangle.test(char() @property delegate)" | |
135 | test_demangling "_D8demangle4testFDFNeZaZv" "demangle.test(char() @trusted delegate)" | |
136 | test_demangling "_D8demangle4testFDFNfZaZv" "demangle.test(char() @safe delegate)" | |
137 | ||
4324c94d IB |
138 | test_demangling "_D8demangle4testFPFNaZaZv" "demangle.test(char() pure function)" |
139 | test_demangling "_D8demangle4testFPFNbZaZv" "demangle.test(char() nothrow function)" | |
140 | test_demangling "_D8demangle4testFPFNcZaZv" "demangle.test(char() ref function)" | |
141 | test_demangling "_D8demangle4testFPFNdZaZv" "demangle.test(char() @property function)" | |
142 | test_demangling "_D8demangle4testFPFNeZaZv" "demangle.test(char() @trusted function)" | |
143 | test_demangling "_D8demangle4testFPFNfZaZv" "demangle.test(char() @safe function)" | |
144 | test_demangling "_D8demangle4testFPFNaNbZaZv" "demangle.test(char() pure nothrow function)" | |
145 | test_demangling "_D8demangle4testFPFNbNaZaZv" "demangle.test(char() nothrow pure function)" | |
146 | test_demangling "_D8demangle4testFPFNdNfNaZaZv" "demangle.test(char() @property @safe pure function)" | |
ec9f644a | 147 | |
35a49624 | 148 | test_demangling "_D8demangle4test6__vtblZ" "vtable for demangle.test" |
11cb5716 | 149 | test_demangling "_D8demangle4test6__initZ" "initializer for demangle.test" |
35a49624 IB |
150 | test_demangling "_D8demangle4test12__ModuleInfoZ" "ModuleInfo for demangle.test" |
151 | test_demangling "_D8demangle4test7__ClassZ" "ClassInfo for demangle.test" | |
152 | test_demangling "_D8demangle4test11__InterfaceZ" "Interface for demangle.test" | |
ec9f644a IB |
153 | |
154 | test_demangling "_D8demangle4test6__ctorMFZv" "demangle.test.this()" | |
155 | test_demangling "_D8demangle4test6__dtorMFZv" "demangle.test.~this()" | |
5e61e7c0 | 156 | test_demangling "_D8demangle4test10__postblitMFZv" "demangle.test.this(this)" |
ec9f644a IB |
157 | |
158 | test_demangling "_D8demangle4testFHAbaZv" "demangle.test(char\[bool\[\]\])" | |
159 | test_demangling "_D8demangle4testFHG42caZv" "demangle.test(char\[creal\[42\]\])" | |
160 | test_demangling "_D8demangle4testFAiXv" "demangle.test(int\[\]...)" | |
161 | test_demangling "_D8demangle4testFLAiXv" "demangle.test(lazy int\[\]...)" | |
162 | test_demangling "_D8demangle4testFAiYv" "demangle.test(int\[\], ...)" | |
163 | test_demangling "_D8demangle4testFLAiYv" "demangle.test(lazy int\[\], ...)" | |
164 | test_demangling "_D8demangle4testFLilZv" "demangle.test(lazy int, long)" | |
165 | test_demangling "_D8demangle4testFLliZv" "demangle.test(lazy long, int)" | |
166 | ||
167 | test_demangling "_D8demangle4testPFLAiYi" "demangle.test" | |
168 | test_demangling "_D1a1bi" "a.b" | |
169 | test_demangling "_D1a1bPFiZi" "a.b" | |
170 | test_demangling "_D4test3fooAa" "test.foo" | |
171 | test_demangling "_D4test2dgDFiYd" "test.dg" | |
172 | test_demangling "_D8demangle8demangleFAaZAa" "demangle.demangle(char\[\])" | |
173 | test_demangling "_D6object6Object8opAssignFC6ObjectZi" "object.Object.opAssign(Object)" | |
174 | test_demangling "_D6object6Object8opEqualsFC6ObjectZi" "object.Object.opEquals(Object)" | |
175 | test_demangling "_D8demangle4testFLC6ObjectLDFLiZiZi" "demangle.test(lazy Object, lazy int(lazy int) delegate)" | |
176 | test_demangling "_D6plugin8generateFiiZAya" "plugin.generate(int, int)" | |
5e61e7c0 IB |
177 | test_demangling "_D8demangle3fnAFZ3fnBMFZv" "demangle.fnA().fnB()" |
178 | test_demangling "_D8demangle4mainFZ1S3fnCMFZv" "demangle.main().S.fnC()" | |
179 | test_demangling "_D8demangle4mainFZ1S3fnDMFZv" "demangle.main().S.fnD()" | |
ec9f644a | 180 | test_demangling "_D8demangle2fnFNgiZNgi" "demangle.fn(inout(int))" |
5e61e7c0 | 181 | test_demangling "_D8demangle4mainFZ5localMFZi" "demangle.main().local()" |
ec9f644a IB |
182 | test_demangling "_D3std5ascii9uppercaseyAa" "std.ascii.uppercase" |
183 | test_demangling "_D3std6stream9BOMEndianyG5E3std6system6Endian" "std.stream.BOMEndian" | |
184 | test_demangling "_D3std8internal7uni_tab10unicodeNkoyS3std8internal3uni12CodepointSet" "std.internal.uni_tab.unicodeNko" | |
185 | test_demangling "_D2gc2gc2GC6addrOfMFPvZPv" "gc.gc.GC.addrOf(void*)" | |
186 | test_demangling "_D3std7process10setCLOEXECFibZv" "std.process.setCLOEXEC(int, bool)" | |
187 | test_demangling "_D3std6digest2md3MD53putMFNaNbNeMAxhXv" "std.digest.md.MD5.put(scope const(ubyte)\[\]...)" | |
188 | test_demangling "_D3std6mmfile6MmFile13opIndexAssignMFhmZh" "std.mmfile.MmFile.opIndexAssign(ubyte, ulong)" | |
189 | test_demangling "_D3std7process18escapeShellCommandFxAAaXAya" "std.process.escapeShellCommand(const(char\[\]\[\])...)" | |
190 | test_demangling "_D4core4sync5mutex5Mutex6__ctorMFC6ObjectZC4core4sync5mutex5Mutex" "core.sync.mutex.Mutex.this(Object)" | |
191 | test_demangling "_D6object14TypeInfo_Array8argTypesMFNbNfJC8TypeInfoJC8TypeInfoZi" "object.TypeInfo_Array.argTypes(out TypeInfo, out TypeInfo)" | |
4324c94d | 192 | test_demangling "_D2rt6dmain211_d_run_mainUiPPaPUAAaZiZ7tryExecMFMDFZvZv" "rt.dmain2._d_run_main(int, char**, extern(C) int(char\[\]\[\]) function).tryExec(scope void() delegate)" |
ec9f644a IB |
193 | test_demangling "_D6object9Exception6__ctorMFNaNbNfAyaAyamC6object9ThrowableZC9Exception" "object.Exception.this(immutable(char)\[\], immutable(char)\[\], ulong, object.Throwable)" |
194 | test_demangling "_D3gcc3deh17parse_lsda_headerFPS3gcc6unwind7generic15_Unwind_ContextPhPS3gcc3deh16lsda_header_infoZPh" "gcc.deh.parse_lsda_header(gcc.unwind.generic._Unwind_Context*, ubyte*, gcc.deh.lsda_header_info*)" | |
195 | test_demangling "_D3std6socket23UnknownAddressReference6__ctorMFPS4core3sys5posix3sys6socket8sockaddrkZC3std6socket23UnknownAddressReference" "std.socket.UnknownAddressReference.this(core.sys.posix.sys.socket.sockaddr*, uint)" | |
196 | } | |
197 | ||
198 | # Start with a fresh gdb. | |
199 | ||
200 | gdb_exit | |
201 | gdb_start | |
202 | ||
203 | if [set_lang_d] { | |
204 | gdb_test_no_output "set width 0" | |
205 | ||
206 | test_d_demangling | |
439250fb DE |
207 | |
208 | # Verify we can specify the d language to demangle. | |
209 | gdb_test_exact "demangle -l d -- _Dmain" "D main" | |
ec9f644a IB |
210 | } else { |
211 | warning "D demangling tests suppressed." | |
212 | } |