diff options
| author | azidar | 2015-07-14 11:14:47 -0700 |
|---|---|---|
| committer | azidar | 2015-07-14 11:29:55 -0700 |
| commit | dad79768db7a899b071a49a63466003c7d7e80da (patch) | |
| tree | 4c8450d14eac55e8ca9cd7a420c91750816cd608 /src/main/stanza/passes.stanza | |
| parent | 271e1bf5ed56847c1ce7d50bdb7f1db9ccc5ea55 (diff) | |
Fixed performance bug in backend. Added renaming
Diffstat (limited to 'src/main/stanza/passes.stanza')
| -rw-r--r-- | src/main/stanza/passes.stanza | 6 |
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*)) |
