From 9a07760542985c9fb4910beceae970c7e4f94480 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 22 Oct 2008 18:41:37 -0500
Subject: [PATCH] CFG optimizer

---
 basis/compiler/cfg/optimizer/optimizer.factor | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 basis/compiler/cfg/optimizer/optimizer.factor

diff --git a/basis/compiler/cfg/optimizer/optimizer.factor b/basis/compiler/cfg/optimizer/optimizer.factor
new file mode 100644
index 0000000000..242189f3f6
--- /dev/null
+++ b/basis/compiler/cfg/optimizer/optimizer.factor
@@ -0,0 +1,12 @@
+! Copyright (C) 2008 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: compiler.cfg.rpo compiler.cfg.height
+compiler.cfg.alias-analysis compiler.cfg.write-barrier ;
+IN: compiler.cfg.optimizer
+
+: optimize-cfg ( cfg -- cfg' )
+    [
+        normalize-height
+        alias-analysis
+        eliminate-write-barriers
+    ] change-basic-blocks ;