steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.vectors.simd.intrinsics: remove call( -- ) wrapper from fallbacks

db4
Joe Groff 2010-05-24 12:58:14 -07:00
parent 44ed11a084
commit 60b20d590a
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/math/vectors/simd/intrinsics/intrinsics.factor
View File

@ -1,8 +1,8 @@
! (c)2009 Slava Pestov, Joe Groff bsd license ! (c)2009 Slava Pestov, Joe Groff bsd license
USING: accessors alien alien.c-types alien.data combinators USING: accessors alien alien.c-types alien.data combinators
sequences.cords cpu.architecture fry generalizations grouping sequences.cords cpu.architecture fry generalizations grouping
kernel libc locals math math.libm math.order math.ranges kernel libc locals macros math math.libm math.order
math.vectors sequences sequences.generalizations math.ranges math.vectors sequences sequences.generalizations
sequences.private sequences.unrolled specialized-arrays sequences.private sequences.unrolled specialized-arrays
vocabs.loader words effects.parser locals.parser ; vocabs.loader words effects.parser locals.parser ;
QUALIFIED-WITH: alien.c-types c QUALIFIED-WITH: alien.c-types c
@ -20,9 +20,10 @@ IN: math.vectors.simd.intrinsics
[ simd-intrinsic-body ] keep define-declared ; [ simd-intrinsic-body ] keep define-declared ;
SYNTAX: SIMD-INTRINSIC: SYNTAX: SIMD-INTRINSIC:
(:) define-simd-intrinsic ; (:) define-declared ;
SYNTAX: SIMD-INTRINSIC:: SYNTAX: SIMD-INTRINSIC::
(::) define-simd-intrinsic ; (::) define-declared ;
>> >>
: assert-positive ( x -- y ) ; : assert-positive ( x -- y ) ;