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

AMD64 fix

slava 2006-08-10 04:58:01 +00:00
parent decfe5c53a
commit 9c3a3f9db5
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
library/compiler/amd64/architecture.factor
View File

@ -45,9 +45,8 @@ M: float-regs fastcall-regs vregs ;
: prepare-division CQO ; inline : prepare-division CQO ; inline
: load-indirect ( vreg literal -- ) : load-indirect ( vreg literal -- )
#! We use RIP-relative addressing. The '3' is a hardcoded over 0 MOV add-literal rel-absolute-cell rel-literal
#! instruction length. dup [] MOV ;
swap add-literal from 3 - [] MOV ;
: stack-increment \ stack-reserve get 16 align 8 + ; : stack-increment \ stack-reserve get 16 align 8 + ;