From 82b3cfa677c21e7d1fab907f1824bb101f819291 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Thu, 17 Dec 2020 10:03:30 +0000
Subject: Modify software pipelining for build

---
 src/SoftwarePipelining/SoftwarePipelining.ml | 17 +++++++----------
 1 file changed, 7 insertions(+), 10 deletions(-)

(limited to 'src/SoftwarePipelining/SoftwarePipelining.ml')

diff --git a/src/SoftwarePipelining/SoftwarePipelining.ml b/src/SoftwarePipelining/SoftwarePipelining.ml
index eeb2dfd..12ab783 100644
--- a/src/SoftwarePipelining/SoftwarePipelining.ml
+++ b/src/SoftwarePipelining/SoftwarePipelining.ml
@@ -10,9 +10,9 @@
 (***********************************************************************)
 
 
-open Basic
-open IMS
-open MVE
+open SPBasic
+open SPIMS
+open SPMVE
 open RTL
 
 let clean t = 
@@ -57,8 +57,8 @@ let order = ref []
 
 let pipeliner ddg =  
   order := List.flatten (Scc.scc_list ddg);
-  let (sched,ii) = IMS.pipeliner ddg random in
-  let (steady,prolog,epilog,min,unroll,entrance,way_out) = MVE.mve ddg sched ii in
+  let (sched,ii) = SPIMS.pipeliner ddg random in
+  let (steady,prolog,epilog,min,unroll,entrance,way_out) = SPMVE.mve ddg sched ii in
   let steady_state = clean steady in
   if min <= 0 then None 
   else
@@ -66,8 +66,5 @@ let pipeliner ddg =
 	 ramp_up = entrance; ramp_down = way_out}
       
 
-let main f = 
-  Basic.apply_pipeliner f pipeliner ~debug:false
-
-  
-
+let pipeline f =
+  SPBasic.apply_pipeliner f pipeliner ~debug:true
-- 
cgit