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

fix reversed logic in x86 %jump-f and %jump-t

cvs
Slava Pestov 2005-05-08 04:40:47 +00:00
parent 0abaf247de
commit e49b41f3b9
2 changed files with 2 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
library/compiler/x86/fixnum.factor
View File

@ -130,21 +130,3 @@ M: %fixnum>= generate-node ( vop -- )
M: %eq? generate-node ( vop -- )
fixnum-compare \ JE conditional ;
!
! \ arithmetic-type [
! drop
! EAX [ ESI -4 ] MOV
! EAX BIN: 111 AND
! EDX [ ESI ] MOV
! EDX BIN: 111 AND
! EAX EDX CMP
! 0 JE just-compiled >r
! \ arithmetic-type compile-call
! 0 JMP just-compiled
! compiled-offset r> patch
! EAX 3 SHL
! PUSH-DS
! compiled-offset swap patch
! ] "generator" set-word-prop
!
! \ arithmetic-type [ \ arithmetic-type self ] "infer" set-word-prop

4
library/compiler/x86/generator.factor
View File

@ -30,10 +30,10 @@ M: %jump generate-node ( vop -- )
vop-label dup postpone-word JMP ;
M: %jump-f generate-node ( vop -- )
dup vop-source v>operand f address CMP vop-label JNE ;
dup vop-source v>operand f address CMP vop-label JE ;
M: %jump-t generate-node ( vop -- )
dup vop-source v>operand f address CMP vop-label JE ;
dup vop-source v>operand f address CMP vop-label JNE ;
M: %return-to generate-node ( vop -- )
0 PUSH vop-label absolute ;