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

compiler.tests: fix test for generalizations change

db4
Slava Pestov 2010-05-18 23:08:37 -04:00
parent e30a429985
commit 4dd58ce40e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/compiler/tests/spilling.factor
View File

@ -1,7 +1,9 @@
USING: math.private kernel combinators accessors arrays USING: math.private kernel combinators accessors arrays
generalizations tools.test words ; generalizations sequences.generalizations tools.test words ;
IN: compiler.tests.spilling IN: compiler.tests.spilling
! These tests are stupid and don't trigger spilling anymore
: float-spill-bug ( a -- b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b ) : float-spill-bug ( a -- b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b b )
{ {
[ dup float+ ] [ dup float+ ]
@ -163,7 +165,6 @@ IN: compiler.tests.spilling
[ 4 ] [ 1 1 resolve-spill-bug ] unit-test [ 4 ] [ 1 1 resolve-spill-bug ] unit-test
! The above don't really test spilling...
: spill-test-1 ( a -- b ) : spill-test-1 ( a -- b )
dup 1 fixnum+fast dup 1 fixnum+fast
dup 1 fixnum+fast dup 1 fixnum+fast