Mercurial > pub > dyncall > dyncall

comparison test/suite_aggrs/main.c @ 456:20fa684221a1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- test/suite_aggrs fix: struct return values reused memory in use
author Tassilo Philipp
date Fri, 28 Jan 2022 10:26:07 +0100
parents 68d98455a8bd
children 1c18c2377c24
comparison
equal deleted inserted replaced
455:68733edd9bd1 456:20fa684221a1
119 case 'l': s = (dcCallLongLong(p,t) == K_l[pos]) ; break; 119 case 'l': s = (dcCallLongLong(p,t) == K_l[pos]) ; break;
120 case 'p': s = (dcCallPointer (p,t) == K_p[pos]) ; break; 120 case 'p': s = (dcCallPointer (p,t) == K_p[pos]) ; break;
121 case 'f': s = (dcCallFloat (p,t) == K_f[pos]) ; break; 121 case 'f': s = (dcCallFloat (p,t) == K_f[pos]) ; break;
122 case 'd': s = (dcCallDouble (p,t) == K_d[pos]) ; break; 122 case 'd': s = (dcCallDouble (p,t) == K_d[pos]) ; break;
123 case '{': { 123 case '{': {
124 s = ((int(*)(const void*,const void*))rtype_st_cmp)(dcCallStruct(p,t,rtype_st, V_a[pos]), K_a[pos]); 124 s = ((int(*)(const void*,const void*))rtype_st_cmp)(dcCallStruct(p,t,rtype_st, V_a[0]/*unused space for retval*/), K_a[pos]);
125 break; 125 break;
126 } 126 }
127 default: printf("unknown rtype '%c'", rtype); return 0; 127 default: printf("unknown rtype '%c'", rtype); return 0;
128 } 128 }
129 129