steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vm: factor out word_stack_frame_size

db4
Joe Groff 2011-12-13 17:04:35 -08:00
parent a1ee881435
commit 7844c66d6e
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
vm/quotations.cpp
View File

@ -309,6 +309,14 @@ void quotation_jit::iterate_quotation()
}
}
cell quotation_jit::word_stack_frame_size(cell obj)
{
if (special_subprimitive_p(obj))
return SIGNAL_HANDLER_STACK_FRAME_SIZE;
else
return JIT_FRAME_SIZE;
}
/* Allocates memory */
code_block *factor_vm::jit_compile_quot(cell owner_, cell quot_, bool relocating)
{
@ -319,9 +327,7 @@ code_block *factor_vm::jit_compile_quot(cell owner_, cell quot_, bool relocating
compiler.init_quotation(quot.value());
compiler.iterate_quotation();
cell frame_size = compiler.special_subprimitive_p(owner_)
? SIGNAL_HANDLER_STACK_FRAME_SIZE
: JIT_FRAME_SIZE;
cell frame_size = compiler.word_stack_frame_size(owner_);
code_block *compiled = compiler.to_code_block(frame_size);

1
vm/quotations.hpp
View File

@ -26,6 +26,7 @@ struct quotation_jit : public jit {
bool declare_p(cell i, cell length);
bool special_subprimitive_p(cell obj);
bool word_stack_frame_p(cell obj);
cell word_stack_frame_size(cell obj);
bool word_safepoint_p(cell obj);
bool stack_frame_p();
bool safepoint_p();