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 |