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

compiler.cfg.stacks.clearing: fix tests.

db4
John Benediktsson 2015-05-17 09:32:44 -07:00
parent 9ceea3c241
commit c7ea419874
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
basis/compiler/cfg/stacks/clearing/clearing-tests.factor
View File

@ -25,31 +25,31 @@ IN: compiler.cfg.stacks.clearing.tests
{ { 2 { 0 1 } } { 0 { } } } T{ ##peek { loc D 2 } } dangerous-insn? { { 2 { 0 1 } } { 0 { } } } T{ ##peek { loc D 2 } } dangerous-insn?
] unit-test ] unit-test
! state>replaces ! state>clears
{ {
{ } { }
} [ } [
{ { 2 { } } { 0 { } } } state>replaces { { 2 { } } { 0 { } } } state>clears
] unit-test ] unit-test
{ {
{ {
T{ ##replace-imm { src 297 } { loc D 1 } } T{ ##clear { loc T{ ds-loc { n 1 } } } }
T{ ##replace-imm { src 297 } { loc D 0 } } T{ ##clear { loc T{ ds-loc } } }
} }
} [ } [
{ { 2 { 0 1 } } { 0 { } } } state>replaces { { 2 { 0 1 } } { 0 { } } } state>clears
] unit-test ] unit-test
{ { } } [ { { } } [
{ { 0 { } } { 0 { } } } state>replaces { { 0 { } } { 0 { } } } state>clears
] unit-test ] unit-test
{ {
{ {
T{ ##replace-imm { src 297 } { loc T{ ds-loc } } } T{ ##clear { loc T{ ds-loc } } }
T{ ##replace-imm { src 297 } { loc T{ rs-loc } } } T{ ##clear { loc T{ rs-loc } } }
} }
} [ } [
{ { 1 { 0 } } { 1 { 0 } } } state>replaces { { 1 { 0 } } { 1 { 0 } } } state>clears
] unit-test ] unit-test