Mercurial > pub > dyncall > dyncall

comparison test/call_suite/globals.h @ 429:2b708397bba1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- simplified and decluttered test/call_suite
author Tassilo Philipp
date Mon, 17 Jan 2022 11:36:09 +0100
parents f5577f6bf97a
children 23b12c7ad462
comparison
equal deleted inserted replaced
428:72024b0957c2 429:2b708397bba1
22 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 22 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
23 23
24 */ 24 */
25 25
26 26
27 #define DEF_TYPES X(c,char,'c') X(s,short,'s') X(i,int,'i') X(j,long,'j') X(l,long long,'l') X(p,void*,'p') X(f,float,'f') X(d,double,'d') 27 #define DEF_TYPES X(c,char) X(s,short) X(i,int) X(j,long) X(l,long long) X(p,void*) X(f,float) X(d,double)
28 28
29 #define X(CH,T,QCH) extern T *K_##CH; extern T *V_##CH; 29 #define X(CH,T) extern T *K_##CH; extern T *V_##CH;
30 DEF_TYPES 30 DEF_TYPES
31 #undef X 31 #undef X
32 32
33 typedef void (*funptr)(); 33 typedef void (*funptr)();
34 34
35 extern void * G_callvm;
36 extern funptr G_funtab[]; 35 extern funptr G_funtab[];
37 extern char const * G_sigtab[]; 36 extern char const * G_sigtab[];
38 extern int G_ncases; 37 extern int G_ncases;
39 extern int G_maxargs; 38 extern int G_maxargs;
40 39
41 void init_K(); 40 void init_K();
42 void init_T(); 41 void init_T();
43 void clear_V(); 42 void clear_V();
44 int invoke(char const* signature, void* target);
45 43
46 #if 0
47 extern const char *K_c;
48 extern const short *K_s;
49 extern const int *K_i;
50 extern const long *K_j;
51 extern const long long *K_l;
52 extern void* const *K_p;
53 extern const float *K_f;
54 extern const double *K_d;
55
56 extern char *V_c;
57 extern short *V_s;
58 extern int *V_i;
59 extern long *V_j;
60 extern long long *V_l;
61 extern void* *V_p;
62 extern float *V_f;
63 extern double *V_d;
64 #endif
65