factor/vm/callstack.hpp

41 lines
1004 B
C++
Raw Normal View History

2009-05-04 02:46:13 -04:00
namespace factor
{
2009-05-04 05:50:24 -04:00
inline static cell callstack_size(cell size)
2009-05-02 05:04:19 -04:00
{
2009-05-04 05:50:24 -04:00
return sizeof(callstack) + size;
2009-05-02 05:04:19 -04:00
}
VM_ASM_API void save_callstack_bottom(stack_frame *callstack_bottom, factor_vm *vm);
2009-05-04 02:46:13 -04:00
2009-09-29 14:53:10 -04:00
/* 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)
2009-09-29 14:53:10 -04:00
{
gc_root<callstack> stack(stack_,this);
fixnum frame_offset = 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);
2009-09-29 14:53:10 -04:00
}
}
template<typename Iterator> void factor_vm::iterate_callstack(context *ctx, Iterator &iterator)
2009-09-29 14:53:10 -04:00
{
cell top = (cell)ctx->callstack_top;
cell bottom = (cell)ctx->callstack_bottom;
2009-09-29 14:53:10 -04:00
stack_frame *frame = (stack_frame *)bottom - 1;
while((cell)frame >= top)
{
iterator(frame);
2009-09-29 14:53:10 -04:00
frame = frame_successor(frame);
}
}
2009-05-04 02:46:13 -04:00
}