Fix typos

diff --git a/library/compiler/x86/intrinsics-sse2.factor b/library/compiler/x86/intrinsics-sse2.factor
index 57825790a65398e14243e38a00a5a730b9e59717..2ad0b19643454635f29b23f17a574a9b14d78cb7 100644 (file)
--- a/library/compiler/x86/intrinsics-sse2.factor
+++ b/library/compiler/x86/intrinsics-sse2.factor
@@ -11,7 +11,8 @@ M: float-regs (%peek) ( vreg loc reg-class -- )
 
 : load-zone-ptr ( vreg -- )
     #! 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 -- )
     dup load-zone-ptr dup cell [+] MOV ;
@@ -55,7 +56,7 @@ M: float-regs (%replace) ( vreg loc reg-class -- )
 
 : define-float-jump ( word op -- )
     [
-        [ end-basic-block "x" operand "y" operand COMISD ] % ,
+        [ end-basic-block "x" operand "y" operand UCOMISD ] % ,
     ] [ ] make H{
         { +input { { float "x" } { float "y" } } }
     } define-if-intrinsic ;