fix sse register issue

diff --git a/library/compiler/amd64/architecture.factor b/library/compiler/amd64/architecture.factor
index a372801cc3defb7d39f879af1cd66e00285cbbf2..7c712cdeab3f85e1c1d48d4c88a45c517c4f9318 100644 (file)
--- a/library/compiler/amd64/architecture.factor
+++ b/library/compiler/amd64/architecture.factor
@@ -23,9 +23,12 @@ M: int-regs return-reg drop RAX ;
 
 M: int-regs fastcall-regs drop { RDI RSI RDX RCX R8 R9 } ;
 
+: reset-sse RAX RAX XOR ;
+
 : compile-c-call ( symbol dll -- )
-    2dup dlsym 0 scratch swap MOV
-    rel-absolute-cell rel-dlsym 0 scratch CALL ;
+    reset-sse
+    2dup dlsym 1 scratch swap MOV
+    rel-absolute-cell rel-dlsym 1 scratch CALL ;
 
 : compile-c-call* ( symbol dll args -- )
     T{ int-regs } fastcall-regs