basis/compiler/tests/low-level-ir: add ##copy double-float-rep test

db4
sheeple 2009-08-25 19:41:17 -05:00
parent fb1693bf1d
commit 61c1ed17d9
1 changed files with 12 additions and 1 deletions

View File

@ -46,6 +46,17 @@ IN: compiler.tests.low-level-ir
} compile-test-bb
] unit-test
! ##copy on floats
[ 1.5 ] [
V{
T{ ##load-reference f 4 1.5 }
T{ ##unbox-float f 1 4 }
T{ ##copy f 2 1 double-float-rep }
T{ ##box-float f 3 2 }
T{ ##copy f 0 3 int-rep }
} compile-test-bb
] unit-test
! make sure slot access works when the destination is
! one of the sources
[ t ] [
@ -138,4 +149,4 @@ USE: multiline
} compile-test-bb
] unit-test
*/
*/