steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix bootstrap failure on x86

slava 2006-07-03 07:30:11 +00:00
parent fc16aefc7d
commit 0cfc5d4159
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/compiler/x86/alien.factor
View File

@ -4,8 +4,6 @@ IN: compiler
USING: alien arrays assembler inference kernel USING: alien arrays assembler inference kernel
kernel-internals math memory namespaces words ; kernel-internals math memory namespaces words ;
: drop-return-reg ESP swap reg-size ADD ;
: %unbox ( n reg-class func -- ) : %unbox ( n reg-class func -- )
f %alien-invoke push-return-reg drop ; f %alien-invoke push-return-reg drop ;

2
library/compiler/x86/architecture.factor
View File

@ -60,6 +60,8 @@ M: float-regs push-return-reg
: FLD 4 = [ FLDS ] [ FLDL ] if ; : FLD 4 = [ FLDS ] [ FLDL ] if ;
: drop-return-reg stack-reg swap reg-size ADD ;
M: float-regs pop-return-reg M: float-regs pop-return-reg
stack-reg [] over reg-size FLD drop-return-reg ; stack-reg [] over reg-size FLD drop-return-reg ;