908 |
if (n >= 65) FEerror("Too plong vl",0); \ |
if (n >= 65) FEerror("Too plong vl",0); \ |
909 |
for (i=0 ; i < (n); i++) new[i]=va_arg(vl,object);} |
for (i=0 ; i < (n); i++) new[i]=va_arg(vl,object);} |
910 |
#endif |
#endif |
911 |
|
|
912 |
|
#ifdef DONT_COPY_VA_LIST |
913 |
|
#error Cannot set DONT_COPY_VA_LIST in ANSI C |
914 |
|
#else |
915 |
|
#define COERCE_VA_LIST_NEW(new,fst,vl,n) \ |
916 |
|
object Xxvl[65]; \ |
917 |
|
{int i; \ |
918 |
|
new=Xxvl; \ |
919 |
|
if (n >= 65) FEerror("va_list too long",0); \ |
920 |
|
for (i=0 ; i < (n); i++) new[i]=i ? va_arg(vl,object) : fst;} |
921 |
|
#endif |
922 |
|
|
923 |
|
|
924 |
|
|
925 |
#define make_si_vfun(s,f,min,max) \ |
#define make_si_vfun(s,f,min,max) \ |
926 |
make_si_vfun1(s,f,min | (max << 8)) |
make_si_vfun1(s,f,min | (max << 8)) |
927 |
|
|
964 |
#define SGC_TOUCH(x) |
#define SGC_TOUCH(x) |
965 |
#endif |
#endif |
966 |
|
|
967 |
object funcall_cfun(); |
object funcall_cfun(void(*)(),int,...); |
968 |
object clear_compiler_properties(); |
object clear_compiler_properties(); |
969 |
EXTER object sSlambda_block_expanded; |
EXTER object sSlambda_block_expanded; |
970 |
|
|