From 07b7563e0748b1aff6f4d28b0172095b2fdcdfcc Mon Sep 17 00:00:00 2001
From: Alex AUVOLAT <alex.auvolat@ens.fr>
Date: Tue, 5 Nov 2013 13:47:12 +0100
Subject: Added netlist simplification passes (not yet quite complete !)

---
 sched/main.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sched/main.ml')

diff --git a/sched/main.ml b/sched/main.ml
index 988d1ec..a2a4d3b 100644
--- a/sched/main.ml
+++ b/sched/main.ml
@@ -11,7 +11,7 @@ let compile filename =
 	let q = ref p in
 
     begin try
-		q := Scheduler.schedule p
+		q := (Simplify.simplify (Scheduler.schedule p))
       with
         | Scheduler.Combinational_cycle ->
             Format.eprintf "The netlist has a combinatory cycle.@.";
-- 
cgit v1.2.3