Mercurial > pub > dyncall > dyncall

comparison test/call_suite_aggrs/main.c @ 515:c9c546f8598b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- added _Bool type to call_suite* tests
author Tassilo Philipp
date Sun, 10 Apr 2022 21:05:33 +0200
parents f0080b53635d
children 99819b874bac
comparison
equal deleted inserted replaced
514:01f928eb9584 515:c9c546f8598b
84 } 84 }
85 85
86 86
87 while ( (atype = *sig) != ')') { 87 while ( (atype = *sig) != ')') {
88 switch(atype) { 88 switch(atype) {
89 case 'B': dcArgBool (p,K_B[pos]); break;
89 case 'c': dcArgChar (p,K_c[pos]); break; 90 case 'c': dcArgChar (p,K_c[pos]); break;
90 case 's': dcArgShort (p,K_s[pos]); break; 91 case 's': dcArgShort (p,K_s[pos]); break;
91 case 'i': dcArgInt (p,K_i[pos]); break; 92 case 'i': dcArgInt (p,K_i[pos]); break;
92 case 'j': dcArgLong (p,K_j[pos]); break; 93 case 'j': dcArgLong (p,K_j[pos]); break;
93 case 'l': dcArgLongLong(p,K_l[pos]); break; 94 case 'l': dcArgLongLong(p,K_l[pos]); break;
122 } 123 }
123 124
124 switch(*rtype) 125 switch(*rtype)
125 { 126 {
126 case 'v': dcCallVoid(p,t); s=1; break; /*TODO:check that no return-arg was touched.*/ 127 case 'v': dcCallVoid(p,t); s=1; break; /*TODO:check that no return-arg was touched.*/
128 case 'B': s = ( dcCallBool (p,t) == K_B[pos]); break;
127 case 'c': s = ( dcCallChar (p,t) == K_c[pos]); break; 129 case 'c': s = ( dcCallChar (p,t) == K_c[pos]); break;
128 case 's': s = ( dcCallShort (p,t) == K_s[pos]); break; 130 case 's': s = ( dcCallShort (p,t) == K_s[pos]); break;
129 case 'i': s = ( dcCallInt (p,t) == K_i[pos]); break; 131 case 'i': s = ( dcCallInt (p,t) == K_i[pos]); break;
130 case 'j': s = ( dcCallLong (p,t) == K_j[pos]); break; 132 case 'j': s = ( dcCallLong (p,t) == K_j[pos]); break;
131 case 'l': s = ( dcCallLongLong(p,t) == K_l[pos]); break; 133 case 'l': s = ( dcCallLongLong(p,t) == K_l[pos]); break;
161 /* test V_* array against values passed to func: */ 163 /* test V_* array against values passed to func: */
162 sig = signature; 164 sig = signature;
163 pos = 0; 165 pos = 0;
164 while ( (atype = *sig) != ')') { 166 while ( (atype = *sig) != ')') {
165 switch(atype) { 167 switch(atype) {
168 case 'B': s = ( V_B[pos] == K_B[pos] ); if (!s) printf("'%c':%d: %d != %d ; ", atype, pos, V_B[pos], K_B[pos]); break;
166 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; 169 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;
167 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; 170 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;
168 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; 171 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;
169 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; 172 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;
170 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; 173 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;