projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Skip the float.pure.lisp/RANGE-REDUCTION test outside x86.
[sbcl.git]
/
tests
/
bit-vector.impure-cload.lisp
diff --git
a/tests/bit-vector.impure-cload.lisp
b/tests/bit-vector.impure-cload.lisp
index
470bf57
..
3a92a34
100644
(file)
--- a/
tests/bit-vector.impure-cload.lisp
+++ b/
tests/bit-vector.impure-cload.lisp
@@
-69,18
+69,19
@@
(assert (= (aref a 0) 1))
(inform :aref-2)
(assert (= (aref a (- array-dimension-limit 2)) 1))
(assert (= (aref a 0) 1))
(inform :aref-2)
(assert (= (aref a (- array-dimension-limit 2)) 1))
- #-darwin
- (progn
- (inform :bit-and)
- (bit-and a b a)
- (inform :aref-3)
- (assert (= (aref a 0) 0))
- (inform :aref-4)
- (assert (= (aref a (- array-dimension-limit 2)) 0)))))
+ (inform :bit-and)
+ (bit-and a b a)
+ (inform :aref-3)
+ (assert (= (aref a 0) 0))
+ (inform :aref-4)
+ (assert (= (aref a (- array-dimension-limit 2)) 0))))
(test-small-bit-vectors)
(test-small-bit-vectors)
-#-x86-64
-;; except on machines where addressable space is likely to be
-;; much bigger than physical memory
+;; except on machines where the arrays won't fit into the dynamic space.
+#+#.(cl:if (cl:> (sb-ext:dynamic-space-size)
+ (cl:truncate (cl:1- cl:array-dimension-limit)
+ sb-vm:n-word-bits))
+ '(and)
+ '(or))
(test-big-bit-vectors)
(test-big-bit-vectors)