aboutsummaryrefslogtreecommitdiff
path: root/src/main/stanza/passes.stanza
diff options
context:
space:
mode:
authorazidar2015-07-14 11:14:47 -0700
committerazidar2015-07-14 11:29:55 -0700
commitdad79768db7a899b071a49a63466003c7d7e80da (patch)
tree4c8450d14eac55e8ca9cd7a420c91750816cd608 /src/main/stanza/passes.stanza
parent271e1bf5ed56847c1ce7d50bdb7f1db9ccc5ea55 (diff)
Fixed performance bug in backend. Added renaming
Diffstat (limited to 'src/main/stanza/passes.stanza')
-rw-r--r--src/main/stanza/passes.stanza6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/main/stanza/passes.stanza b/src/main/stanza/passes.stanza
index c6973115..c4d6a58f 100644
--- a/src/main/stanza/passes.stanza
+++ b/src/main/stanza/passes.stanza
@@ -286,9 +286,11 @@ defmethod map (f: Type -> Type, e: WIndex) :
; removed, except _.
public defstruct RemoveSpecialChars <: Pass
-public defmethod pass (b:RemoveSpecialChars) -> (Circuit -> Circuit) : remove-special-chars
+public defmethod pass (b:RemoveSpecialChars) -> (Circuit -> Circuit) :
+ remove-special-chars
public defmethod name (b:RemoveSpecialChars) -> String : "Remove Special Characters"
public defmethod short-name (b:RemoveSpecialChars) -> String : "rem-spec-chars"
+public defmulti
;------------ Helper Functions -------------
@@ -2077,7 +2079,7 @@ defn split-exp (c:Circuit) :
do(f,s)
(s:Connect) :
val exp* = map(split-exp-e{_,full-name(loc(s)),info(s)},exp(s))
- add(v,Connect(info(s),loc(s),exp(s)))
+ add(v,Connect(info(s),loc(s),exp*))
(s:DefNode) :
val exp* = map(split-exp-e{_,name(s),info(s)},value(s))
add(v,DefNode(info(s),name(s),exp*))