From bc3f34cbd784e1ac769a33e1a8708131c2e325f1 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Mon, 19 Dec 2011 18:42:14 -0800
Subject: [PATCH] cpu.x86.32.bootstrap: update unwind-native-frames The
 arguments passed from C are in a different position now.

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

diff --git a/basis/cpu/x86/32/bootstrap.factor b/basis/cpu/x86/32/bootstrap.factor
index 2bb9eac877..55bed69cbe 100755
--- a/basis/cpu/x86/32/bootstrap.factor
+++ b/basis/cpu/x86/32/bootstrap.factor
@@ -102,6 +102,8 @@ IN: bootstrap.x86
 [ jit-jump-quot ]
 \ (call) define-combinator-primitive
 
+! unwind-native-frames is marked as "special" in vm/quotations.cpp
+! so it does not have a standard prolog
 [
     ! Load ds and rs registers
     jit-load-vm
@@ -115,8 +117,8 @@ IN: bootstrap.x86
     ctx-reg jit-update-seh
 
     ! Load arguments
-    EAX ESP stack-frame-size [+] MOV
-    EDX ESP stack-frame-size 4 + [+] MOV
+    EAX ESP cell [+] MOV
+    EDX ESP 2 cells [+] MOV
 
     ! Unwind stack frames
     ESP EDX MOV