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

Diff of /gcl/o/funlink.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by camm, Wed Jul 31 03:13:52 2002 UTC revision 1.9 by camm, Wed Jul 31 22:48:44 2002 UTC
# Line 646  call_proc(object sym, void **link, int a Line 646  call_proc(object sym, void **link, int a
646  /*     if (type_of(fun)==t_vfun) argd=fcall.argd; */ /*remove this! */  /*     if (type_of(fun)==t_vfun) argd=fcall.argd; */ /*remove this! */
647       nargs=SFUN_NARGS(argd);       nargs=SFUN_NARGS(argd);
648       result_type=SFUN_RETURN_TYPE(argd);       result_type=SFUN_RETURN_TYPE(argd);
649       argd=SFUN_START_ARG_TYPES(argd);       SFUN_START_ARG_TYPES(argd);
650       {int i=0;       {int i=0;
651        if (argd==0)        if (argd==0)
652          {while(i < nargs)          {while(i < nargs)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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