From fec408260ee02e246f0c4438bbd6b94cb9fdd055 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 4 May 2010 06:52:12 -0400
Subject: [PATCH] vm: tweak inline_gc() for PowerPC

---
 basis/cpu/x86/x86.factor | 2 +-
 vm/gc.cpp                | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/cpu/x86/x86.factor b/basis/cpu/x86/x86.factor
index d4a3be49b6..aa802c76fc 100644
--- a/basis/cpu/x86/x86.factor
+++ b/basis/cpu/x86/x86.factor
@@ -45,7 +45,7 @@ HOOK: extra-stack-space cpu ( stack-frame -- n )
 : param@ ( n -- op ) reserved-stack-space + stack@ ;
 
 : 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 -- )
     dup 0 = [ drop ] [ stack-reg swap SUB ] if ;
diff --git a/vm/gc.cpp b/vm/gc.cpp
index 257a2a556c..ed36aff563 100755
--- a/vm/gc.cpp
+++ b/vm/gc.cpp
@@ -217,7 +217,7 @@ void factor_vm::primitive_compact_gc()
 
 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_))
 	{