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

vm: tweak inline_gc() for PowerPC

db4
Slava Pestov 2010-05-04 06:52:12 -04:00
parent aaa4c70b01
commit fec408260e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/cpu/x86/x86.factor
View File

@ -45,7 +45,7 @@ HOOK: extra-stack-space cpu ( stack-frame -- n )
: param@ ( n -- op ) reserved-stack-space + stack@ ; : param@ ( n -- op ) reserved-stack-space + stack@ ;
: gc-root-offsets ( seq -- seq' ) : gc-root-offsets ( seq -- seq' )
[ n>> spill-offset special-offset ] map f like ; [ n>> spill-offset special-offset cell + ] map f like ;
: decr-stack-reg ( n -- ) : decr-stack-reg ( n -- )
dup 0 = [ drop ] [ stack-reg swap SUB ] if ; dup 0 = [ drop ] [ stack-reg swap SUB ] if ;

2
vm/gc.cpp
View File

@ -217,7 +217,7 @@ void factor_vm::primitive_compact_gc()
void factor_vm::inline_gc(cell gc_roots_) void factor_vm::inline_gc(cell gc_roots_)
{ {
cell stack_pointer = (cell)ctx->callstack_top + sizeof(cell); cell stack_pointer = (cell)ctx->callstack_top;
if(to_boolean(gc_roots_)) if(to_boolean(gc_roots_))
{ {