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

Fix typos

release
slava 2006-05-10 02:22:21 +00:00
parent bfc0a0e67a
commit a842703e2f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
library/compiler/x86/intrinsics-sse2.factor
View File

@ -11,7 +11,8 @@ M: float-regs (%peek) ( vreg loc reg-class -- )
: load-zone-ptr ( vreg -- ) : load-zone-ptr ( vreg -- )
#! Load pointer to start of zone array #! Load pointer to start of zone array
"generations" f 2dup dlsym [] MOV rel-dlsym ; "generations" f [ dlsym [] MOV ] 2keep
rel-absolute rel-dlsym ;
: load-allot-ptr ( vreg -- ) : load-allot-ptr ( vreg -- )
dup load-zone-ptr dup cell [+] MOV ; dup load-zone-ptr dup cell [+] MOV ;
@ -55,7 +56,7 @@ M: float-regs (%replace) ( vreg loc reg-class -- )
: define-float-jump ( word op -- ) : define-float-jump ( word op -- )
[ [
[ end-basic-block "x" operand "y" operand COMISD ] % , [ end-basic-block "x" operand "y" operand UCOMISD ] % ,
] [ ] make H{ ] [ ] make H{
{ +input { { float "x" } { float "y" } } } { +input { { float "x" } { float "y" } } }
} define-if-intrinsic ; } define-if-intrinsic ;