AMD64 fix

slava 2006-08-10 04:58:01 +00:00
parent decfe5c53a
commit 9c3a3f9db5
1 changed files with 2 additions and 3 deletions

View File

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