From 0ff80a063db6bb13cf903f465acb6d9041c00d89 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 26 Aug 2009 06:58:47 -0500
Subject: [PATCH] compiler: only run float test in low-level-ir if float
 intrinsics enabled; fixes SIGILL on non-sse2 x86 machines

---
 basis/compiler/tests/low-level-ir.factor | 25 +++++++++++++-----------
 1 file changed, 14 insertions(+), 11 deletions(-)

diff --git a/basis/compiler/tests/low-level-ir.factor b/basis/compiler/tests/low-level-ir.factor
index e3e2c3344e..d67aaef43b 100644
--- a/basis/compiler/tests/low-level-ir.factor
+++ b/basis/compiler/tests/low-level-ir.factor
@@ -3,7 +3,7 @@ compiler.cfg.debugger compiler.cfg.instructions compiler.cfg.mr
 compiler.cfg.registers compiler.codegen compiler.units
 cpu.architecture hashtables kernel namespaces sequences
 tools.test vectors words layouts literals math arrays
-alien.syntax ;
+alien.syntax math.private ;
 IN: compiler.tests.low-level-ir
 
 : compile-cfg ( cfg -- word )
@@ -46,16 +46,19 @@ IN: compiler.tests.low-level-ir
     } compile-test-bb
 ] unit-test
 
-! ##copy on floats
-[ 1.5 ] [
-    V{
-        T{ ##load-reference f 4 1.5 }
-        T{ ##unbox-float f 1 4 }
-        T{ ##copy f 2 1 double-float-rep }
-        T{ ##box-float f 3 2 }
-        T{ ##copy f 0 3 int-rep }
-    } compile-test-bb
-] unit-test
+! ##copy on floats. We can only run this test if float intrinsics
+! are enabled.
+\ float+ "intrinsic" word-prop [
+    [ 1.5 ] [
+        V{
+            T{ ##load-reference f 4 1.5 }
+            T{ ##unbox-float f 1 4 }
+            T{ ##copy f 2 1 double-float-rep }
+            T{ ##box-float f 3 2 }
+            T{ ##copy f 0 3 int-rep }
+        } compile-test-bb
+    ] unit-test
+] when
 
 ! make sure slot access works when the destination is
 ! one of the sources