Mercurial > pub > dyncall > dyncall

comparison test/suite_aggrs/main.c @ 454:68d98455a8bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
suite_aggrs: var scope change for older compilers; excluding msvc from tests with empty structs
author Tassilo Philipp
date Thu, 27 Jan 2022 14:48:51 +0100
parents b15b979d9d2b
children 20fa684221a1
comparison
equal deleted inserted replaced
453:c497b87552f6 454:68d98455a8bd
91 case 'f': dcArgFloat (p,K_f[pos]); break; 91 case 'f': dcArgFloat (p,K_f[pos]); break;
92 case 'd': dcArgDouble (p,K_d[pos]); break; 92 case 'd': dcArgDouble (p,K_d[pos]); break;
93 case '{': { 93 case '{': {
94 /* find struct sig */ 94 /* find struct sig */
95 int len; 95 int len;
96 DCstruct *st;
96 int i = find_agg_idx(&len, sig); 97 int i = find_agg_idx(&len, sig);
97 if(i == -1) { 98 if(i == -1) {
98 printf("unknown sig at '%s' ;", sig); 99 printf("unknown sig at '%s' ;", sig);
99 return 0; 100 return 0;
100 } 101 }
101 DCstruct *st = ((DCstruct*(*)())G_agg_touchdcstfuncs[i])(); 102 st = ((DCstruct*(*)())G_agg_touchdcstfuncs[i])();
102 dcArgStruct(p, st, K_a[pos]); 103 dcArgStruct(p, st, K_a[pos]);
103 sig += len-1; /* advance to next arg char */ 104 sig += len-1; /* advance to next arg char */
104 break; 105 break;
105 } 106 }
106 default: printf("unknown atype '%c' (1) ;", atype); return 0; 107 default: printf("unknown atype '%c' (1) ;", atype); return 0;