diff options
| author | azidar | 2015-07-21 12:02:53 -0700 |
|---|---|---|
| committer | azidar | 2015-07-21 12:02:53 -0700 |
| commit | 306206f0aba4e9094ce267c1a8f0d8ee022c4f00 (patch) | |
| tree | 3861bb279b06791f97748b8ee8aa3c73fc7d07b5 /src | |
| parent | d1c11b612201d1d167ece627350a35b303cf4e8b (diff) | |
Fixed removing non-referenced components
Diffstat (limited to 'src')
| -rw-r--r-- | src/main/stanza/compilers.stanza | 2 | ||||
| -rw-r--r-- | src/main/stanza/passes.stanza | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/src/main/stanza/compilers.stanza b/src/main/stanza/compilers.stanza index 64d4a7c4..8ec3adfa 100644 --- a/src/main/stanza/compilers.stanza +++ b/src/main/stanza/compilers.stanza @@ -98,4 +98,4 @@ public defn run-passes (c:Circuit,ls:List<Pass>) : for x in time-table do : println-all(STANDARD-ERROR,[x[0] " --- " to-float(x[1] as Int) / to-float(t - start-time) "%"]) println(STANDARD-ERROR,"==========================") - println(STANDARD-ERROR,"Done!") + println("Done!") diff --git a/src/main/stanza/passes.stanza b/src/main/stanza/passes.stanza index cfcbb36b..1280e379 100644 --- a/src/main/stanza/passes.stanza +++ b/src/main/stanza/passes.stanza @@ -1495,7 +1495,7 @@ defn build-tables (s:Stmt, defn mark-referenced (referenced?:HashTable<Symbol,True>, s:Stmt) -> False : defn mark-referenced-e (e:Expression) -> Expression : match(map(mark-referenced-e,e)) : - (e:Ref) : + (e:WRef) : referenced?[name(e)] = true e (e) : e @@ -1506,7 +1506,7 @@ defn mark-referenced (referenced?:HashTable<Symbol,True>, s:Stmt) -> False : defn mark-referenced (referenced?:HashTable<Symbol,True>, sv:SymbolicValue) -> False : defn mark-referenced-e (e:Expression) -> Expression : match(map(mark-referenced-e,e)) : - (e:Ref) : + (e:WRef) : referenced?[name(e)] = true e (e) : e @@ -1619,6 +1619,7 @@ public defn expand-whens (c:Circuit) -> Circuit : val referenced? = HashTable<Symbol,True>(symbol-hash) for x in table do : mark-referenced(referenced?,value(x)) + referenced?[key(x)] = true for x in decs do : mark-referenced(referenced?,x) val decs* = Vector<Stmt>() |