Mercurial > pub > dyncall > dyncall

diff test/call_suite/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 a0c51f34023a
children ed8835abe05f
line wrap: on
line diff
--- a/test/call_suite/main.c	Sun Apr 10 16:18:28 2022 +0200
+++ b/test/call_suite/main.c	Sun Apr 10 21:05:33 2022 +0200
@@ -58,6 +58,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;
@@ -79,6 +80,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;
@@ -102,6 +104,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;