Sped up some passes. Added global mname to allow easy per-module hashes for accellerating functions

1 files changed, 6 insertions, 1 deletions

diff --git a/src/main/stanza/ir-utils.stanza b/src/main/stanza/ir-utils.stanza
index 00b573a6..14383977 100644
--- a/src/main/stanza/ir-utils.stanza
+++ b/src/main/stanza/ir-utils.stanza
@@ -131,12 +131,17 @@ public defn children (e:Expression) -> List<Expression> :
    map(f,e)
    to-list(es)
    
+public var mname : Symbol = `blah
 public defn exp-hash (e:Expression) -> Int :
    turn-off-debug(false)
-   val i = symbol-hash(to-symbol(to-string(e)))
+   val i = symbol-hash(to-symbol(string-join(map(to-string,list(mname `.... e)))))
+   ;val i = symbol-hash(to-symbol(to-string(e)))
    turn-on-debug(false)
    i
 
+public defn type-hash (t:Type) -> Int :
+   symbol-hash(to-symbol(to-string(t)))
+
 ;============= Useful functions ==============
 public defn create-mask (n:Symbol,dt:Type) -> Field :
    Field{n,DEFAULT,_} $ match(dt) :