From b6997a242f72c9642f41fe6db99f258e5b8c5c65 Mon Sep 17 00:00:00 2001
From: azidar
Date: Wed, 19 Aug 2015 17:15:11 -0700
Subject: Added beginning of constant propagation pass, doesn't work

---
 src/main/stanza/compilers.stanza |  3 ++-
 src/main/stanza/passes.stanza    | 40 ++++++++++++++++++++++++++++++++++++++++
 2 files changed, 42 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/main/stanza/compilers.stanza b/src/main/stanza/compilers.stanza
index e55f43c1..eb0a36c4 100644
--- a/src/main/stanza/compilers.stanza
+++ b/src/main/stanza/compilers.stanza
@@ -61,7 +61,8 @@ public defmethod passes (c:StandardVerilog) -> List<Pass> :
       CheckGenders()
       ExpandWhens()
       InferWidths()
-      Pad()
+      ;Pad()
+      ConstProp()
       SplitExp()
       ToRealIR()
       ;RemoveSpecialChars()
diff --git a/src/main/stanza/passes.stanza b/src/main/stanza/passes.stanza
index 8bf35915..41ca40c4 100644
--- a/src/main/stanza/passes.stanza
+++ b/src/main/stanza/passes.stanza
@@ -2408,3 +2408,43 @@ public defn pad-widths (c:Circuit) -> Circuit :
             (m:ExModule) : m
             (m:InModule) : InModule(info(m),name(m),ports(m),pad-widths-s(body(m)))
 
+
+;============= Constant Propagation ================
+
+public defstruct ConstProp <: Pass
+public defmethod pass (b:ConstProp) -> (Circuit -> Circuit) : const-prop
+public defmethod name (b:ConstProp) -> String : "Constant Propagation"
+public defmethod short-name (b:ConstProp) -> String : "const-prop"
+
+;------------ Helper Functions --------------
+
+
+;------------- Pad Widths -------------------
+
+defn const-prop-e (e:Expression) -> Expression :
+   match(map(const-prop-e,e)) :
+      (e:DoPrim) : 
+         switch {op(e) == _} :
+            BITS-SELECT-OP : 
+               match(args(e)[0]) :
+                  (x:UIntValue) : 
+                     val b = bits(value(x),consts(e)[0],consts(e)[1])
+                     UIntValue(b,width(type(e) as UIntType))
+            BIT-SELECT-OP : 
+               match(args(e)[0]) :
+                  (x:UIntValue) : 
+                     val i = bit(value(x),consts(e)[0])
+                     UIntValue(i,width(type(e) as UIntType))
+            else : e
+      (e) : e
+
+defn const-prop-s (s:Stmt) -> Stmt :
+   map{const-prop-e,_} $ map(const-prop-s,s)
+
+public defn const-prop (c:Circuit) -> Circuit :
+   Circuit{info(c),_,main(c)} $
+      for m in modules(c) map :
+         match(m) :
+            (m:ExModule) : m
+            (m:InModule) : InModule(info(m),name(m),ports(m),const-prop-s(body(m)))
+
-- 
cgit v1.2.3