2008-08-30 03:31:27 -04:00
|
|
|
IN: compiler.units.tests
|
2009-01-22 22:22:28 -05:00
|
|
|
USING: definitions compiler.units tools.test arrays sequences words kernel
|
|
|
|
|
accessors ;
|
2008-08-30 03:31:27 -04:00
|
|
|
|
|
|
|
|
[ flushed-dependency ] [ f flushed-dependency strongest-dependency ] unit-test
|
|
|
|
|
[ flushed-dependency ] [ flushed-dependency f strongest-dependency ] unit-test
|
|
|
|
|
[ inlined-dependency ] [ flushed-dependency inlined-dependency strongest-dependency ] unit-test
|
|
|
|
|
[ inlined-dependency ] [ called-dependency inlined-dependency strongest-dependency ] unit-test
|
|
|
|
|
[ flushed-dependency ] [ called-dependency flushed-dependency strongest-dependency ] unit-test
|
|
|
|
|
[ called-dependency ] [ called-dependency f strongest-dependency ] unit-test
|
2009-01-22 22:22:28 -05:00
|
|
|
|
|
|
|
|
! Non-optimizing compiler bug
|
|
|
|
|
[ 1 1 ] [
|
|
|
|
|
"A" "B" <word> [ [ 1 ] dip ] >>def dup f 2array 1array f modify-code-heap
|
|
|
|
|
1 swap execute
|
|
|
|
|
] unit-test
|
