From d2b158c8e40e07eb5ce3af751b24fea2e0addfc6 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 28 Jul 2009 01:04:13 -0500
Subject: [PATCH] compiler.cfg.critical-edges: reset RPO
---
basis/compiler/cfg/critical-edges/critical-edges.factor | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/basis/compiler/cfg/critical-edges/critical-edges.factor b/basis/compiler/cfg/critical-edges/critical-edges.factor
index 92b4f801d6..1000c24752 100644
--- a/basis/compiler/cfg/critical-edges/critical-edges.factor
+++ b/basis/compiler/cfg/critical-edges/critical-edges.factor
@@ -11,9 +11,11 @@ IN: compiler.cfg.critical-edges
f <simple-block> insert-basic-block ;
: split-critical-edges ( cfg -- )
- [
+ dup [
dup successors>> [
2dup critical-edge?
[ split-critical-edge ] [ 2drop ] if
] with each
- ] each-basic-block ;
\ No newline at end of file
+ ] each-basic-block
+ cfg-changed
+ drop ;
\ No newline at end of file