From 86c16eeb6ac896396905977d463aa39356b1aeb7 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sat, 17 Oct 2009 21:20:08 -0500
Subject: [PATCH] cpu.x86.32: fix callbacks on platforms where stack is not
 aligned

---
 basis/cpu/x86/32/32.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/cpu/x86/32/32.factor b/basis/cpu/x86/32/32.factor
index d016712149..3ce1374491 100755
--- a/basis/cpu/x86/32/32.factor
+++ b/basis/cpu/x86/32/32.factor
@@ -250,10 +250,10 @@ M:: x86.32 %unbox-large-struct ( n c-type -- )
     ] with-aligned-stack ;
 
 M: x86.32 %nest-stacks ( -- )
+    ! Save current frame. See comment in vm/contexts.hpp
+    EAX stack-reg stack-frame get total-size>> 3 cells - [+] LEA
     8 [
         push-vm-ptr
-        ! Save current frame. See comment in vm/contexts.hpp
-        EAX stack-reg stack-frame get total-size>> [+] LEA
         EAX PUSH
         "nest_stacks" f %alien-invoke
     ] with-aligned-stack ;