Mercurial > pub > dyncall > dyncall
annotate test/suite_floats/case.cc @ 604:90dfdac91b9b
- cleanups, made some arrays local to TUs, etc.
| author | Tassilo Philipp |
|---|---|
| date | Wed, 21 Sep 2022 14:36:44 +0200 |
| parents | f5577f6bf97a |
| children | 85b7a117b807 |
| rev | line source |
|---|---|
| 0 | 1 /* |
| 2 | |
| 3 Package: dyncall | |
| 4 Library: test | |
| 5 File: test/suite_floats/case.cc | |
| 6 Description: | |
| 7 License: | |
| 8 | |
| 281 | 9 Copyright (c) 2007-2018 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 #include "../../dyncall/dyncall.h" | |
| 29 #include "config.h" | |
| 30 #include "../../dyncall/dyncall_value.h" | |
| 31 | |
|
604
90dfdac91b9b
- cleanups, made some arrays local to TUs, etc.
Tassilo Philipp
parents:
281
diff
changeset
|
32 static DCValue mValue[NARGS]; |
| 0 | 33 |
| 34 void clearValues() { for(int i = 0;i<NARGS;++i) mValue[i].L = 0xCAFEBABEDEADC0DEULL; } | |
| 35 | |
| 36 template<typename T> void g(T value, int pos); | |
| 37 | |
| 38 template<> void g(DCchar value, int pos) { mValue[pos].c = value; } | |
| 39 template<> void g(DCshort value, int pos) { mValue[pos].s = value; } | |
| 40 template<> void g(DCint value, int pos) { mValue[pos].i = value; } | |
| 41 template<> void g(DClonglong value, int pos) { mValue[pos].l = value; } | |
| 42 template<> void g(DCfloat value, int pos) { mValue[pos].f = value; } | |
| 43 template<> void g(DCdouble value, int pos) { mValue[pos].d = value; } | |
| 44 template<> void g(DCpointer value, int pos) { mValue[pos].p = value; } | |
| 45 | |
| 46 DCValue* getArg(int pos) { return &mValue[pos]; } | |
| 47 | |
| 48 int gID; | |
| 49 int getId() { return gID; } | |
| 50 | |
| 51 extern "C" { | |
| 52 | |
| 53 #define VF0(id,S) void S () {gID=id;} | |
| 54 #define VF1(id,A1,S) void S (A1 a1) {gID=id;g<A1>(a1,0);} | |
| 55 #define VF2(id,A1,A2,S) void S (A1 a1, A2 a2) {gID=id;g<A1>(a1,0);g<A2>(a2,1);} | |
| 56 #define VF3(id,A1,A2,A3,S) void S (A1 a1, A2 a2,A3 a3) {gID=id;g<A1>(a1,0);g<A2>(a2,1);g<A3>(a3,2);} | |
| 57 #define VF4(id,A1,A2,A3,A4,S) void S (A1 a1, A2 a2,A3 a3,A4 a4) {gID=id;g<A1>(a1,0);g<A2>(a2,1);g<A3>(a3,2);g<A4>(a4,3);} | |
| 58 #define VF5(id,A1,A2,A3,A4,A5,S) void S (A1 a1, A2 a2,A3 a3,A4 a4,A5 a5) {gID=id;g<A1>(a1,0);g<A2>(a2,1);g<A3>(a3,2);g<A4>(a4,3);g<A5>(a5,4);} | |
| 59 #define VF6(id,A1,A2,A3,A4,A5,A6,S) void S (A1 a1, A2 a2,A3 a3,A4 a4,A5 a5,A6 a6) {gID=id;g<A1>(a1,0);g<A2>(a2,1);g<A3>(a3,2);g<A4>(a4,3);g<A5>(a5,4);g<A6>(a6,5);} | |
| 60 #define VF7(id,A1,A2,A3,A4,A5,A6,A7,S) void S (A1 a1, A2 a2,A3 a3,A4 a4,A5 a5,A6 a6,A7 a7) {gID=id;g<A1>(a1,0);g<A2>(a2,1);g<A3>(a3,2);g<A4>(a4,3);g<A5>(a5,4);g<A6>(a6,5);g<A7>(a7,6);} | |
| 61 #define VF8(id,A1,A2,A3,A4,A5,A6,A7,A8,S) void S (A1 a1, A2 a2,A3 a3,A4 a4,A5 a5,A6 a6,A7 a7,A8 a8) {gID=id;g<A1>(a1,0);g<A2>(a2,1);g<A3>(a3,2);g<A4>(a4,3);g<A5>(a5,4);g<A6>(a6,5);g<A7>(a7,6);g<A8>(a8,7);} | |
| 62 #define VF9(id,A1,A2,A3,A4,A5,A6,A7,A8,A9,S) void S (A1 a1, A2 a2,A3 a3,A4 a4,A5 a5,A6 a6,A7 a7,A8 a8,A9 a9) {gID=id;g<A1>(a1,0);g<A2>(a2,1);g<A3>(a3,2);g<A4>(a4,3);g<A5>(a5,4);g<A6>(a6,5);g<A7>(a7,6);g<A8>(a8,7);g<A9>(a9,8);} | |
| 63 #define VF10(id,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,S) void S (A1 a1, A2 a2,A3 a3,A4 a4,A5 a5,A6 a6,A7 a7,A8 a8,A9 a9,A10 a10) {gID=id;g<A1>(a1,0);g<A2>(a2,1);g<A3>(a3,2);g<A4>(a4,3);g<A5>(a5,4);g<A6>(a6,5);g<A7>(a7,6);g<A8>(a8,7);g<A9>(a9,8);g<A10>(a10,9);} | |
| 64 | |
| 65 #include "case.h" | |
| 66 | |
| 67 } | |
| 68 | |
| 69 #undef VF0 | |
| 70 #undef VF1 | |
| 71 #undef VF2 | |
| 72 #undef VF3 | |
| 73 #undef VF4 | |
| 74 #undef VF5 | |
| 75 #undef VF6 | |
| 76 #undef VF7 | |
| 77 #undef VF8 | |
| 78 #undef VF9 | |
| 79 #undef VF10 | |
| 80 | |
| 81 #define VF0(id,S) reinterpret_cast<void(*)()>(S), | |
| 82 #define VF1(id,A1,S) reinterpret_cast<void(*)()>(S), | |
| 83 #define VF2(id,A1,A2,S) reinterpret_cast<void(*)()>(S), | |
| 84 #define VF3(id,A1,A2,A3,S) reinterpret_cast<void(*)()>(S), | |
| 85 #define VF4(id,A1,A2,A3,A4,S) reinterpret_cast<void(*)()>(S), | |
| 86 #define VF5(id,A1,A2,A3,A4,A5,S) reinterpret_cast<void(*)()>(S), | |
| 87 #define VF6(id,A1,A2,A3,A4,A5,A6,S) reinterpret_cast<void(*)()>(S), | |
| 88 #define VF7(id,A1,A2,A3,A4,A5,A6,A7,S) reinterpret_cast<void(*)()>(S), | |
| 89 #define VF8(id,A1,A2,A3,A4,A5,A6,A7,A8,S) reinterpret_cast<void(*)()>(S), | |
| 90 #define VF9(id,A1,A2,A3,A4,A5,A6,A7,A8,A9,S) reinterpret_cast<void(*)()>(S), | |
| 91 #define VF10(id,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,S) reinterpret_cast<void(*)()>(S), | |
| 92 | |
| 93 typedef void (*fp)(); | |
|
604
90dfdac91b9b
- cleanups, made some arrays local to TUs, etc.
Tassilo Philipp
parents:
281
diff
changeset
|
94 static fp gFuncTable[] = { |
| 0 | 95 #include "case.h" |
| 96 }; | |
| 97 | |
| 98 DCpointer getFunc(int x) { | |
| 99 return (DCpointer) gFuncTable[x]; | |
| 100 } | |
|
604
90dfdac91b9b
- cleanups, made some arrays local to TUs, etc.
Tassilo Philipp
parents:
281
diff
changeset
|
101 |