From e92567537798735fda2fcf049ff2858a3dc4eef1 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 6 Oct 2007 18:54:46 -0400 Subject: [PATCH] x86 backend fixes --- core/cpu/x86/32/bootstrap.factor | 1 - core/cpu/x86/64/bootstrap.factor | 1 - core/cpu/x86/bootstrap.factor | 4 ++-- 3 files changed, 2 insertions(+), 4 deletions(-) diff --git a/core/cpu/x86/32/bootstrap.factor b/core/cpu/x86/32/bootstrap.factor index 289ae0c213..32d07797e7 100644 --- a/core/cpu/x86/32/bootstrap.factor +++ b/core/cpu/x86/32/bootstrap.factor @@ -13,6 +13,5 @@ IN: bootstrap.x86 : scan-reg EBX ; : xt-reg ECX ; : fixnum>slot@ arg0 1 SAR ; -: next-frame@ -44 ; "resource:core/cpu/x86/bootstrap.factor" run-file diff --git a/core/cpu/x86/64/bootstrap.factor b/core/cpu/x86/64/bootstrap.factor index 00db1ac119..9d3fa8849f 100644 --- a/core/cpu/x86/64/bootstrap.factor +++ b/core/cpu/x86/64/bootstrap.factor @@ -13,6 +13,5 @@ IN: bootstrap.x86 : scan-reg RBX ; : xt-reg RCX ; : fixnum>slot@ ; -: next-frame@ -88 ; "resource:core/cpu/x86/bootstrap.factor" run-file diff --git a/core/cpu/x86/bootstrap.factor b/core/cpu/x86/bootstrap.factor index a8c1b9a8f2..5976c86d58 100644 --- a/core/cpu/x86/bootstrap.factor +++ b/core/cpu/x86/bootstrap.factor @@ -8,10 +8,10 @@ big-endian off 1 jit-code-format set -: scan-save stack-reg 3 bootstrap-cells [+] ; - : stack-frame-size 8 bootstrap-cells ; +: scan-save stack-reg stack-frame-size 3 bootstrap-cells - [+] ; + [ arg0 arg0 quot-array@ [+] MOV ! load array scan-reg arg0 scan@ [+] LEA ! initialize scan pointer