2013-05-11 21:53:18 -04:00
|
|
|
namespace factor {
|
2009-05-04 02:46:13 -04:00
|
|
|
|
2011-11-02 15:54:31 -04:00
|
|
|
// Context object count and identifiers must be kept in sync with:
|
|
|
|
// core/kernel/kernel.factor
|
|
|
|
|
2010-03-18 05:06:00 -04:00
|
|
|
static const cell context_object_count = 10;
|
|
|
|
|
|
|
|
enum context_object {
|
2013-05-11 21:53:18 -04:00
|
|
|
OBJ_NAMESTACK,
|
|
|
|
OBJ_CATCHSTACK,
|
|
|
|
OBJ_CONTEXT,
|
|
|
|
OBJ_IN_CALLBACK_P,
|
2010-03-18 05:06:00 -04:00
|
|
|
};
|
|
|
|
|
2010-03-27 07:33:28 -04:00
|
|
|
static const cell stack_reserved = 1024;
|
|
|
|
|
2009-05-04 05:50:24 -04:00
|
|
|
struct context {
|
2010-03-26 22:44:43 -04:00
|
|
|
|
2013-05-11 21:53:18 -04:00
|
|
|
// First 4 fields accessed directly by compiler. See basis/vm/vm.factor
|
|
|
|
|
|
|
|
/* Factor callstack pointers */
|
|
|
|
void* callstack_top;
|
|
|
|
void* callstack_bottom;
|
|
|
|
|
|
|
|
/* current datastack top pointer */
|
|
|
|
cell datastack;
|
|
|
|
|
|
|
|
/* current retain stack top pointer */
|
|
|
|
cell retainstack;
|
|
|
|
|
|
|
|
/* C callstack pointer */
|
|
|
|
cell callstack_save;
|
|
|
|
|
|
|
|
segment* datastack_seg;
|
|
|
|
segment* retainstack_seg;
|
|
|
|
segment* callstack_seg;
|
|
|
|
|
|
|
|
/* context-specific special objects, accessed by context-object and
|
|
|
|
set-context-object primitives */
|
|
|
|
cell context_objects[context_object_count];
|
|
|
|
|
|
|
|
context(cell datastack_size, cell retainstack_size, cell callstack_size);
|
|
|
|
~context();
|
|
|
|
|
|
|
|
void reset_datastack();
|
|
|
|
void reset_retainstack();
|
|
|
|
void reset_callstack();
|
|
|
|
void reset_context_objects();
|
|
|
|
void reset();
|
|
|
|
void fix_stacks();
|
|
|
|
void scrub_stacks(gc_info* info, cell index);
|
|
|
|
|
|
|
|
cell peek() { return *(cell*)datastack; }
|
|
|
|
|
|
|
|
void replace(cell tagged) { *(cell*)datastack = tagged; }
|
|
|
|
|
|
|
|
cell pop() {
|
|
|
|
cell value = peek();
|
|
|
|
datastack -= sizeof(cell);
|
|
|
|
return value;
|
|
|
|
}
|
|
|
|
|
|
|
|
void push(cell tagged) {
|
|
|
|
datastack += sizeof(cell);
|
|
|
|
replace(tagged);
|
|
|
|
}
|
2009-12-18 16:59:56 -05:00
|
|
|
};
|
2009-05-04 02:00:30 -04:00
|
|
|
|
2013-05-11 21:53:18 -04:00
|
|
|
VM_C_API context* new_context(factor_vm* parent);
|
|
|
|
VM_C_API void delete_context(factor_vm* parent, context* old_context);
|
|
|
|
VM_C_API void reset_context(factor_vm* parent, context* ctx);
|
|
|
|
VM_C_API cell begin_callback(factor_vm* parent, cell quot);
|
|
|
|
VM_C_API void end_callback(factor_vm* parent);
|
2009-05-04 02:46:13 -04:00
|
|
|
|
|
|
|
}
|