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

VM: word_stack_frame_p() is not used and find_all_quotations() is 

trivial so those methods can be removed
db4
Björn Lindqvist 2015-07-31 20:31:47 +02:00
parent 49a406d880
commit f5f8ce1501
3 changed files with 3 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
vm/quotations.cpp
View File

@ -43,7 +43,7 @@ void quotation_jit::init_quotation(cell quot) {
bool quotation_jit::primitive_call_p(cell i, cell length) { bool quotation_jit::primitive_call_p(cell i, cell length) {
return (i + 2) <= length && array_nth(elements.untagged(), i + 1) == return (i + 2) <= length && array_nth(elements.untagged(), i + 1) ==
parent->special_objects[JIT_PRIMITIVE_WORD]; parent->special_objects[JIT_PRIMITIVE_WORD];
} }
bool quotation_jit::fast_if_p(cell i, cell length) { bool quotation_jit::fast_if_p(cell i, cell length) {
@ -94,12 +94,6 @@ bool quotation_jit::special_subprimitive_p(cell obj) {
obj == parent->special_objects[UNWIND_NATIVE_FRAMES_WORD]; obj == parent->special_objects[UNWIND_NATIVE_FRAMES_WORD];
} }
bool quotation_jit::word_stack_frame_p(cell obj) {
return (to_boolean(untag<word>(obj)->subprimitive) &&
!special_subprimitive_p(obj)) ||
obj == parent->special_objects[JIT_PRIMITIVE_WORD];
}
bool quotation_jit::word_safepoint_p(cell obj) { bool quotation_jit::word_safepoint_p(cell obj) {
return !special_subprimitive_p(obj); return !special_subprimitive_p(obj);
} }
@ -400,12 +394,10 @@ void factor_vm::primitive_quotation_compiled_p() {
ctx->push(tag_boolean(quotation_compiled_p(quot))); ctx->push(tag_boolean(quotation_compiled_p(quot)));
} }
/* Allocates memory */
cell factor_vm::find_all_quotations() { return instances(QUOTATION_TYPE); }
/* Allocates memory */ /* Allocates memory */
void factor_vm::initialize_all_quotations() { void factor_vm::initialize_all_quotations() {
data_root<array> quotations(find_all_quotations(), this); cell all_quots = instances(QUOTATION_TYPE);
data_root<array> quotations(all_quots, this);
cell length = array_capacity(quotations.untagged()); cell length = array_capacity(quotations.untagged());
for (cell i = 0; i < length; i++) { for (cell i = 0; i < length; i++) {

1
vm/quotations.hpp
View File

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

1
vm/vm.hpp
View File

@ -665,7 +665,6 @@ struct factor_vm {
cell lazy_jit_compile(cell quot); cell lazy_jit_compile(cell quot);
bool quotation_compiled_p(quotation* quot); bool quotation_compiled_p(quotation* quot);
void primitive_quotation_compiled_p(); void primitive_quotation_compiled_p();
cell find_all_quotations();
void initialize_all_quotations(); void initialize_all_quotations();
// dispatch // dispatch