aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorazidar2015-07-21 12:16:08 -0700
committerazidar2015-07-21 12:16:08 -0700
commit86dfd891ee40a9ff367984ec285013cc8e5b37c3 (patch)
treec7a0b368dde1fa05265958754801f63267c80951 /src
parent306206f0aba4e9094ce267c1a8f0d8ee022c4f00 (diff)
Fixed bug in fix :P
Diffstat (limited to 'src')
-rw-r--r--src/main/stanza/compilers.stanza4
-rw-r--r--src/main/stanza/passes.stanza3
2 files changed, 4 insertions, 3 deletions
diff --git a/src/main/stanza/compilers.stanza b/src/main/stanza/compilers.stanza
index 8ec3adfa..063feb6f 100644
--- a/src/main/stanza/compilers.stanza
+++ b/src/main/stanza/compilers.stanza
@@ -82,12 +82,12 @@ public defn run-passes (c:Circuit,ls:List<Pass>) :
var t = start-time
val time-table = Vector<[String,Int]>()
for p in ls do :
- println-all(STANDARD-ERROR,["Starting " name(p)])
+ println-all(STANDARD-OUTPUT,["Starting " name(p)])
if PRINT-CIRCUITS : println(name(p))
c* = pass(p)(c*)
if PRINT-CIRCUITS : print(c*)
val current-time = to-int(to-string(current-time-us() / to-long(1000)))
- println-all(STANDARD-ERROR,["Finished " name(p)])
+ println-all(STANDARD-OUTPUT,["Finished " name(p)])
println-all(STANDARD-ERROR,["Milliseconds since start: " current-time - start-time])
println-all(STANDARD-ERROR,["Milliseconds for this pass: " current-time - t])
println-all(STANDARD-ERROR,["\n"])
diff --git a/src/main/stanza/passes.stanza b/src/main/stanza/passes.stanza
index 1280e379..33ef666c 100644
--- a/src/main/stanza/passes.stanza
+++ b/src/main/stanza/passes.stanza
@@ -1619,7 +1619,8 @@ 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
+ if value(x) != SVNul() :
+ referenced?[key(x)] = true
for x in decs do :
mark-referenced(referenced?,x)
val decs* = Vector<Stmt>()