53 lines
1.4 KiB
C
53 lines
1.4 KiB
C
typedef struct _STACKS {
|
|
CELL ds;
|
|
CELL ds_save;
|
|
BOUNDED_BLOCK *ds_region;
|
|
CELL cs;
|
|
CELL cs_save;
|
|
BOUNDED_BLOCK *cs_region;
|
|
struct _STACKS *next;
|
|
} STACKS;
|
|
|
|
STACKS *stack_chain;
|
|
|
|
CELL ds_size, cs_size;
|
|
|
|
#define ds_bot ((CELL)(stack_chain->ds_region->start))
|
|
#define cs_bot ((CELL)(stack_chain->cs_region->start))
|
|
|
|
#define STACK_UNDERFLOW(stack,region) ((stack) + CELLS < (region)->start)
|
|
#define STACK_OVERFLOW(stack,region) ((stack) + CELLS >= (region)->start + (region)->size)
|
|
|
|
void reset_datastack(void);
|
|
void reset_callstack(void);
|
|
void fix_stacks(void);
|
|
void save_stacks(void);
|
|
void nest_stacks(void);
|
|
void unnest_stacks(void);
|
|
void init_stacks(CELL ds_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);
|
|
F_VECTOR* stack_to_vector(CELL bottom, CELL top);
|
|
void primitive_datastack(void);
|
|
void primitive_callstack(void);
|
|
CELL vector_to_stack(F_VECTOR* vector, CELL bottom);
|
|
void primitive_set_datastack(void);
|
|
void primitive_set_callstack(void);
|