612 |
struct closure { |
struct closure { |
613 |
FIRSTWORD; |
FIRSTWORD; |
614 |
object cl_name; /* name */ |
object cl_name; /* name */ |
615 |
object (*cl_self)(); /* C start address of code */ |
int (*cl_self)(); /* C start address of code */ |
616 |
object cl_data; /* To object holding VV vector */ |
object cl_data; /* To object holding VV vector */ |
617 |
int cl_argd; /* description of args + number */ |
int cl_argd; /* description of args + number */ |
618 |
int cl_envdim; /* length of the environment vector */ |
int cl_envdim; /* length of the environment vector */ |
622 |
struct sfun { |
struct sfun { |
623 |
FIRSTWORD; |
FIRSTWORD; |
624 |
object sfn_name; /* name */ |
object sfn_name; /* name */ |
625 |
object (*sfn_self)(); /* C start address of code */ |
int (*sfn_self)(); /* C start address of code */ |
626 |
object sfn_data; /* To object holding VV vector */ |
object sfn_data; /* To object holding VV vector */ |
627 |
int sfn_argd; /* description of args + number */ |
int sfn_argd; /* description of args + number */ |
628 |
|
|