36 lines
861 B
C++
Executable File
36 lines
861 B
C++
Executable File
namespace factor
|
|
{
|
|
|
|
inline static cell callstack_object_size(cell size)
|
|
{
|
|
return sizeof(callstack) + size;
|
|
}
|
|
|
|
/* This is a little tricky. The iterator may allocate memory, so we
|
|
keep the callstack in a GC root and use relative offsets */
|
|
template<typename Iterator> void factor_vm::iterate_callstack_object(callstack *stack_, Iterator &iterator)
|
|
{
|
|
data_root<callstack> stack(stack_,this);
|
|
fixnum frame_offset = factor::untag_fixnum(stack->length) - sizeof(stack_frame);
|
|
|
|
while(frame_offset >= 0)
|
|
{
|
|
stack_frame *frame = stack->frame_at(frame_offset);
|
|
frame_offset -= frame->size;
|
|
iterator(frame);
|
|
}
|
|
}
|
|
|
|
template<typename Iterator> void factor_vm::iterate_callstack(context *ctx, Iterator &iterator)
|
|
{
|
|
stack_frame *frame = ctx->callstack_bottom - 1;
|
|
|
|
while(frame >= ctx->callstack_top)
|
|
{
|
|
iterator(frame);
|
|
frame = frame_successor(frame);
|
|
}
|
|
}
|
|
|
|
}
|