2005-03-28 23:45:13 -05:00
|
|
|
IN: temporary
|
2004-12-05 21:17:09 -05:00
|
|
|
USE: test
|
2005-05-15 21:17:56 -04:00
|
|
|
USE: assembler
|
2004-12-05 21:17:09 -05:00
|
|
|
USE: compiler
|
2005-05-09 23:27:46 -04:00
|
|
|
USE: compiler-frontend
|
2004-12-05 21:17:09 -05:00
|
|
|
USE: inference
|
|
|
|
|
USE: words
|
|
|
|
|
USE: math
|
2004-12-10 19:29:07 -05:00
|
|
|
USE: kernel
|
2004-12-19 22:53:41 -05:00
|
|
|
USE: lists
|
2005-05-09 23:27:46 -04:00
|
|
|
USE: sequences
|
2004-12-05 21:17:09 -05:00
|
|
|
|
|
|
|
|
: foo 1 2 3 ;
|
|
|
|
|
|
2005-03-05 14:45:23 -05:00
|
|
|
[ [ ] ] [ \ foo word-def dataflow kill-set ] unit-test
|
2005-01-14 12:01:48 -05:00
|
|
|
|
|
|
|
|
[ [ [ 1 ] [ 2 ] ] ] [ [ [ 1 ] [ 2 ] ifte ] dataflow kill-set ] unit-test
|
|
|
|
|
|
|
|
|
|
[ [ [ 1 ] [ 2 ] ] ] [ [ [ 1 ] [ 2 ] ifte ] dataflow kill-set ] unit-test
|
|
|
|
|
|
|
|
|
|
[ [ t t f ] ] [ [ 1 2 ] [ 1 2 3 ] [ f <literal> ] map kill-mask ] unit-test
|
2005-01-17 15:33:12 -05:00
|
|
|
|
|
|
|
|
[ t ] [ 3 [ 3 over [ ] [ ] ifte drop ] dataflow kill-set contains? ] unit-test
|
2005-05-15 21:17:56 -04:00
|
|
|
|
|
|
|
|
: literal-kill-test-1 4 compiled-offset cell 2 * - ; compiled
|
|
|
|
|
|
|
|
|
|
[ 4 ] [ literal-kill-test-1 drop ] unit-test
|
|
|
|
|
|
|
|
|
|
: literal-kill-test-2 3 compiled-offset cell 2 * - ; compiled
|
|
|
|
|
|
|
|
|
|
[ 3 ] [ literal-kill-test-2 drop ] unit-test
|
|
|
|
|
|
|
|
|
|
: literal-kill-test-3 10 3 /mod drop ; compiled
|
|
|
|
|
|
|
|
|
|
[ 3 ] [ literal-kill-test-3 ] unit-test
|
