Mercurial > hg > CbC > old > device
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 */ |