/[gcl]/gcl/o/nfunlink.c
ViewVC logotype

Diff of /gcl/o/nfunlink.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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;

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26