89 lines
2.4 KiB
C
89 lines
2.4 KiB
C
typedef struct _F_CONTEXT {
|
|
/* current datastack top pointer */
|
|
CELL data;
|
|
/* saved contents of ds register on entry to callback */
|
|
CELL data_save;
|
|
/* memory region holding current datastack */
|
|
F_SEGMENT *data_region;
|
|
|
|
/* current retain stack top pointer */
|
|
CELL retain;
|
|
/* saved contents of rs register on entry to callback */
|
|
CELL retain_save;
|
|
/* memory region holding current retain stack */
|
|
F_SEGMENT *retain_region;
|
|
|
|
/* current callstack top pointer */
|
|
F_INTERP_FRAME *call;
|
|
/* saved contents of cs register on entry to callback */
|
|
F_INTERP_FRAME *call_save;
|
|
/* memory region holding current callstack */
|
|
F_SEGMENT *call_region;
|
|
|
|
/* saved callframe on entry to callback */
|
|
F_INTERP_FRAME callframe;
|
|
|
|
/* saved userenv slots on entry to callback */
|
|
CELL catchstack_save;
|
|
CELL current_callback_save;
|
|
|
|
/* saved primitives register on entry to callback */
|
|
void **primitives;
|
|
|
|
/* saved extra_roots pointer on entry to callback */
|
|
CELL extra_roots;
|
|
|
|
/* C stack pointer on entry */
|
|
F_COMPILED_FRAME *native_stack_pointer;
|
|
|
|
/* error handler longjmp buffer */
|
|
JMP_BUF toplevel;
|
|
|
|
struct _F_CONTEXT *next;
|
|
} F_CONTEXT;
|
|
|
|
F_CONTEXT *stack_chain;
|
|
|
|
CELL ds_size, rs_size, cs_size;
|
|
|
|
#define ds_bot (stack_chain->data_region->start)
|
|
#define ds_top (stack_chain->data_region->end)
|
|
#define rs_bot (stack_chain->retain_region->start)
|
|
#define rs_top (stack_chain->retain_region->end)
|
|
#define cs_bot ((F_INTERP_FRAME *)(stack_chain->call_region->start))
|
|
#define cs_top ((F_INTERP_FRAME *)(stack_chain->call_region->end))
|
|
|
|
void reset_datastack(void);
|
|
void reset_retainstack(void);
|
|
void reset_callstack(void);
|
|
void fix_stacks(void);
|
|
DLLEXPORT void save_stacks(void);
|
|
DLLEXPORT void nest_stacks(void);
|
|
DLLEXPORT void unnest_stacks(void);
|
|
void init_stacks(CELL ds_size, CELL rs_size, CELL cs_size);
|
|
|
|
void primitive_drop(void);
|
|
void primitive_2drop(void);
|
|
void primitive_3drop(void);
|
|
void primitive_dup(void);
|
|
void primitive_2dup(void);
|
|
void primitive_3dup(void);
|
|
void primitive_rot(void);
|
|
void primitive__rot(void);
|
|
void primitive_dupd(void);
|
|
void primitive_swapd(void);
|
|
void primitive_nip(void);
|
|
void primitive_2nip(void);
|
|
void primitive_tuck(void);
|
|
void primitive_over(void);
|
|
void primitive_pick(void);
|
|
void primitive_swap(void);
|
|
void primitive_to_r(void);
|
|
void primitive_from_r(void);
|
|
void primitive_datastack(void);
|
|
void primitive_retainstack(void);
|
|
void primitive_callstack(void);
|
|
void primitive_set_datastack(void);
|
|
void primitive_set_retainstack(void);
|
|
void primitive_set_callstack(void);
|