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

implement vneg as an intrinsic in terms of load -0, subtract

db4
Joe Groff 2009-10-09 13:16:39 -05:00
parent 39f22a4c71
commit 01f5d392be
6 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/compiler/cfg/intrinsics/intrinsics.factor
View File

@ -159,6 +159,7 @@ IN: compiler.cfg.intrinsics
{ math.vectors.simd.intrinsics:(simd-v+-) [ [ ^^add-sub-vector ] emit-binary-vector-op ] }
{ math.vectors.simd.intrinsics:(simd-v-) [ [ ^^sub-vector ] emit-binary-vector-op ] }
{ math.vectors.simd.intrinsics:(simd-vs-) [ [ ^^saturated-sub-vector ] emit-binary-vector-op ] }
{ math.vectors.simd.intrinsics:(simd-vneg) [ [ generate-neg-vector ] emit-unary-vector-op ] }
{ math.vectors.simd.intrinsics:(simd-v*) [ [ ^^mul-vector ] emit-binary-vector-op ] }
{ math.vectors.simd.intrinsics:(simd-vs*) [ [ ^^saturated-mul-vector ] emit-binary-vector-op ] }
{ math.vectors.simd.intrinsics:(simd-v/) [ [ ^^div-vector ] emit-binary-vector-op ] }

12
basis/compiler/cfg/intrinsics/simd/simd.factor
View File

@ -7,7 +7,10 @@ compiler.tree.propagation.info compiler.cfg.builder.blocks
compiler.cfg.comparisons
compiler.cfg.stacks compiler.cfg.stacks.local compiler.cfg.hats
compiler.cfg.instructions compiler.cfg.registers
compiler.cfg.intrinsics.alien ;
compiler.cfg.intrinsics.alien
specialized-arrays ;
FROM: alien.c-types => float double ;
SPECIALIZED-ARRAYS: float double ;
IN: compiler.cfg.intrinsics.simd
MACRO: check-elements ( quots -- )
@ -177,3 +180,10 @@ MACRO: if-literals-match ( quots -- )
]
} cond ;
:: generate-neg-vector ( src rep -- dst )
rep {
{ float-4-rep [ float-array{ -0.0 -0.0 -0.0 -0.0 } underlying>> ^^load-constant ] }
{ double-2-rep [ double-array{ -0.0 -0.0 } underlying>> ^^load-constant ] }
[ drop rep ^^zero-vector ]
} case
src rep ^^sub-vector ;

1
basis/compiler/tree/propagation/simd/simd.factor
View File

@ -8,6 +8,7 @@ IN: compiler.tree.propagation.simd
{
(simd-v+)
(simd-v-)
(simd-vneg)
(simd-v+-)
(simd-v*)
(simd-v/)

1
basis/math/vectors/simd/functor/functor.factor
View File

@ -109,7 +109,6 @@ ERROR: bad-schema op schema ;
! Some SIMD operations are defined in terms of others.
{
{ vbroadcast [ swap nth ctor execute ] }
{ vneg [ [ dup vbitxor ] keep v- ] }
{ n+v [ [ ctor execute ] dip v+ ] }
{ v+n [ ctor execute v+ ] }
{ n-v [ [ ctor execute ] dip v- ] }

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

@ -40,6 +40,7 @@ SYNTAX: SIMD-CONVERSION-OP:
SIMD-OP: v+
SIMD-OP: v-
SIMD-OP: vneg
SIMD-OP: v+-
SIMD-OP: vs+
SIMD-OP: vs-
@ -148,6 +149,7 @@ M: vector-rep supported-simd-op?
{ \ (simd-v+-) [ %add-sub-vector-reps ] }
{ \ (simd-v-) [ %sub-vector-reps ] }
{ \ (simd-vs-) [ %saturated-sub-vector-reps ] }
{ \ (simd-vneg) [ %sub-vector-reps ] }
{ \ (simd-v*) [ %mul-vector-reps ] }
{ \ (simd-vs*) [ %saturated-mul-vector-reps ] }
{ \ (simd-v/) [ %div-vector-reps ] }

1
basis/math/vectors/specialization/specialization.factor
View File

@ -69,6 +69,7 @@ H{
{ v+- { +vector+ +vector+ -> +vector+ } }
{ v+n { +vector+ +scalar+ -> +vector+ } }
{ v- { +vector+ +vector+ -> +vector+ } }
{ vneg { +vector+ -> +vector+ } }
{ vs- { +vector+ +vector+ -> +vector+ } }
{ v-n { +vector+ +scalar+ -> +vector+ } }
{ v. { +vector+ +vector+ -> +scalar+ } }