135 |
} |
} |
136 |
/* local entry for function WT-CLINK */ |
/* local entry for function WT-CLINK */ |
137 |
|
|
138 |
static object LI7(va_alist) |
static object LI7(object first,...) |
|
va_dcl |
|
139 |
{ |
{ |
140 |
va_list ap; |
va_list ap; |
141 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
142 |
{object V25; |
{object V25; |
143 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
144 |
va_start(ap); |
va_start(ap,first); |
145 |
narg = narg - 0; |
narg = narg - 0; |
146 |
if (narg <= 0) goto T48; |
if (narg <= 0) goto T48; |
147 |
else { |
else { |
148 |
V25= va_arg(ap,object);} |
V25= first;} |
149 |
--narg; goto T49; |
--narg; goto T49; |
150 |
goto T48; |
goto T48; |
151 |
T48:; |
T48:; |
221 |
goto T60;} |
goto T60;} |
222 |
return Cnil; |
return Cnil; |
223 |
} |
} |
224 |
static object LnkTLI12(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[12],(void **)&LnkLI12,1,ap);va_end(ap);return V1;} /* WT1 */ |
static object LnkTLI12(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[12],(void **)&LnkLI12,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
225 |
static object LnkTLI11(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[11],(void **)&LnkLI11,1,ap);va_end(ap);return V1;} /* WT-VS */ |
static object LnkTLI11(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[11],(void **)&LnkLI11,1,first,ap);va_end(ap);return V1;} /* WT-VS */ |
226 |
|
|
227 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
228 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |