steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/basis/math/floats/half/half-tests.factor

50 lines
1.4 KiB
Factor
Raw Normal View History

rename half-floats vocab to math.floats.half
2010-04-28 18:48:47 -04:00
USING: accessors alien.c-types alien.syntax math.floats.half kernel
change half-floats to make a primitive C type instead of a single-slot C-STRUCT: + boxer/unboxer
2009-09-18 18:26:20 -04:00
math tools.test specialized-arrays alien.data classes.struct ;
Specialized array overhaul - Replace hand-written specialized-arrays.* subvocabularies with new system; instead of USE:ing specialized-arrays.T, do SPECIALIZED-ARRAY: T - Ditto for specialized-vectors; use SPECIALIZED-VECTOR: - io.mmap.functor: removed entirely, use <mapped-array> instead - struct-arrays and struct-vectors have been removed because specialized arrays and vectors subsume them entirely
2009-09-09 23:33:34 -04:00
SPECIALIZED-ARRAY: half
rename half-floats vocab to math.floats.half
2010-04-28 18:48:47 -04:00
IN: math.floats.half.tests
half-precision float vocab
2009-06-10 14:06:06 -04:00
use radix literals
2011-11-23 21:49:33 -05:00
[ 0x0000 ] [ 0.0 half>bits ] unit-test
[ 0x8000 ] [ -0.0 half>bits ] unit-test
[ 0x3e00 ] [ 1.5 half>bits ] unit-test
[ 0xbe00 ] [ -1.5 half>bits ] unit-test
[ 0x7c00 ] [ 1/0. half>bits ] unit-test
[ 0xfc00 ] [ -1/0. half>bits ] unit-test
[ 0x7eaa ] [ NAN: aaaaaaaaaaaaa half>bits ] unit-test
half-precision float vocab
2009-06-10 14:06:06 -04:00
! too-big floats overflow to infinity
use radix literals
2011-11-23 21:49:33 -05:00
[ 0x7c00 ] [ 65536.0 half>bits ] unit-test
[ 0xfc00 ] [ -65536.0 half>bits ] unit-test
[ 0x7c00 ] [ 131072.0 half>bits ] unit-test
[ 0xfc00 ] [ -131072.0 half>bits ] unit-test
half-precision float vocab
2009-06-10 14:06:06 -04:00
! too-small floats flush to zero
use radix literals
2011-11-23 21:49:33 -05:00
[ 0x0000 ] [ 1.0e-9 half>bits ] unit-test
[ 0x8000 ] [ -1.0e-9 half>bits ] unit-test
[ 0.0 ] [ 0x0000 bits>half ] unit-test
[ -0.0 ] [ 0x8000 bits>half ] unit-test
[ 1.5 ] [ 0x3e00 bits>half ] unit-test
[ -1.5 ] [ 0xbe00 bits>half ] unit-test
[ 1/0. ] [ 0x7c00 bits>half ] unit-test
[ -1/0. ] [ 0xfc00 bits>half ] unit-test
[ 3.0 ] [ 0x4200 bits>half ] unit-test
[ t ] [ 0x7e00 bits>half fp-nan? ] unit-test
half-precision float vocab
2009-06-10 14:06:06 -04:00
change half-floats to make a primitive C type instead of a single-slot C-STRUCT: + boxer/unboxer
2009-09-18 18:26:20 -04:00
STRUCT: halves
{ tom half }
{ dick half }
{ harry half }
{ harry-jr half } ;
half-precision float vocab
2009-06-10 14:06:06 -04:00
change half-floats to make a primitive C type instead of a single-slot C-STRUCT: + boxer/unboxer
2009-09-18 18:26:20 -04:00
[ 8 ] [ halves heap-size ] unit-test
half-precision float vocab
2009-06-10 14:06:06 -04:00
[ 3.0 ] [
change half-floats to make a primitive C type instead of a single-slot C-STRUCT: + boxer/unboxer
2009-09-18 18:26:20 -04:00
halves <struct>
3.0 >>dick
dick>>
half-precision float vocab
2009-06-10 14:06:06 -04:00
] unit-test
[ half-array{ 1.0 2.0 3.0 1/0. -1/0. } ]
specialized-arrays: performed some cleanup. Specifically, • Created >c-array to be replacement for >T-array. • Created cast-array to be generic replacement for all T-array-cast words. • Created c-array@ to be generic replacement for T-array@ words. • Replaced usages of <T-array> with T <c-array> • Replaced usages of <direct-T-array> with T <c-direct-array> • Replaced usages of >T-array with T >c-array • Replaced usages of T-array-cast with T cast-array • Replaced usages of malloc-T-array with T malloc-array. • Removed malloc-T-array. • Removed T-array-cast. • Removed T-array@. • Removed >T-array. I also added (but didn't change any code to use): • T c-array-type, returns T-array • T c-array?, returns T-array? • c-array{ T ... }, returns T-array{ ... } Bootstraps just find on Mac OS X. Also `load-all test-all` works for me.
2011-09-25 14:49:27 -04:00
[ { 1.0 2.0 3.0 1/0. -1/0. } half >c-array ] unit-test
half-precision float vocab
2009-06-10 14:06:06 -04:00