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
|
// Makes sure T.mangleof and pragma(mangle, …) are in sync.
// inputs/mangling_definitions.d features C/C++/D symbols and validates their .mangleof.
// This module forward-declares these symbols, using an identical pragma(mangle, …) string,
// and references the symbols in main().
// Compile both modules separately and make sure the 2 objects can be linked successfully.
// RUN: %ldc %S/inputs/mangling_definitions.d -c -of=%t-dir/mangling_definitions%obj
// RUN: %ldc %t-dir/mangling_definitions%obj -run %s
module mangling;
// Variables:
extern(C) pragma(mangle, "cGlobal")
extern __gshared int decl_cGlobal;
version(CRuntime_Microsoft)
enum cppGlobalMangle = "?cppGlobal@cpp_vars@@3HA";
else
enum cppGlobalMangle = "_ZN8cpp_vars9cppGlobalE";
extern(C++, decl_cpp_vars) pragma(mangle, cppGlobalMangle)
extern __gshared int decl_cppGlobal;
pragma(mangle, "_D11definitions7dGlobali")
extern __gshared int decl_dGlobal;
// Functions:
extern(C) pragma(mangle, "cFunc")
int decl_cFunc(double a);
version(CRuntime_Microsoft)
enum cppFuncMangle = "?cppFunc@cpp_funcs@@YAHN@Z";
else
enum cppFuncMangle = "_ZN9cpp_funcs7cppFuncEd";
extern(C++, decl_cpp_funcs) pragma(mangle, cppFuncMangle)
int decl_cppFunc(double a);
pragma(mangle, "_D11definitions5dFuncFdZi")
int decl_dFunc(double a);
// Naked functions:
version(D_InlineAsm_X86)
version = AsmX86;
else version(D_InlineAsm_X86_64)
version = AsmX86;
version(AsmX86)
{
extern(C) pragma(mangle, "naked_cFunc")
int decl_naked_cFunc(double a);
version(CRuntime_Microsoft)
enum nakedCppFuncMangle = "?naked_cppFunc@cpp_naked_funcs@@YAHN@Z";
else
enum nakedCppFuncMangle = "_ZN15cpp_naked_funcs13naked_cppFuncEd";
extern(C++, decl_cpp_naked_funcs) pragma(mangle, nakedCppFuncMangle)
int decl_naked_cppFunc(double a);
pragma(mangle, "_D11definitions11naked_dFuncFiZi")
int decl_naked_dFunc(int a);
}
// Interfacing with C via pragma(mangle, …), without having to take care
// of a potential target-specific C prefix (underscore on Win32 and OSX):
extern(C) pragma(mangle, "cos")
double decl_cos(double x);
void main()
{
assert(decl_cGlobal == 1);
assert(decl_cppGlobal == 2);
assert(decl_dGlobal == 3);
assert(decl_cFunc(1.0) == 1);
assert(decl_cppFunc(2.0) == 2);
assert(decl_dFunc(3.0) == 3);
version(AsmX86)
{
decl_naked_cFunc(1.0);
decl_naked_cppFunc(2.0);
decl_naked_dFunc(3);
}
assert(decl_cos(0.0) == 1.0);
}
|
