Mercurial > pub > dyncall > dyncall

comparison test/suite_aggrs/cases.c @ 433:45662241d9cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
suite_aggrs now handling struct by value return types, also still missing: nesting, unions, arrays note: this doesn't compile against this same checked in revision of dyncall, but only my working copy; a future checkin will catch up
author Tassilo Philipp
date Sat, 22 Jan 2022 16:07:57 +0100
parents 167faab0c0be
children e4ae6753a276
comparison
equal deleted inserted replaced
432:167faab0c0be 433:45662241d9cd
23 */ 23 */
24 24
25 #include "globals.h" 25 #include "globals.h"
26 26
27 #define ret_v(X) 27 #define ret_v(X)
28 #define ret_c(X) return(K_c[X]); 28 #define ret_c(X) return(K_c[X]);
29 #define ret_s(X) return(K_s[X]); 29 #define ret_s(X) return(K_s[X]);
30 #define ret_i(X) return(K_i[X]); 30 #define ret_i(X) return(K_i[X]);
31 #define ret_j(X) return(K_j[X]); 31 #define ret_j(X) return(K_j[X]);
32 #define ret_l(X) return(K_l[X]); 32 #define ret_l(X) return(K_l[X]);
33 #define ret_p(X) return(K_p[X]); 33 #define ret_p(X) return(K_p[X]);
34 #define ret_f(X) return(K_f[X]); 34 #define ret_f(X) return(K_f[X]);
35 #define ret_d(X) return(K_d[X]); 35 #define ret_d(X) return(K_d[X]);
36 #define ret_a(X) return(K_a[X]); 36 #define ret_a(X,t) return(*(t*)K_a[X]);
37 37
38 #define v void 38 #define v void
39 #define c char 39 #define c char
40 #define s short 40 #define s short
41 #define i int 41 #define i int