From a2de9d9e54575e30df2c53930dd62d6dd2688b05 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 13 Sep 2009 23:12:47 -0500
Subject: [PATCH] compiler.cfg.builder: don't run certain tests if float
intrinsics are not available
---
.../compiler/cfg/builder/builder-tests.factor | 22 ++++++++++---------
1 file changed, 12 insertions(+), 10 deletions(-)
diff --git a/basis/compiler/cfg/builder/builder-tests.factor b/basis/compiler/cfg/builder/builder-tests.factor
index 8da73a1e0e..db0dd65a83 100644
--- a/basis/compiler/cfg/builder/builder-tests.factor
+++ b/basis/compiler/cfg/builder/builder-tests.factor
@@ -192,14 +192,16 @@ IN: compiler.cfg.builder.tests
[ [ ##unbox-alien? ] contains-insn? ] bi
] unit-test
-[ f t ] [
- [ { byte-array fixnum } declare alien-cell 4 alien-float ]
- [ [ ##box-alien? ] contains-insn? ]
- [ [ ##box-float? ] contains-insn? ] bi
-] unit-test
+\ alien-float "intrinsic" word-prop [
+ [ f t ] [
+ [ { byte-array fixnum } declare alien-cell 4 alien-float ]
+ [ [ ##box-alien? ] contains-insn? ]
+ [ [ ##box-float? ] contains-insn? ] bi
+ ] unit-test
-[ f t ] [
- [ { byte-array fixnum } declare alien-cell { simple-alien } declare 4 alien-float ]
- [ [ ##box-alien? ] contains-insn? ]
- [ [ ##box-float? ] contains-insn? ] bi
-] unit-test
\ No newline at end of file
+ [ f t ] [
+ [ { byte-array fixnum } declare alien-cell { simple-alien } declare 4 alien-float ]
+ [ [ ##box-alien? ] contains-insn? ]
+ [ [ ##box-float? ] contains-insn? ] bi
+ ] unit-test
+] when
\ No newline at end of file