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

math.vectors.conversion: [foo] for words that make quots is ok, but [[foo]] is overboard. change to ([foo])

db4
Doug Coleman 2015-07-26 12:24:23 -07:00
parent 155c5ab823
commit f3c85e0598
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/math/vectors/conversion/conversion.factor
View File

@ -48,14 +48,14 @@ ERROR: bad-vconvert-input value expected-type ;
[ from-element unsigned-type? to-element unsigned-type? not and ] [ from-element unsigned-type? to-element unsigned-type? not and ]
} 0|| [ from-type to-type bad-vconvert ] when ; } 0|| [ from-type to-type bad-vconvert ] when ;
:: [[vpack-unsigned]] ( from-type to-type -- quot ) :: ([vpack-unsigned]) ( from-type to-type -- quot )
from-type new simd-rep from-type new simd-rep
'[ '[
[ from-type check-vconvert-type underlying>> ] bi@ [ from-type check-vconvert-type underlying>> ] bi@
_ (simd-vpack-unsigned) to-type boa _ (simd-vpack-unsigned) to-type boa
] ; ] ;
:: [[vpack-signed]] ( from-type to-type -- quot ) :: ([vpack-signed]) ( from-type to-type -- quot )
from-type new simd-rep from-type new simd-rep
'[ '[
[ from-type check-vconvert-type underlying>> ] bi@ [ from-type check-vconvert-type underlying>> ] bi@
@ -68,7 +68,7 @@ ERROR: bad-vconvert-input value expected-type ;
from-element to-element from-type to-type steps check-vpack from-element to-element from-type to-type steps check-vpack
from-type to-type to-element unsigned-type? from-type to-type to-element unsigned-type?
[ [[vpack-unsigned]] ] [ [[vpack-signed]] ] if ; [ ([vpack-unsigned]) ] [ ([vpack-signed]) ] if ;
:: check-vunpack ( from-element to-element from-type to-type steps -- ) :: check-vunpack ( from-element to-element from-type to-type steps -- )
{ {
@ -77,7 +77,7 @@ ERROR: bad-vconvert-input value expected-type ;
[ from-element unsigned-type? not to-element unsigned-type? and ] [ from-element unsigned-type? not to-element unsigned-type? and ]
} 0|| [ from-type to-type bad-vconvert ] when ; } 0|| [ from-type to-type bad-vconvert ] when ;
:: [[vunpack]] ( from-type to-type -- quot ) :: ([vunpack]) ( from-type to-type -- quot )
from-type new simd-rep from-type new simd-rep
'[ '[
from-type check-vconvert-type underlying>> _ from-type check-vconvert-type underlying>> _
@ -88,7 +88,7 @@ ERROR: bad-vconvert-input value expected-type ;
:: [vunpack] ( from-element to-element from-size to-size from-type to-type -- quot ) :: [vunpack] ( from-element to-element from-size to-size from-type to-type -- quot )
to-size from-size /i log2 :> steps to-size from-size /i log2 :> steps
from-element to-element from-type to-type steps check-vunpack from-element to-element from-type to-type steps check-vunpack
from-type to-type [[vunpack]] ; from-type to-type ([vunpack]) ;
PRIVATE> PRIVATE>