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

compiler.cfg.builder: fix unit tests

db4
Slava Pestov 2010-04-24 02:38:54 -04:00
parent f14f2cbdab
commit 732f57f31d
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/compiler/cfg/builder/builder-tests.factor
View File

@ -172,29 +172,29 @@ IN: compiler.cfg.builder.tests
[ t ] [ [ t ] [
[ { fixnum byte-array fixnum } declare set-alien-unsigned-1 ] [ { fixnum byte-array fixnum } declare set-alien-unsigned-1 ]
[ ##store-memory-imm? ] contains-insn? [ [ ##store-memory? ] [ ##store-memory-imm? ] bi or ] contains-insn?
] unit-test ] unit-test
[ t ] [ [ t ] [
[ { fixnum byte-array fixnum } declare [ dup * dup * ] 2dip set-alien-unsigned-1 ] [ { fixnum byte-array fixnum } declare [ dup * dup * ] 2dip set-alien-unsigned-1 ]
[ ##store-memory-imm? ] contains-insn? [ [ ##store-memory? ] [ ##store-memory-imm? ] bi or ] contains-insn?
] unit-test ] unit-test
[ f ] [ [ f ] [
[ { byte-array fixnum } declare set-alien-unsigned-1 ] [ { byte-array fixnum } declare set-alien-unsigned-1 ]
[ ##store-memory-imm? ] contains-insn? [ [ ##store-memory? ] [ ##store-memory-imm? ] bi or ] contains-insn?
] unit-test ] unit-test
[ t t ] [ [ t t ] [
[ { byte-array fixnum } declare alien-cell ] [ { byte-array fixnum } declare alien-cell ]
[ [ ##load-memory-imm? ] contains-insn? ] [ [ [ ##load-memory? ] [ ##load-memory-imm? ] bi or ] contains-insn? ]
[ [ ##box-alien? ] contains-insn? ] [ [ ##box-alien? ] contains-insn? ]
bi bi
] unit-test ] unit-test
[ f ] [ [ f ] [
[ { byte-array integer } declare alien-cell ] [ { byte-array integer } declare alien-cell ]
[ ##load-memory-imm? ] contains-insn? [ [ ##load-memory? ] [ ##load-memory-imm? ] bi or ] contains-insn?
] unit-test ] unit-test
[ f ] [ [ f ] [