Mercurial > pub > dyncall > dyncall

comparison test/call_suite_aggrs/main.c @ 506:ed7d1f5e7973

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- test cases: cosmetics for consistency
author Tassilo Philipp
date Sat, 09 Apr 2022 13:57:27 +0200
parents 62c3746390da
children f0080b53635d
comparison
equal deleted inserted replaced
505:049e04af13c8 506:ed7d1f5e7973
44 return i; 44 return i;
45 } 45 }
46 return -1; 46 return -1;
47 } 47 }
48 48
49 static int invoke(char const* signature, void* t) 49 static int invoke(const char *signature, void* t)
50 { 50 {
51 DCCallVM * p = (DCCallVM*) G_callvm; 51 DCCallVM * p = (DCCallVM*) G_callvm;
52 const char * sig = signature; 52 const char * sig = signature;
53 const char * rtype; 53 const char * rtype;
54 DCaggr * rtype_a = NULL; 54 DCaggr * rtype_a = NULL;
197 ++pos; 197 ++pos;
198 } 198 }
199 return 1; 199 return 1;
200 } 200 }
201 201
202 int run_test(int i) 202 static int run_test(int i)
203 { 203 {
204 char const * sig; 204 char const * sig;
205 void * target; 205 void * target;
206 int success; 206 int success;
207 sig = G_sigtab[i]; 207 sig = G_sigtab[i];
210 success = invoke(sig,target); 210 success = invoke(sig,target);
211 printf("%d\n",success); 211 printf("%d\n",success);
212 return success; 212 return success;
213 } 213 }
214 214
215 int run_all() 215 static int run_all()
216 { 216 {
217 int i; 217 int i;
218 int failure = 0; 218 int failure = 0;
219 for(i=0;i<G_ncases;++i) 219 for(i=0;i<G_ncases;++i)
220 failure |= !( run_test(i) ); 220 failure |= !( run_test(i) );