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);
init_c_io();
init_inline_caching(p->max_pic_size);
#ifndef FACTOR_DEBUG
init_signals();
#endif
if(p->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 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 */

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<array> array(quot->array);
quotation_jit jit(quot.value(),false,false);
jit.compute_position(offset);
jit.iterate_quotation();
quotation_jit compiler(quot.value(),false,false);
compiler.compute_position(offset);
compiler.iterate_quotation();
return jit.get_position();
return compiler.get_position();
}
VM_ASM_API cell lazy_jit_compile_impl(cell quot_, stack_frame *stack)