Parent Directory | Revision Log | Patch
revision 1.3 by camm, Sat Jul 20 07:10:55 2002 UTC | revision 1.4 by camm, Mon Jan 13 00:50:19 2003 UTC | |
---|---|---|
# | Line 201 IapplyVector(object fun, int nargs, obje | Line 201 IapplyVector(object fun, int nargs, obje |
201 | ihs_check; | ihs_check; |
202 | VFUN_NARGS=nargs; | VFUN_NARGS=nargs; |
203 | fcall.fun = fun; | fcall.fun = fun; |
204 | if (nargs < F_MIN_ARGS(fun->sfn.sfn_argd)) | |
205 | FEtoo_few_arguments(base,vs_top); | |
206 | if (nargs > F_MAX_ARGS(fun->sfn.sfn_argd)) | |
207 | FEtoo_many_arguments(base,vs_top); | |
208 | atypes = F_TYPES(fun->sfn.sfn_argd) >> F_TYPE_WIDTH; | atypes = F_TYPES(fun->sfn.sfn_argd) >> F_TYPE_WIDTH; |
209 | if (atypes==0) {abase = base;} | if (atypes==0) {abase = base;} |
210 | else { abase = vs_top; | else { abase = vs_top; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |