Mercurial > pub > dyncall > dyncall

diff 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
line wrap: on
line diff
--- a/test/call_suite_aggrs/main.c	Sun Apr 10 16:18:28 2022 +0200
+++ b/test/call_suite_aggrs/main.c	Sun Apr 10 21:05:33 2022 +0200
@@ -86,6 +86,7 @@
 
   while ( (atype = *sig) != ')') {
     switch(atype) {
+      case 'B': dcArgBool    (p,K_B[pos]); break;
       case 'c': dcArgChar    (p,K_c[pos]); break;
       case 's': dcArgShort   (p,K_s[pos]); break;
       case 'i': dcArgInt     (p,K_i[pos]); break;
@@ -124,6 +125,7 @@
   switch(*rtype) 
   {
     case 'v':                          dcCallVoid(p,t); s=1;             break; /*TODO:check that no return-arg was touched.*/
+    case 'B': s = (                    dcCallBool    (p,t) == K_B[pos]); break;
     case 'c': s = (                    dcCallChar    (p,t) == K_c[pos]); break;
     case 's': s = (                    dcCallShort   (p,t) == K_s[pos]); break;
     case 'i': s = (                    dcCallInt     (p,t) == K_i[pos]); break;
@@ -163,6 +165,7 @@
   pos = 0;
   while ( (atype = *sig) != ')') {
     switch(atype) {
+      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;
       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;
       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;
       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;