|
0
|
1 /*
|
|
|
2
|
|
|
3 Package: dyncall
|
|
|
4 Library: test
|
|
|
5 File: test/call_suite/globals.h
|
|
|
6 Description:
|
|
|
7 License:
|
|
|
8
|
|
|
9 Copyright (c) 2011-2015 Daniel Adler <dadler@uni-goettingen.de>,
|
|
|
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 #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')
|
|
|
28
|
|
|
29 #define X(CH,T,QCH) extern T *K_##CH; extern T *V_##CH;
|
|
|
30 DEF_TYPES
|
|
|
31 #undef X
|
|
|
32
|
|
|
33 typedef void (*funptr)();
|
|
|
34
|
|
|
35 extern void * G_callvm;
|
|
|
36 extern funptr G_funtab[];
|
|
|
37 extern char const * G_sigtab[];
|
|
|
38 extern int G_ncases;
|
|
|
39 extern int G_maxargs;
|
|
|
40
|
|
|
41 void init_K();
|
|
|
42 void init_T();
|
|
|
43 void clear_V();
|
|
|
44 int invoke(char const* signature, void* target);
|
|
|
45
|
|
|
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
|
