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

fix bug in x86 backend

cvs
Slava Pestov 2005-09-23 22:59:52 +00:00
parent 976cb891df
commit ebf9a3fe7f
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
library/compiler/x86/stack.factor
View File

@ -4,18 +4,18 @@ IN: compiler-backend
USING: alien assembler compiler inference kernel lists math USING: alien assembler compiler inference kernel lists math
memory sequences words ; memory sequences words ;
: reg-stack ( reg n -- op ) cell * neg 2list ; : reg-stack ( n reg -- op ) swap cell * neg 2list ;
GENERIC: loc>operand GENERIC: loc>operand
M: ds-loc loc>operand ds-loc-n ESI swap reg-stack ; M: ds-loc loc>operand ds-loc-n ESI reg-stack ;
M: cs-loc loc>operand cs-loc-n EBX swap reg-stack ; M: cs-loc loc>operand cs-loc-n EBX reg-stack ;
M: %peek generate-node ( vop -- ) M: %peek generate-node ( vop -- )
dup 0 vop-out v>operand swap 0 vop-in loc>operand swap MOV ; dup 0 vop-out v>operand swap 0 vop-in loc>operand MOV ;
M: %replace generate-node ( vop -- ) M: %replace generate-node ( vop -- )
dup 0 vop-in v>operand swap 0 vop-out loc>operand swap MOV ; dup 0 vop-out loc>operand swap 0 vop-in v>operand MOV ;
: (%inc) swap 0 vop-in cell * dup 0 > [ ADD ] [ neg SUB ] ifte ; : (%inc) swap 0 vop-in cell * dup 0 > [ ADD ] [ neg SUB ] ifte ;