Mercurial > pub > dyncall > dyncall
annotate test/plain_c++/test_main.cc @ 348:da4b267c10bf r1.1-RC3
- test code fixes and cleanups for win 32
author | Tassilo Philipp |
---|---|
date | Wed, 08 Jan 2020 17:23:24 +0100 |
parents | dd78bd0152af |
children | ddfb9577a00e |
rev | line source |
---|---|
0 | 1 /* |
2 | |
3 Package: dyncall | |
4 Library: test | |
5 File: test/plain_c++/test_main.cc | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
6 Description: |
0 | 7 License: |
8 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
9 Copyright (c) 2007-2019 Daniel Adler <dadler@uni-goettingen.de>, |
0 | 10 Tassilo Philipp <tphilipp@potion-studios.com> |
11 | |
12 Permission to use, copy, modify, and distribute this software for any | |
13 purpose with or without fee is hereby granted, provided that the above | |
14 copyright notice and this permission notice appear in all copies. | |
15 | |
16 THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | |
17 WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | |
18 MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR | |
19 ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | |
20 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | |
21 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF | |
22 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | |
23 | |
24 */ | |
25 | |
26 | |
27 | |
28 | |
29 #include "../../dyncall/dyncall.h" | |
30 #include "../common/platformInit.h" | |
31 #include "../common/platformInit.c" /* Impl. for functions only used in this translation unit */ | |
32 | |
33 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
34 #include <signal.h> |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
35 #include <setjmp.h> |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
36 |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
37 jmp_buf jbuf; |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
38 |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
39 |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
40 void segv_handler(int sig) |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
41 { |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
42 longjmp(jbuf, 1); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
43 } |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
44 |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
45 |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
46 /* ------------------------------------------------------------------------- |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
47 * test: identity function calls |
0 | 48 * ------------------------------------------------------------------------- */ |
49 | |
50 #define DEF_FUNCS(API,NAME) \ | |
51 void API fun_##NAME##_v() { } \ | |
52 DCbool API fun_##NAME##_b(DCbool x) { return x; } \ | |
53 DCint API fun_##NAME##_i(DCint x) { return x; } \ | |
54 DClong API fun_##NAME##_j(DClong x) { return x; } \ | |
55 DClonglong API fun_##NAME##_l(DClonglong x) { return x; } \ | |
56 DCfloat API fun_##NAME##_f(DCfloat x) { return x; } \ | |
57 DCdouble API fun_##NAME##_d(DCdouble x) { return x; } \ | |
58 DCpointer API fun_##NAME##_p(DCpointer x) { return x; } | |
59 | |
60 /* __cdecl */ | |
61 | |
62 #if !defined(DC__OS_Win32) | |
63 # define __cdecl | |
64 #endif | |
65 | |
66 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
67 /* ------------------------------------------------------------------------- |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
68 * test: identity this calls |
0 | 69 * ------------------------------------------------------------------------- */ |
70 | |
71 union ValueUnion | |
72 { | |
73 DCbool B; | |
74 DCint i; | |
75 DClong j; | |
76 DClonglong l; | |
77 DCfloat f; | |
78 DCdouble d; | |
79 DCpointer p; | |
80 }; | |
81 | |
82 /* C++ class using __cdecl this call */ | |
83 | |
84 // #define VTBI_DESTRUCTOR 0 | |
85 | |
86 /* | |
87 * the layout of the VTable is non-standard and it is not clear what is the initial real first method index. | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
88 * so far it turns out that: |
0 | 89 * on vc/x86 : 1 |
90 * on GCC/x86 : 2 | |
91 */ | |
92 | |
93 #if defined DC__C_MSVC | |
94 #define VTBI_BASE 1 | |
95 #else | |
96 #define VTBI_BASE 2 | |
97 #endif | |
98 | |
99 #define VTBI_SET_BOOL VTBI_BASE+0 | |
100 #define VTBI_GET_BOOL VTBI_BASE+1 | |
101 #define VTBI_SET_INT VTBI_BASE+2 | |
102 #define VTBI_GET_INT VTBI_BASE+3 | |
103 #define VTBI_SET_LONG VTBI_BASE+4 | |
104 #define VTBI_GET_LONG VTBI_BASE+5 | |
105 #define VTBI_SET_LONG_LONG VTBI_BASE+6 | |
106 #define VTBI_GET_LONG_LONG VTBI_BASE+7 | |
107 #define VTBI_SET_FLOAT VTBI_BASE+8 | |
108 #define VTBI_GET_FLOAT VTBI_BASE+9 | |
109 #define VTBI_SET_DOUBLE VTBI_BASE+10 | |
110 #define VTBI_GET_DOUBLE VTBI_BASE+11 | |
111 #define VTBI_SET_POINTER VTBI_BASE+12 | |
112 #define VTBI_GET_POINTER VTBI_BASE+13 | |
113 | |
114 class Value | |
115 { | |
116 public: | |
117 virtual ~Value() {} | |
118 | |
119 virtual void __cdecl setBool(DCbool x) { mValue.B = x; } | |
120 virtual DCbool __cdecl getBool() { return mValue.B; } | |
121 virtual void __cdecl setInt(DCint x) { mValue.i = x; } | |
122 virtual DCint __cdecl getInt() { return mValue.i; } | |
123 virtual void __cdecl setLong(DClong x) { mValue.j = x; } | |
124 virtual DClong __cdecl getLong() { return mValue.j; } | |
125 virtual void __cdecl setLongLong(DClonglong x) { mValue.l = x; } | |
126 virtual DClonglong __cdecl getLongLong() { return mValue.l; } | |
127 virtual void __cdecl setFloat(DCfloat x) { mValue.f = x; } | |
128 virtual DCfloat __cdecl getFloat() { return mValue.f; } | |
129 virtual void __cdecl setDouble(DCdouble x) { mValue.d = x; } | |
130 virtual DCdouble __cdecl getDouble() { return mValue.d; } | |
131 virtual void __cdecl setPtr(DCpointer x) { mValue.p = x; } | |
132 virtual DCpointer __cdecl getPtr() { return mValue.p; } | |
133 private: | |
134 ValueUnion mValue; | |
135 }; | |
136 | |
137 /* C++ class using (on win32: microsoft) this call */ | |
138 | |
139 class ValueMS | |
140 { | |
141 public: | |
142 virtual ~ValueMS() {} | |
143 | |
144 virtual void setBool(DCbool x) { mValue.B = x; } | |
145 virtual DCbool getBool() { return mValue.B; } | |
146 virtual void setInt(DCint x) { mValue.i = x; } | |
147 virtual DCint getInt() { return mValue.i; } | |
148 virtual void setLong(DClong x) { mValue.j = x; } | |
149 virtual DClong getLong() { return mValue.j; } | |
150 virtual void setLongLong(DClonglong x) { mValue.l = x; } | |
151 virtual DClonglong getLongLong() { return mValue.l; } | |
152 virtual void setFloat(DCfloat x) { mValue.f = x; } | |
153 virtual DCfloat getFloat() { return mValue.f; } | |
154 virtual void setDouble(DCdouble x) { mValue.d = x; } | |
155 virtual DCdouble getDouble() { return mValue.d; } | |
156 virtual void setPtr(DCpointer x) { mValue.p = x; } | |
157 virtual DCpointer getPtr() { return mValue.p; } | |
158 private: | |
159 ValueUnion mValue; | |
160 }; | |
161 | |
162 template<typename T> | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
163 bool testCallValue(DCCallVM* pc, const char* name) |
0 | 164 { |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
165 bool r = true, b; |
0 | 166 T o; |
167 T* pThis = &o; | |
168 DCpointer* vtbl = *( (DCpointer**) pThis ); /* vtbl is located at beginning of class */ | |
169 | |
170 /* set/get bool (TRUE) */ | |
171 | |
172 dcReset(pc); | |
173 dcArgPointer(pc, pThis); | |
174 dcArgBool(pc,DC_TRUE); | |
175 dcCallVoid(pc, vtbl[VTBI_SET_BOOL] ); | |
176 dcReset(pc); | |
177 dcArgPointer(pc, pThis); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
178 b = ( dcCallBool(pc, vtbl[VTBI_GET_BOOL] ) == DC_TRUE ); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
179 printf("bt (%s): %d\n", name, b); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
180 r = r && b; |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
181 |
0 | 182 /* set/get bool (FALSE) */ |
183 | |
184 dcReset(pc); | |
185 dcArgPointer(pc, pThis); | |
186 dcArgBool(pc,DC_FALSE); | |
187 dcCallVoid(pc, vtbl[VTBI_SET_BOOL] ); | |
188 dcReset(pc); | |
189 dcArgPointer(pc, pThis); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
190 b = ( dcCallBool(pc, vtbl[VTBI_GET_BOOL] ) == DC_FALSE ); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
191 printf("bf (%s): %d\n", name, b); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
192 r = r && b; |
0 | 193 |
194 /* set/get int */ | |
195 | |
196 dcReset(pc); | |
197 dcArgPointer(pc, pThis); | |
198 dcArgInt(pc,1234); | |
199 dcCallVoid(pc, vtbl[VTBI_SET_INT] ); | |
200 dcReset(pc); | |
201 dcArgPointer(pc, pThis); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
202 b = ( dcCallInt(pc, vtbl[VTBI_GET_INT] ) == 1234 ); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
203 printf("i (%s): %d\n", name, b); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
204 r = r && b; |
0 | 205 |
206 /* set/get long */ | |
207 | |
208 dcReset(pc); | |
209 dcArgPointer(pc, pThis); | |
210 dcArgLong(pc,0xCAFEBABEUL); | |
211 dcCallVoid(pc, vtbl[VTBI_SET_LONG] ); | |
212 dcReset(pc); | |
213 dcArgPointer(pc, pThis); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
214 b = ( dcCallLong(pc, vtbl[VTBI_GET_LONG] ) == (DClong)0xCAFEBABEUL ); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
215 printf("l (%s): %d\n", name, b); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
216 r = r && b; |
0 | 217 |
218 /* set/get long long */ | |
219 | |
220 dcReset(pc); | |
221 dcArgPointer(pc, pThis); | |
222 dcArgLongLong(pc,0xCAFEBABEDEADC0DELL); | |
223 dcCallVoid(pc, vtbl[VTBI_SET_LONG_LONG] ); | |
224 dcReset(pc); | |
225 dcArgPointer(pc, pThis); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
226 b = ( dcCallLongLong(pc, vtbl[VTBI_GET_LONG_LONG] ) == (DClonglong)0xCAFEBABEDEADC0DELL ); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
227 printf("ll (%s): %d\n", name, b); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
228 r = r && b; |
0 | 229 |
230 /* set/get float */ | |
231 | |
232 dcReset(pc); | |
233 dcArgPointer(pc, pThis); | |
234 dcArgFloat(pc,1.2345f); | |
235 dcCallVoid(pc, vtbl[VTBI_SET_FLOAT] ); | |
236 dcReset(pc); | |
237 dcArgPointer(pc, pThis); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
238 b = ( dcCallFloat(pc, vtbl[VTBI_GET_FLOAT] ) == 1.2345f ); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
239 printf("f (%s): %d\n", name, b); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
240 r = r && b; |
0 | 241 |
242 /* set/get double */ | |
243 | |
244 dcReset(pc); | |
245 dcArgPointer(pc, pThis); | |
246 dcArgDouble(pc,1.23456789); | |
247 dcCallVoid(pc, vtbl[VTBI_SET_DOUBLE] ); | |
248 dcReset(pc); | |
249 dcArgPointer(pc, pThis); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
250 b = ( dcCallDouble(pc, vtbl[VTBI_GET_DOUBLE] ) == 1.23456789 ); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
251 printf("d (%s): %d\n", name, b); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
252 r = r && b; |
0 | 253 |
254 /* set/get pointer */ | |
255 | |
256 dcReset(pc); | |
257 dcArgPointer(pc, pThis); | |
258 dcArgPointer(pc, (DCpointer) 0xCAFEBABE ); | |
259 dcCallVoid(pc, vtbl[VTBI_SET_POINTER] ); | |
260 dcReset(pc); | |
261 dcArgPointer(pc, pThis); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
262 b = ( dcCallPointer(pc, vtbl[VTBI_GET_POINTER] ) == ( (DCpointer) 0xCAFEBABE ) ); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
263 printf("p (%s): %d\n", name, b); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
264 r = r && b; |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
265 |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
266 return r; |
0 | 267 } |
268 | |
269 | |
348 | 270 #if defined(DC__OS_Win32) |
0 | 271 |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
272 int testCallThisMS() |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
273 { |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
274 bool r = false; |
0 | 275 DCCallVM* pc = dcNewCallVM(4096); |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
276 dcMode(pc, DC_CALL_C_X86_WIN32_THIS_MS); |
0 | 277 dcReset(pc); |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
278 if(setjmp(jbuf) != 0) |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
279 printf("sigsegv\n"); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
280 else |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
281 r = testCallValue<ValueMS>(pc, "MS"); |
0 | 282 dcFree(pc); |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
283 return r; |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
284 } |
0 | 285 |
286 #endif | |
287 | |
288 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
289 int testCallThisC() |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
290 { |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
291 bool r = false; |
0 | 292 DCCallVM* pc = dcNewCallVM(4096); |
293 dcReset(pc); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
294 if(setjmp(jbuf) != 0) |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
295 printf("sigsegv\n"); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
296 else |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
297 r = testCallValue<Value>(pc, "c"); |
0 | 298 dcFree(pc); |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
299 return r; |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
300 } |
0 | 301 |
302 | |
303 extern "C" { | |
304 | |
305 int main(int argc, char* argv[]) | |
306 { | |
307 dcTest_initPlatform(); | |
308 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
309 signal(SIGSEGV, segv_handler); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
310 |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
311 bool r = true; |
0 | 312 |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
313 r = testCallThisC() && r; |
348 | 314 #if defined(DC__OS_Win32) |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
315 r = testCallThisMS() && r; |
0 | 316 #endif |
317 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
318 printf("result: plain_cpp: %d\n", r); |
0 | 319 |
320 dcTest_deInitPlatform(); | |
321 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
322 return !r; |
0 | 323 } |
324 | |
325 } // extern "C" | |
326 |