From 95b908479ed61a3a406bd590a503bc481ad908d0 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Fri, 27 Jan 2006 05:58:25 +0000
Subject: [PATCH] fix sse register issue

---
 library/compiler/amd64/architecture.factor | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/library/compiler/amd64/architecture.factor b/library/compiler/amd64/architecture.factor
index a372801cc3..7c712cdeab 100644
--- 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