Mercurial > pub > dyncall > dyncall
annotate test/plain/test_main.c @ 533:71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
* integration of aggregate-by-value (struct, union) support patch for x64 (win and sysv)
* windows/x64 asm additions to specify how stack unwinds (help for debuggers, exception handling, etc.)
* see Changelog for details
- new calling convention modes for thiscalls (platform agnostic, was specific before)
* new signature character for platform agnostic thiscalls ('*' / DC_SIGCHAR_CC_THISCALL)
- dcCallF(), dcVCallF(), dcArgF() and dcVArgF():
* added support for aggregates-by-value (wasn't part of patch)
* change that those functions don't implicitly call dcReset() anymore, which was unflexible (breaking change)
- added macros to feature test implementation for aggregate-by-value and syscall support
- changed libdyncall_s.lib and libdyncallback_s.lib order in callback test makefiles, as some toolchains are picky about order
- doc:
* man page updates to describe aggregate interface
* manual overview changes to highlight platforms with aggregate-by-value support
- test/plain: replaced tests w/ old/stale sctruct interface with new aggregate one
| author | Tassilo Philipp |
|---|---|
| date | Thu, 21 Apr 2022 13:35:47 +0200 |
| parents | d4bf63ab9164 |
| children | c477ddd64718 |
| rev | line source |
|---|---|
| 0 | 1 /* |
| 2 | |
| 3 Package: dyncall | |
| 4 Library: test | |
| 5 File: test/plain/test_main.c | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
6 Description: |
| 0 | 7 License: |
| 8 | |
| 531 | 9 Copyright (c) 2007-2022 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 /* ------------------------------------------------------------------------- |
|
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
35 * test: identity function calls |
| 0 | 36 * ------------------------------------------------------------------------- */ |
| 37 | |
| 38 #define DEF_FUNCS(API,NAME) \ | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
39 void API fun_##NAME##_v() { g_void_testval = 1; } \ |
| 0 | 40 DCbool API fun_##NAME##_b(DCbool x) { return x; } \ |
| 41 DCint API fun_##NAME##_i(DCint x) { return x; } \ | |
| 42 DClong API fun_##NAME##_j(DClong x) { return x; } \ | |
| 43 DClonglong API fun_##NAME##_l(DClonglong x) { return x; } \ | |
| 44 DCfloat API fun_##NAME##_f(DCfloat x) { return x; } \ | |
| 45 DCdouble API fun_##NAME##_d(DCdouble x) { return x; } \ | |
| 46 DCpointer API fun_##NAME##_p(DCpointer x) { return x; } | |
| 47 | |
| 48 /* __cdecl */ | |
| 49 | |
| 50 #if !defined(DC__OS_Win32) | |
| 51 # define __cdecl | |
| 52 #endif | |
| 53 | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
54 int g_void_testval; |
| 0 | 55 DEF_FUNCS(__cdecl,c) |
| 56 | |
| 531 | 57 static int testCallC() |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
58 { |
|
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
59 int ret = 1; |
| 0 | 60 |
| 61 DCCallVM* pc = dcNewCallVM(4096); | |
| 62 dcMode(pc,DC_CALL_C_DEFAULT); | |
| 63 /* void */ | |
| 64 dcReset(pc); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
65 g_void_testval = 0; |
| 0 | 66 dcCallVoid(pc, (DCpointer) &fun_c_v); |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
67 ret = g_void_testval && ret; |
| 0 | 68 /* bool */ |
| 69 { | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
70 DCbool r, val=DC_TRUE; |
| 0 | 71 dcReset(pc); |
| 72 dcArgBool(pc, val); | |
| 73 r = dcCallBool(pc, (DCpointer) &fun_c_b); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
74 printf("bt (cdecl): %d\n", (r == val)); |
| 531 | 75 ret = (r == val) && ret; |
| 0 | 76 |
|
146
0ab08c1541f0
- fixed armhf ellipsis calls, were ignoring spill area
cslag
parents:
141
diff
changeset
|
77 val=DC_FALSE; |
| 0 | 78 dcReset(pc); |
| 79 dcArgBool(pc, val); | |
| 80 r = dcCallBool(pc, (DCpointer) &fun_c_b); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
81 printf("bf (cdecl): %d\n", (r == val)); |
| 531 | 82 ret = (r == val) && ret; |
| 0 | 83 } |
| 84 /* int */ | |
| 85 { | |
| 86 DCint r, val=1234; | |
| 87 dcReset(pc); | |
| 88 dcArgInt(pc, val); | |
| 89 r = dcCallInt(pc, (DCpointer) &fun_c_i); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
90 printf("i (cdecl): %d\n", (r == val)); |
| 531 | 91 ret = (r == val) && ret; |
| 0 | 92 } |
| 93 /* long */ | |
| 94 { | |
| 95 DClong r, val=(DClong) 0xCAFEBABEL; | |
| 96 dcReset(pc); | |
| 97 dcArgLong(pc, val); | |
| 98 r = dcCallLong(pc, (DCpointer) &fun_c_j); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
99 printf("l (cdecl): %d\n", (r == val)); |
| 531 | 100 ret = (r == val) && ret; |
| 0 | 101 } |
| 102 /* long long */ | |
| 103 { | |
| 104 DClonglong r, val=(DClonglong) 0xCAFEBABEDEADC0DELL; | |
| 105 dcReset(pc); | |
| 106 dcArgLongLong(pc, val); | |
| 107 r = dcCallLongLong(pc, (DCpointer) &fun_c_l); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
108 printf("ll (cdecl): %d\n", (r == (DClonglong)val)); |
| 531 | 109 ret = (r == (DClonglong)val) && ret; |
| 0 | 110 } |
| 111 /* float */ | |
| 112 { | |
| 113 DCfloat r, val=1.234567f; | |
| 114 dcReset(pc); | |
| 115 dcArgFloat(pc, val); | |
| 116 r = dcCallFloat(pc, (DCpointer) &fun_c_f); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
117 printf("f (cdecl): %d\n", (r == val)); |
| 531 | 118 ret = (r == val) && ret; |
| 0 | 119 } |
| 120 /* double */ | |
| 121 { | |
| 122 DCdouble r, val=1.23456789; | |
| 123 dcReset(pc); | |
| 124 dcArgDouble(pc, val); | |
| 125 r = dcCallDouble(pc, (DCpointer) &fun_c_d); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
126 printf("d (cdecl): %d\n", (r == val)); |
| 531 | 127 ret = (r == val) && ret; |
| 0 | 128 } |
| 129 /* ptr */ | |
| 130 { | |
| 131 DCpointer r; | |
| 132 dcReset(pc); | |
| 133 dcArgPointer(pc, (DCpointer) &fun_c_b); | |
| 134 r = dcCallPointer(pc, (DCpointer) &fun_c_p); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
135 printf("p (cdecl): %d\n", (r == (DCpointer) &fun_c_b)); |
| 531 | 136 ret = (r == (DCpointer) &fun_c_b) && ret; |
| 0 | 137 } |
| 138 dcFree(pc); | |
| 139 | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
140 return ret; |
|
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
141 } |
| 0 | 142 |
| 143 | |
| 348 | 144 #if defined(DC__OS_Win32) |
| 0 | 145 /* win32 __stdcall */ |
| 146 | |
| 147 DEF_FUNCS(__stdcall,std) | |
| 148 | |
| 531 | 149 static int testCallStd() |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
150 { |
|
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
151 int ret = 1; |
| 0 | 152 |
| 153 DCCallVM* pc = dcNewCallVM(4096); | |
| 154 dcMode(pc,DC_CALL_C_X86_WIN32_STD); | |
| 155 /* void */ | |
| 156 dcReset(pc); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
157 g_void_testval = 0; |
| 0 | 158 dcCallVoid(pc, (DCpointer) &fun_std_v); |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
159 ret = g_void_testval && ret; |
| 0 | 160 /* bool */ |
| 161 { | |
| 162 DCbool r, val=DC_TRUE; | |
| 163 dcReset(pc); | |
| 164 dcArgBool(pc, val); | |
| 165 r = dcCallBool(pc, (DCpointer) &fun_std_b); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
166 printf("bt (stdcall): %d\n", (r == val)); |
| 531 | 167 ret = (r == val) && ret; |
| 0 | 168 |
|
146
0ab08c1541f0
- fixed armhf ellipsis calls, were ignoring spill area
cslag
parents:
141
diff
changeset
|
169 val=DC_FALSE; |
| 0 | 170 dcReset(pc); |
| 171 dcArgBool(pc, val); | |
| 172 r = dcCallBool(pc, (DCpointer) &fun_std_b); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
173 printf("bf (stdcall): %d\n", (r == val)); |
| 531 | 174 ret = (r == val) && ret; |
| 0 | 175 } |
| 176 /* int */ | |
| 177 { | |
| 178 DCint r, val=1234; | |
| 179 dcReset(pc); | |
| 180 dcArgInt(pc, val); | |
| 181 r = dcCallInt(pc, (DCpointer) &fun_std_i); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
182 printf("i (stdcall): %d\n", (r == val)); |
| 531 | 183 ret = (r == val) && ret; |
| 0 | 184 } |
| 185 /* long */ | |
| 186 { | |
| 187 DClong r, val=0xCAFEBABEUL; | |
| 188 dcReset(pc); | |
| 189 dcArgLong(pc, val); | |
| 190 r = dcCallLong(pc, (DCpointer) &fun_std_j); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
191 printf("l (stdcall): %d\n", (r == val)); |
| 531 | 192 ret = (r == val) && ret; |
| 0 | 193 } |
| 194 /* long long */ | |
| 195 { | |
| 196 DClonglong r, val=0xCAFEBABEDEADC0DEULL; | |
| 197 dcReset(pc); | |
| 198 dcArgLongLong(pc, val); | |
| 199 r = dcCallLongLong(pc, (DCpointer) &fun_std_l); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
200 printf("ll (stdcall): %d\n", (r == val)); |
| 531 | 201 ret = (r == val) && ret; |
| 0 | 202 } |
| 203 /* float */ | |
| 204 { | |
| 205 DCfloat r, val=1.234567f; | |
| 206 dcReset(pc); | |
| 207 dcArgFloat(pc, val); | |
| 208 r = dcCallFloat(pc, (DCpointer) &fun_std_f); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
209 printf("f (stdcall): %d\n", (r == val)); |
| 531 | 210 ret = (r == val) && ret; |
| 0 | 211 } |
| 212 /* double */ | |
| 213 { | |
| 214 DCdouble r, val=1.23456789; | |
| 215 dcReset(pc); | |
| 216 dcArgDouble(pc, val); | |
| 217 r = dcCallDouble(pc, (DCpointer) &fun_std_d); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
218 printf("d (stdcall): %d\n", (r == val)); |
| 531 | 219 ret = (r == val) && ret; |
| 0 | 220 } |
| 221 /* ptr */ | |
| 222 { | |
| 223 DCpointer r; | |
| 224 dcReset(pc); | |
| 225 dcArgPointer(pc, (DCpointer) &fun_c_b); | |
| 226 r = dcCallPointer(pc, (DCpointer) &fun_std_p); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
227 printf("p (stdcall): %d\n", (r == &fun_c_b)); |
| 531 | 228 ret = (r == &fun_c_b) && ret; |
| 0 | 229 } |
| 230 dcFree(pc); | |
| 231 | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
232 return ret; |
|
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
233 } |
| 0 | 234 |
| 235 #endif | |
| 236 | |
| 237 | |
| 348 | 238 #if defined(DC__OS_Win32) |
| 0 | 239 /* win32 __fastcall */ |
| 240 | |
| 241 DEF_FUNCS(__fastcall,fast) | |
| 242 | |
| 531 | 243 static int testCallFast() |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
244 { |
|
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
245 int ret = 1; |
| 0 | 246 |
| 247 DCCallVM* pc = dcNewCallVM(4096); | |
| 248 #ifdef DC__C_GNU | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
249 # define FT "GNU" |
| 0 | 250 dcMode(pc,DC_CALL_C_X86_WIN32_FAST_GNU); |
| 251 #else | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
252 # define FT "MS" |
| 0 | 253 dcMode(pc,DC_CALL_C_X86_WIN32_FAST_MS); |
| 254 #endif | |
| 255 /* void */ | |
| 256 dcReset(pc); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
257 g_void_testval = 0; |
| 0 | 258 dcCallVoid(pc, (DCpointer) &fun_fast_v); |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
259 ret = g_void_testval && ret; |
| 0 | 260 /* bool */ |
| 261 { | |
| 262 DCbool r, val=DC_TRUE; | |
| 263 dcReset(pc); | |
| 264 dcArgBool(pc, val); | |
| 265 r = dcCallBool(pc, (DCpointer) &fun_fast_b); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
266 printf("bt ("FT"fastcall): %d\n", (r == val)); |
| 531 | 267 ret = (r == val) && ret; |
| 0 | 268 |
|
146
0ab08c1541f0
- fixed armhf ellipsis calls, were ignoring spill area
cslag
parents:
141
diff
changeset
|
269 val=DC_FALSE; |
| 0 | 270 dcReset(pc); |
| 271 dcArgBool(pc, val); | |
| 272 r = dcCallBool(pc, (DCpointer) &fun_fast_b); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
273 printf("bf ("FT"fastcall): %d\n", (r == val)); |
| 531 | 274 ret = (r == val) && ret; |
| 0 | 275 } |
| 276 /* int */ | |
| 277 { | |
| 278 DCint r, val=1234; | |
| 279 dcReset(pc); | |
| 280 dcArgInt(pc, val); | |
| 281 r = dcCallInt(pc, (DCpointer) &fun_fast_i); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
282 printf("i ("FT"fastcall): %d\n", (r == val)); |
| 531 | 283 ret = (r == val) && ret; |
| 0 | 284 } |
| 285 /* long */ | |
| 286 { | |
| 287 DClong r, val=0xCAFEBABEUL; | |
| 288 dcReset(pc); | |
| 289 dcArgLong(pc, val); | |
| 290 r = dcCallLong(pc, (DCpointer) &fun_fast_j); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
291 printf("l ("FT"fastcall): %d\n", (r == val)); |
| 531 | 292 ret = (r == val) && ret; |
| 0 | 293 } |
| 294 /* long long */ | |
| 295 { | |
| 296 DClonglong r, val=0xCAFEBABEDEADC0DEULL; | |
| 297 dcReset(pc); | |
| 298 dcArgLongLong(pc, val); | |
| 299 r = dcCallLongLong(pc, (DCpointer) &fun_fast_l); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
300 printf("ll ("FT"fastcall): %d\n", (r == val)); |
| 531 | 301 ret = (r == val) && ret; |
| 0 | 302 } |
| 303 /* float */ | |
| 304 { | |
| 305 DCfloat r, val=1.234567f; | |
| 306 dcReset(pc); | |
| 307 dcArgFloat(pc, val); | |
| 308 r = dcCallFloat(pc, (DCpointer) &fun_fast_f); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
309 printf("f ("FT"fastcall): %d\n", (r == val)); |
| 531 | 310 ret = (r == val) && ret; |
| 0 | 311 } |
| 312 /* double */ | |
| 313 { | |
| 314 DCdouble r, val=1.23456789; | |
| 315 dcReset(pc); | |
| 316 dcArgDouble(pc, val); | |
| 317 r = dcCallDouble(pc, (DCpointer) &fun_fast_d); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
318 printf("d ("FT"fastcall): %d\n", (r == val)); |
| 531 | 319 ret = (r == val) && ret; |
| 0 | 320 } |
| 321 /* ptr */ | |
| 322 { | |
| 323 DCpointer r; | |
| 324 dcReset(pc); | |
| 325 dcArgPointer(pc, (DCpointer) &fun_c_b); | |
| 326 r = dcCallPointer(pc, (DCpointer) &fun_fast_p); | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
327 printf("p ("FT"fastcall): %d\n", (r == &fun_c_b)); |
| 531 | 328 ret = (r == &fun_c_b) && ret; |
| 0 | 329 } |
| 330 dcFree(pc); | |
| 331 | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
332 return ret; |
|
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
333 } |
|
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
334 |
| 0 | 335 #endif |
| 336 | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
337 |
|
533
71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
Tassilo Philipp
parents:
532
diff
changeset
|
338 #if defined(DC__Feature_AggrByVal) |
|
71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
Tassilo Philipp
parents:
532
diff
changeset
|
339 int testAggrReturns(); |
|
71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
Tassilo Philipp
parents:
532
diff
changeset
|
340 int testAggrParameters(); |
|
71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
Tassilo Philipp
parents:
532
diff
changeset
|
341 #endif |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
342 |
| 0 | 343 int main(int argc, char* argv[]) |
| 344 { | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
345 int r = 1; |
| 0 | 346 dcTest_initPlatform(); |
| 347 | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
348 r = testCallC() && r; |
|
533
71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
Tassilo Philipp
parents:
532
diff
changeset
|
349 #if defined(DC__Feature_AggrByVal) |
|
71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
Tassilo Philipp
parents:
532
diff
changeset
|
350 r = testAggrReturns() && r; |
|
71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
Tassilo Philipp
parents:
532
diff
changeset
|
351 r = testAggrParameters() && r; |
|
71c884e610f0
- integration of patches from Raphael Luba, Thekla, Inc.:
Tassilo Philipp
parents:
532
diff
changeset
|
352 #endif |
| 0 | 353 #if defined(DC__OS_Win32) |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
354 r = testCallStd() && r; |
|
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
355 r = testCallFast() && r; |
| 0 | 356 #endif |
| 357 | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
358 printf("result: plain: %d\n", r); |
| 0 | 359 |
| 360 dcTest_deInitPlatform(); | |
| 361 | |
|
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
362 return !r; |
| 0 | 363 } |
| 364 |