diff --git a/basis/math/vectors/simd/simd.factor b/basis/math/vectors/simd/simd.factor index e7d4f0e94b..230f43029a 100644 --- a/basis/math/vectors/simd/simd.factor +++ b/basis/math/vectors/simd/simd.factor @@ -20,8 +20,9 @@ ERROR: bad-base-type type ; PRIVATE> : define-simd-vocab ( type -- vocab ) + parse-base-type [ simd-vocab ] keep '[ - _ parse-base-type + _ [ define-simd-128 ] [ define-simd-256 ] bi ] generate-vocab ; diff --git a/basis/sequences/complex/complex-tests.factor b/basis/sequences/complex/complex-tests.factor index 04a80c6bee..0cb0b41a78 100644 --- a/basis/sequences/complex/complex-tests.factor +++ b/basis/sequences/complex/complex-tests.factor @@ -1,6 +1,7 @@ USING: specialized-arrays sequences.complex kernel sequences tools.test arrays accessors ; -SPECIALIZED-ARRAY: float +QUALIFIED-WITH: alien.c-types c +SPECIALIZED-ARRAY: c:float IN: sequences.complex.tests : test-array ( -- x ) diff --git a/extra/benchmark/raytracer-simd/raytracer-simd.factor b/extra/benchmark/raytracer-simd/raytracer-simd.factor index ff3a2bac3e..5a3c232b5a 100644 --- a/extra/benchmark/raytracer-simd/raytracer-simd.factor +++ b/extra/benchmark/raytracer-simd/raytracer-simd.factor @@ -5,7 +5,8 @@ USING: arrays accessors io io.files io.files.temp io.encodings.binary kernel math math.constants math.functions math.vectors math.vectors.simd math.parser make sequences sequences.private words hints classes.struct ; -SIMD: double +QUALIFIED-WITH: alien.c-types c +SIMD: c:double IN: benchmark.raytracer-simd ! parameters diff --git a/extra/benchmark/simd-1/simd-1.factor b/extra/benchmark/simd-1/simd-1.factor index f3ba5eb86e..4b3c4a5b9f 100644 --- a/extra/benchmark/simd-1/simd-1.factor +++ b/extra/benchmark/simd-1/simd-1.factor @@ -2,7 +2,8 @@ ! See http://factorcode.org/license.txt for BSD license. USING: kernel io math math.functions math.parser math.vectors math.vectors.simd sequences specialized-arrays ; -SIMD: float +QUALIFIED-WITH: alien.c-types c +SIMD: c:float SPECIALIZED-ARRAY: float-4 IN: benchmark.simd-1