compiler.cfg.checker: new check-rpo word

2009-05-26 02:58:40 -05:00 · 2009-05-26 02:58:40 -05:00 · e0841fa695
parent a08bbde2e7
commit e0841fa695
1 changed files with 4 additions and 3 deletions
--- a/basis/compiler/cfg/checker/checker.factor
+++ b/basis/compiler/cfg/checker/checker.factor
@ -18,7 +18,8 @@ ERROR: last-insn-not-a-jump insn ;
        [ ##dispatch-label? ]
    } 1|| [ drop ] [ last-insn-not-a-jump ] if ;

+: check-rpo ( rpo -- )
+    [ instructions>> check-basic-block ] each ;
+
 : check-cfg ( cfg -- )
-    entry>> reverse-post-order [
-        instructions>> check-basic-block
-    ] each ;
+    entry>> reverse-post-order check-rpo ;