From c3f9c0a9a3d9069294f15baed8df7242539f74ff Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Sat, 7 Jun 2014 17:00:52 +0200
Subject: [PATCH] compiler.cfg.intrinsics.simd: the ulonglong case is correct,
 it just shouldn't convert the value to a fixnum

---
 basis/compiler/cfg/intrinsics/simd/simd.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/basis/compiler/cfg/intrinsics/simd/simd.factor b/basis/compiler/cfg/intrinsics/simd/simd.factor
index 4a3d6b7672..06b8dfbfb9 100644
--- a/basis/compiler/cfg/intrinsics/simd/simd.factor
+++ b/basis/compiler/cfg/intrinsics/simd/simd.factor
@@ -35,6 +35,10 @@ IN: compiler.cfg.intrinsics.simd
             0x8000,0000 0x8000,0000
             0x8000,0000 0x8000,0000
         } underlying>> ] }
+        { longlong-2-rep [ ulonglong-array{
+            0x8000,0000,0000,0000
+            0x8000,0000,0000,0000
+        } underlying>> ] }
     } case ;
 
 : ^load-neg-zero-vector ( rep -- dst )