/[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.6 by camm, Wed Jul 24 03:35:44 2002 UTC revision 1.7 by camm, Wed Jul 24 16:16:24 2002 UTC
# Line 673  call_proc(object sym, void **link, int a Line 673  call_proc(object sym, void **link, int a
673  object call_vproc(object sym, void *link, va_list ll)  object call_vproc(object sym, void *link, va_list ll)
674  {return call_proc(sym,link,VFUN_NARGS | VFUN_NARG_BIT,ll);}  {return call_proc(sym,link,VFUN_NARGS | VFUN_NARG_BIT,ll);}
675    
676    static object
677    mcall_proc0(sym,link,argd,va_alist)
678         object sym;
679         void *link;
680         int argd;
681         va_dcl
682    {
683      object res;
684      va_list ap;
685    
686      va_start(ap);
687      res=call_proc(sym,link,argd,ap);
688      va_end(ap);
689    
690      return res;
691    
692    }
693    
694  object  object
695  call_proc0(object sym, void *link)  call_proc0(object sym, void *link)
696  {return call_proc(sym,link,0,0);}  {return mcall_proc0(sym,link,0);}
697    
698  #if 0  #if 0
699  object  object

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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