register lispval fun
,args
;
register lispval reg
, temp
;
register struct argent
*lbot
, *np
;
return(vtemp
= Lfuncal());
register struct argent
*mynp
;
register struct argent
*lbot
;
register struct argent
*np
;
arglist
= alloca((nargs
+ 1) * sizeof(int));
for(index
= 1; index
<= nargs
; index
++) {
switch(TYPE(mynp
->val
)) {
*(int *) arglist
[index
] = mynp
->val
->i
;
*(double *) arglist
[index
] = mynp
->val
->r
;
arglist
[index
] = (int) mynp
->val
->data
;
switch(a
->discipline
->i
) {
ltemp
= inewint(callg(a
->entry
,arglist
));
ltemp
->r
= (* ((double (*)()) callg
))(a
->entry
,arglist
);
asm(" callg *8(ap),*4(ap)");