Making some scheduling assertions only run in unit tests

db4
Daniel Ehrenberg 2010-04-15 17:36:43 -05:00
parent 74de7d0e2a
commit 6892bac1ca
2 changed files with 12 additions and 1 deletions
basis/compiler/cfg/scheduling

View File

@ -0,0 +1,11 @@
USING: compiler.cfg.scheduling vocabs.loader namespaces tools.test ;
IN: compiler.cfg.scheduling.tests
! Recompile compiler.cfg.scheduling with extra tests,
! and see if any errors come up. Back when there were
! errors of this kind, they always surfaced this way.
t check-scheduling? [
[ ] [ "compiler.cfg.scheduling" reload ] unit-test
[ ] [ "compiler.cfg.dependence" reload ] unit-test
] with-variable

View File

@ -70,7 +70,7 @@ UNION: initial-insn
ERROR: not-all-instructions-were-scheduled old-bb new-bb ;
SYMBOL: check-scheduling?
t check-scheduling? set-global
f check-scheduling? set-global
:: check-instructions ( new-bb old-bb -- )
new-bb old-bb [ instructions>> ] bi@