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

factor code duplication in compiler.cfg.intrinsics.simd.backend

db4
Joe Groff 2010-03-20 10:57:04 -07:00
parent f82a368602
commit 1d4d6f4ce8
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/compiler/cfg/intrinsics/simd/backend/backend.factor
View File

@ -64,16 +64,19 @@ M: ##shr-vector-imm insn-available? rep>> %shr-vector-imm-reps member? ;
M: ##horizontal-shl-vector-imm insn-available? rep>> %horizontal-shl-vector-imm-reps member? ; M: ##horizontal-shl-vector-imm insn-available? rep>> %horizontal-shl-vector-imm-reps member? ;
M: ##horizontal-shr-vector-imm insn-available? rep>> %horizontal-shr-vector-imm-reps member? ; M: ##horizontal-shr-vector-imm insn-available? rep>> %horizontal-shr-vector-imm-reps member? ;
: [vector-op-checked] ( #dup quot -- quot )
'[ _ ndup [ @ ] { } make dup [ insn-available? ] all? ] ;
GENERIC# >vector-op-cond 2 ( quot #pick #dup -- quotpair ) GENERIC# >vector-op-cond 2 ( quot #pick #dup -- quotpair )
M:: callable >vector-op-cond ( quot #pick #dup -- quotpair ) M:: callable >vector-op-cond ( quot #pick #dup -- quotpair )
#dup quot '[ 2drop _ ndup [ @ ] { } make dup [ insn-available? ] all? ] #dup quot [vector-op-checked] '[ 2drop @ ]
#dup '[ % _ nnip ] #dup '[ % _ nnip ]
2array ; 2array ;
M:: pair >vector-op-cond ( pair #pick #dup -- quotpair ) M:: pair >vector-op-cond ( pair #pick #dup -- quotpair )
pair first2 :> ( class quot ) pair first2 :> ( class quot )
#pick class #dup quot #pick class #dup quot [vector-op-checked]
'[ 2drop _ npick _ instance? [ _ ndup [ @ ] { } make dup [ insn-available? ] all? ] [ f f f ] if ] '[ 2drop _ npick _ instance? _ [ f f f ] if ]
#dup '[ % _ nnip ] #dup '[ % _ nnip ]
2array ; 2array ;