From 306206f0aba4e9094ce267c1a8f0d8ee022c4f00 Mon Sep 17 00:00:00 2001 From: azidar Date: Tue, 21 Jul 2015 12:02:53 -0700 Subject: Fixed removing non-referenced components --- src/main/stanza/compilers.stanza | 2 +- src/main/stanza/passes.stanza | 5 +++-- 2 files changed, 4 insertions(+), 3 deletions(-) (limited to 'src') 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) : 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, 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, s:Stmt) -> False : defn mark-referenced (referenced?:HashTable, 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-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() -- cgit v1.2.3