|
0
|
1 /*
|
|
|
2
|
|
|
3 Package: dyncall
|
|
|
4 Library: test
|
|
|
5 File: test/call_suite/cases.c
|
|
|
6 Description:
|
|
|
7 License:
|
|
|
8
|
|
281
|
9 Copyright (c) 2011-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 #include "globals.h"
|
|
|
27
|
|
|
28 #define ret_v(X)
|
|
515
|
29 #define ret_B(X) return(K_B[X]);
|
|
0
|
30 #define ret_c(X) return(K_c[X]);
|
|
|
31 #define ret_s(X) return(K_s[X]);
|
|
|
32 #define ret_i(X) return(K_i[X]);
|
|
|
33 #define ret_j(X) return(K_j[X]);
|
|
|
34 #define ret_l(X) return(K_l[X]);
|
|
491
|
35 #define ret_C(X) return(K_C[X]);
|
|
|
36 #define ret_S(X) return(K_S[X]);
|
|
|
37 #define ret_I(X) return(K_I[X]);
|
|
|
38 #define ret_J(X) return(K_J[X]);
|
|
|
39 #define ret_L(X) return(K_L[X]);
|
|
0
|
40 #define ret_p(X) return(K_p[X]);
|
|
|
41 #define ret_f(X) return(K_f[X]);
|
|
|
42 #define ret_d(X) return(K_d[X]);
|
|
|
43
|
|
|
44 #define v void
|
|
491
|
45 #define X(CH,T) typedef T CH;
|
|
|
46 DEF_TYPES
|
|
|
47 #undef X
|
|
0
|
48
|
|
|
49 #include "cases.h"
|
|
|
50
|
|
|
51 int G_ncases = sizeof(G_sigtab)/sizeof(G_sigtab[0]);
|
|
|
52
|
