comparison mc-parse.c @ 128:d497c39add36 args-works

arg.c works (?)
author kono
date Thu, 03 Apr 2003 03:04:16 +0900
parents eb4d8975926c
children 07eb1249f07a
comparison
equal deleted inserted replaced
127:eb4d8975926c 128:d497c39add36
1216 { 1216 {
1217 int type_save,mode_save,t,sz; 1217 int type_save,mode_save,t,sz;
1218 NMTBL *n; 1218 NMTBL *n;
1219 1219
1220 t = cadr(fntype); 1220 t = cadr(fntype);
1221 if (!scalar(t) && (car(t)==STRUCT||car(t)==UNION)) { 1221 if (t>0 && (car(t)==STRUCT||car(t)==UNION)) {
1222 mode_save = mode; 1222 mode_save = mode;
1223 mode=ADECL; 1223 mode=ADECL;
1224 type_save = type; 1224 type_save = type;
1225 /* extra argument for struct return */ 1225 /* extra argument for struct return */
1226 /* this extra dummy arguments are set at calling sequence */ 1226 /* this extra dummy arguments are set at calling sequence */