From a842703e2f8a31cabdada963c7ce145e9dd72a0f Mon Sep 17 00:00:00 2001 From: slava Date: Wed, 10 May 2006 02:22:21 +0000 Subject: [PATCH] Fix typos --- library/compiler/x86/intrinsics-sse2.factor | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/library/compiler/x86/intrinsics-sse2.factor b/library/compiler/x86/intrinsics-sse2.factor index 57825790a6..2ad0b19643 100644 --- 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 ;