1# Copyright (C) 2014-2019 Free Software Foundation, Inc. 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 20load_lib "d-support.exp" 21 22if { [skip_d_tests] } { continue } 23 24### Utility function for test_demangling and test_demangling_exact. 25proc test_demangling {test result} { 26 gdb_test_exact "demangle $test" $result $test 27} 28 29proc 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, ...)" 114 test_demangling "_D8demangle4testFYv" "demangle.test(...)" 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)" 122 test_demangling "_D8demangle4testFDYZaZv" "demangle.test(extern(Objective-C) char() delegate)" 123 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)" 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 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)" 147 148 test_demangling "_D8demangle4test6__vtblZ" "vtable for demangle.test" 149 test_demangling "_D8demangle4test6__initZ" "initializer for demangle.test" 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" 153 154 test_demangling "_D8demangle4test6__ctorMFZv" "demangle.test.this()" 155 test_demangling "_D8demangle4test6__dtorMFZv" "demangle.test.~this()" 156 test_demangling "_D8demangle4test10__postblitMFZv" "demangle.test.this(this)" 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)" 177 test_demangling "_D8demangle3fnAFZ3fnBMFZv" "demangle.fnA().fnB()" 178 test_demangling "_D8demangle4mainFZ1S3fnCMFZv" "demangle.main().S.fnC()" 179 test_demangling "_D8demangle4mainFZ1S3fnDMFZv" "demangle.main().S.fnD()" 180 test_demangling "_D8demangle2fnFNgiZNgi" "demangle.fn(inout(int))" 181 test_demangling "_D8demangle4mainFZ5localMFZi" "demangle.main().local()" 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)" 192 test_demangling "_D2rt6dmain211_d_run_mainUiPPaPUAAaZiZ7tryExecMFMDFZvZv" "rt.dmain2._d_run_main(int, char**, extern(C) int(char\[\]\[\]) function).tryExec(scope void() delegate)" 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 200gdb_exit 201gdb_start 202 203if [set_lang_d] { 204 gdb_test_no_output "set width 0" 205 206 test_d_demangling 207 208 # Verify we can specify the d language to demangle. 209 gdb_test_exact "demangle -l d -- _Dmain" "D main" 210} else { 211 warning "D demangling tests suppressed." 212} 213