7 |
MakeAfun(addr,F_ARGD(2,3,NONE,ARGTYPES(OO,OO,OO,OO)),0); |
MakeAfun(addr,F_ARGD(2,3,NONE,ARGTYPES(OO,OO,OO,OO)),0); |
8 |
*/ |
*/ |
9 |
object MakeAfun(addr,argd,data) |
object MakeAfun(addr,argd,data) |
10 |
object data, (*addr) (); |
object data; |
11 |
|
int (*addr) (); |
12 |
unsigned int argd; |
unsigned int argd; |
13 |
{int type = (F_ARG_FLAGS_P(argd,F_requires_fun_passed) ? t_closure : t_afun); |
{int type = (F_ARG_FLAGS_P(argd,F_requires_fun_passed) ? t_closure : t_afun); |
14 |
object x = alloc_object(type); |
object x = alloc_object(type); |
139 |
object |
object |
140 |
MakeClosure(n,argd,data,fn,va_alist) |
MakeClosure(n,argd,data,fn,va_alist) |
141 |
int n; |
int n; |
142 |
object (*fn)(); |
int (*fn)(); |
143 |
object data; |
object data; |
144 |
va_dcl |
va_dcl |
145 |
{ object x; |
{ object x; |