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

Cleanups

db4
Slava Pestov 2009-05-04 05:07:14 -05:00
parent 8872c40b1e
commit abf7912ae7
3 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
vm/factor.cpp
View File

@ -125,10 +125,7 @@ VM_C_API void init_factor(vm_parameters *p)
load_image(p); load_image(p);
init_c_io(); init_c_io();
init_inline_caching(p->max_pic_size); init_inline_caching(p->max_pic_size);
#ifndef FACTOR_DEBUG
init_signals(); init_signals();
#endif
if(p->console) if(p->console)
open_console(); open_console();

9
vm/local_roots.hpp
View File

@ -20,7 +20,14 @@ struct gc_root : public tagged<T>
const gc_root<T>& operator=(const T *x) { tagged<T>::operator=(x); return *this; } const gc_root<T>& operator=(const T *x) { tagged<T>::operator=(x); return *this; }
const gc_root<T>& operator=(const cell &x) { tagged<T>::operator=(x); return *this; } const gc_root<T>& operator=(const cell &x) { tagged<T>::operator=(x); return *this; }
~gc_root() { cell old = gc_local_pop(); assert(old == (cell)this); } ~gc_root() {
#ifdef FACTOR_DEBUG
cell old = gc_local_pop();
assert(old == (cell)this);
#else
gc_local_pop();
#endif
}
}; };
/* A similar hack for the bignum implementation */ /* A similar hack for the bignum implementation */

8
vm/quotations.cpp
View File

@ -323,11 +323,11 @@ fixnum quot_code_offset_to_scan(cell quot_, cell offset)
gc_root<quotation> quot(quot_); gc_root<quotation> quot(quot_);
gc_root<array> array(quot->array); gc_root<array> array(quot->array);
quotation_jit jit(quot.value(),false,false); quotation_jit compiler(quot.value(),false,false);
jit.compute_position(offset); compiler.compute_position(offset);
jit.iterate_quotation(); compiler.iterate_quotation();
return jit.get_position(); return compiler.get_position();
} }
VM_ASM_API cell lazy_jit_compile_impl(cell quot_, stack_frame *stack) VM_ASM_API cell lazy_jit_compile_impl(cell quot_, stack_frame *stack)