Mercurial > pub > dyncall > dyncall

annotate test/call_suite/main.c @ 504:f263eb7a206e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- call_suite: made output more consistent with dyncall sig style
author Tassilo Philipp
date Fri, 08 Apr 2022 20:33:14 +0200
parents e3bf15207d93
children ed7d1f5e7973
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
1 /*
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
2
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
3 Package: dyncall
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
4 Library: test
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
5 File: test/call_suite/main.c
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
6 Description:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
7 License:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
8
436
23b12c7ad462 - call_suite cleanup (no change in functionality): removal of unused decl, freeing memory at end, func renaming for clarity, static for tu-local symbols, ...
Tassilo Philipp
parents: 429
diff changeset
9 Copyright (c) 2011-2022 Daniel Adler <dadler@uni-goettingen.de>,
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
10 Tassilo Philipp <tphilipp@potion-studios.com>
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
11
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
12 Permission to use, copy, modify, and distribute this software for any
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
13 purpose with or without fee is hereby granted, provided that the above
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
14 copyright notice and this permission notice appear in all copies.
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
15
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
16 THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
17 WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
18 MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
19 ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
20 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
21 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
22 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
23
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
24 */
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
25
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
26 #include "dyncall.h"
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
27 #include "globals.h"
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
28 #include <string.h>
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
29 #include "../common/platformInit.h"
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
30 #include "../common/platformInit.c" /* Impl. for functions only used in this translation unit */
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
31
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
32
437
135c7fb49c2f - call_suite: made generator produce unique signatures; regenerated case list
Tassilo Philipp
parents: 436
diff changeset
33 static void* G_callvm;
429
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
34
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
35
436
23b12c7ad462 - call_suite cleanup (no change in functionality): removal of unused decl, freeing memory at end, func renaming for clarity, static for tu-local symbols, ...
Tassilo Philipp
parents: 429
diff changeset
36 static int invoke(char const* signature, void* t)
429
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
37 {
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
38 DCCallVM * p = (DCCallVM*) G_callvm;
504
f263eb7a206e - call_suite: made output more consistent with dyncall sig style
Tassilo Philipp
parents: 491
diff changeset
39 const char * sig = signature;
f263eb7a206e - call_suite: made output more consistent with dyncall sig style
Tassilo Philipp
parents: 491
diff changeset
40 const char * rtype;
429
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
41 char atype;
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
42 int pos = 0;
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
43 int s = 0;
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
44
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
45 clear_V();
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
46
429
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
47 dcReset(p);
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
48
504
f263eb7a206e - call_suite: made output more consistent with dyncall sig style
Tassilo Philipp
parents: 491
diff changeset
49 /* locate return type in sig; if no ')' separator, test failed */
f263eb7a206e - call_suite: made output more consistent with dyncall sig style
Tassilo Philipp
parents: 491
diff changeset
50 rtype = strchr(sig, ')');
f263eb7a206e - call_suite: made output more consistent with dyncall sig style
Tassilo Philipp
parents: 491
diff changeset
51 if(!rtype) {
f263eb7a206e - call_suite: made output more consistent with dyncall sig style
Tassilo Philipp
parents: 491
diff changeset
52 printf("cannot locate rtype in sig '%s' ;", signature);
f263eb7a206e - call_suite: made output more consistent with dyncall sig style
Tassilo Philipp
parents: 491
diff changeset
53 return 0;
f263eb7a206e - call_suite: made output more consistent with dyncall sig style
Tassilo Philipp
parents: 491
diff changeset
54 }
f263eb7a206e - call_suite: made output more consistent with dyncall sig style
Tassilo Philipp
parents: 491
diff changeset
55
f263eb7a206e - call_suite: made output more consistent with dyncall sig style
Tassilo Philipp
parents: 491
diff changeset
56 ++rtype;
f263eb7a206e - call_suite: made output more consistent with dyncall sig style
Tassilo Philipp
parents: 491
diff changeset
57
f263eb7a206e - call_suite: made output more consistent with dyncall sig style
Tassilo Philipp
parents: 491
diff changeset
58 while ( (atype = *sig++) != ')') {
429
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
59 pos++;
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
60 switch(atype) {
491
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
61 case 'c': dcArgChar (p,K_c[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
62 case 's': dcArgShort (p,K_s[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
63 case 'i': dcArgInt (p,K_i[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
64 case 'j': dcArgLong (p,K_j[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
65 case 'l': dcArgLongLong(p,K_l[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
66 case 'C': dcArgChar (p,K_C[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
67 case 'S': dcArgShort (p,K_S[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
68 case 'I': dcArgInt (p,K_I[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
69 case 'J': dcArgLong (p,K_J[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
70 case 'L': dcArgLongLong(p,K_L[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
71 case 'p': dcArgPointer (p,K_p[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
72 case 'f': dcArgFloat (p,K_f[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
73 case 'd': dcArgDouble (p,K_d[pos]); break;
429
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
74 default: printf("unknown atype '%c' (1) ;", atype); return 0;
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
75 }
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
76 }
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
77
504
f263eb7a206e - call_suite: made output more consistent with dyncall sig style
Tassilo Philipp
parents: 491
diff changeset
78 switch(*rtype)
429
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
79 {
491
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
80 case 'v': dcCallVoid (p,t); s=1; break; /*TODO:check that no return-arg was touched.*/
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
81 case 'c': s = ( dcCallChar (p,t) == K_c[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
82 case 's': s = ( dcCallShort (p,t) == K_s[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
83 case 'i': s = ( dcCallInt (p,t) == K_i[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
84 case 'j': s = ( dcCallLong (p,t) == K_j[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
85 case 'l': s = ( dcCallLongLong(p,t) == K_l[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
86 case 'C': s = ((unsigned char) dcCallChar (p,t) == K_C[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
87 case 'S': s = ((unsigned short) dcCallShort (p,t) == K_S[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
88 case 'I': s = ((unsigned int) dcCallInt (p,t) == K_I[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
89 case 'J': s = ((unsigned long) dcCallLong (p,t) == K_J[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
90 case 'L': s = ((unsigned long long)dcCallLongLong(p,t) == K_L[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
91 case 'p': s = ( dcCallPointer (p,t) == K_p[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
92 case 'f': s = ( dcCallFloat (p,t) == K_f[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
93 case 'd': s = ( dcCallDouble (p,t) == K_d[pos]); break;
504
f263eb7a206e - call_suite: made output more consistent with dyncall sig style
Tassilo Philipp
parents: 491
diff changeset
94 default: printf("unknown rtype '%s'", rtype); return 0;
429
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
95 }
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
96
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
97 if (!s) { printf("rval wrong;"); return 0; }
504
f263eb7a206e - call_suite: made output more consistent with dyncall sig style
Tassilo Philipp
parents: 491
diff changeset
98
429
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
99 /* test: */
504
f263eb7a206e - call_suite: made output more consistent with dyncall sig style
Tassilo Philipp
parents: 491
diff changeset
100 sig = signature;
429
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
101 pos = 1;
504
f263eb7a206e - call_suite: made output more consistent with dyncall sig style
Tassilo Philipp
parents: 491
diff changeset
102 while ( (atype = *sig++) != ')') {
429
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
103 switch(atype) {
491
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
104 case 'c': s = ( V_c[pos] == K_c[pos] ); if (!s) printf("'%c':%d: %d != %d ; ", atype, pos, V_c[pos], K_c[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
105 case 's': s = ( V_s[pos] == K_s[pos] ); if (!s) printf("'%c':%d: %d != %d ; ", atype, pos, V_s[pos], K_s[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
106 case 'i': s = ( V_i[pos] == K_i[pos] ); if (!s) printf("'%c':%d: %d != %d ; ", atype, pos, V_i[pos], K_i[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
107 case 'j': s = ( V_j[pos] == K_j[pos] ); if (!s) printf("'%c':%d: %ld != %ld ; ", atype, pos, V_j[pos], K_j[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
108 case 'l': s = ( V_l[pos] == K_l[pos] ); if (!s) printf("'%c':%d: %lld != %lld ; ", atype, pos, V_l[pos], K_l[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
109 case 'C': s = ( V_C[pos] == K_C[pos] ); if (!s) printf("'%c':%d: %u != %u ; ", atype, pos, V_C[pos], K_C[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
110 case 'S': s = ( V_S[pos] == K_S[pos] ); if (!s) printf("'%c':%d: %u != %u ; ", atype, pos, V_S[pos], K_S[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
111 case 'I': s = ( V_I[pos] == K_I[pos] ); if (!s) printf("'%c':%d: %u != %u ; ", atype, pos, V_I[pos], K_I[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
112 case 'J': s = ( V_J[pos] == K_J[pos] ); if (!s) printf("'%c':%d: %lu != %lu ; ", atype, pos, V_J[pos], K_J[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
113 case 'L': s = ( V_L[pos] == K_L[pos] ); if (!s) printf("'%c':%d: %llu != %llu ; ", atype, pos, V_L[pos], K_L[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
114 case 'p': s = ( V_p[pos] == K_p[pos] ); if (!s) printf("'%c':%d: %p != %p ; ", atype, pos, V_p[pos], K_p[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
115 case 'f': s = ( V_f[pos] == K_f[pos] ); if (!s) printf("'%c':%d: %f != %f ; ", atype, pos, V_f[pos], K_f[pos]); break;
e3bf15207d93 - added unsigned types to call_suite test
Tassilo Philipp
parents: 437
diff changeset
116 case 'd': s = ( V_d[pos] == K_d[pos] ); if (!s) printf("'%c':%d: %f != %f ; ", atype, pos, V_d[pos], K_d[pos]); break;
429
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
117 default: printf("unknown atype '%c' ; ", atype); return 0;
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
118 }
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
119 if (!s) {
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
120 printf("arg mismatch at %d ; ", pos);
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
121 return 0;
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
122 }
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
123 pos++;
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
124 }
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
125 return 1;
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
126 }
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
127
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
128 int run_test(int i)
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
129 {
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
130 char const * sig;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
131 void * target;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
132 int success;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
133 sig = G_sigtab[i];
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
134 target = (void*) G_funtab[i];
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
135 printf("%d:%s:",i,sig);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
136 success = invoke(sig,target);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
137 printf("%d\n",success);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
138 return success;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
139 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
140
429
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
141 int run_all()
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
142 {
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
143 int i;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
144 int failure = 0;
429
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
145 for(i=0;i<G_ncases;++i)
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
146 failure |= !( run_test(i) );
429
2b708397bba1 - simplified and decluttered test/call_suite
Tassilo Philipp
parents: 410
diff changeset
147
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
148 return !failure;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
149 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
150
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
151 int main(int argc, char* argv[])
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
152 {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
153 int total;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
154
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
155 dcTest_initPlatform();
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
156
436
23b12c7ad462 - call_suite cleanup (no change in functionality): removal of unused decl, freeing memory at end, func renaming for clarity, static for tu-local symbols, ...
Tassilo Philipp
parents: 429
diff changeset
157 init_test_data(G_maxargs);
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
158 G_callvm = (DCCallVM*) dcNewCallVM(4096);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
159 dcReset(G_callvm);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
160 total = run_all();
436
23b12c7ad462 - call_suite cleanup (no change in functionality): removal of unused decl, freeing memory at end, func renaming for clarity, static for tu-local symbols, ...
Tassilo Philipp
parents: 429
diff changeset
161 dcFree(G_callvm);
23b12c7ad462 - call_suite cleanup (no change in functionality): removal of unused decl, freeing memory at end, func renaming for clarity, static for tu-local symbols, ...
Tassilo Philipp
parents: 429
diff changeset
162 deinit_test_data(G_maxargs);
23b12c7ad462 - call_suite cleanup (no change in functionality): removal of unused decl, freeing memory at end, func renaming for clarity, static for tu-local symbols, ...
Tassilo Philipp
parents: 429
diff changeset
163
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
164 printf("result: call_suite: %d\n", total);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
165
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
166 dcTest_deInitPlatform();
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
167
410
7608e34098b0 - cleanups, simplifications, some api clarification, ...
Tassilo Philipp
parents: 281
diff changeset
168 return !total;
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
169 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
170