From 0cfc5d4159b830cf8a01c4bb8aa63f74354dfebc Mon Sep 17 00:00:00 2001 From: slava Date: Mon, 3 Jul 2006 07:30:11 +0000 Subject: [PATCH] Fix bootstrap failure on x86 --- library/compiler/x86/alien.factor | 2 -- library/compiler/x86/architecture.factor | 2 ++ 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/library/compiler/x86/alien.factor b/library/compiler/x86/alien.factor index 324f97ac33..b6b3462fdb 100644 --- a/library/compiler/x86/alien.factor +++ b/library/compiler/x86/alien.factor @@ -4,8 +4,6 @@ IN: compiler USING: alien arrays assembler inference kernel kernel-internals math memory namespaces words ; -: drop-return-reg ESP swap reg-size ADD ; - : %unbox ( n reg-class func -- ) f %alien-invoke push-return-reg drop ; diff --git a/library/compiler/x86/architecture.factor b/library/compiler/x86/architecture.factor index c06d732be7..32a248055b 100644 --- a/library/compiler/x86/architecture.factor +++ b/library/compiler/x86/architecture.factor @@ -60,6 +60,8 @@ M: float-regs push-return-reg : FLD 4 = [ FLDS ] [ FLDL ] if ; +: drop-return-reg stack-reg swap reg-size ADD ; + M: float-regs pop-return-reg stack-reg [] over reg-size FLD drop-return-reg ;