Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/IL/expr-fn.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/IL/expr-fn.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1849, Mon Apr 16 20:02:01 2012 UTC revision 1850, Mon Apr 16 22:11:09 2012 UTC
# Line 109  Line 109 
109    
110      fun new () = Tbl(HC.new{eq = sameNd})      fun new () = Tbl(HC.new{eq = sameNd})
111    
112  (* FIXME: need a new prime! *)      fun mkSTATE (Tbl tbl) x = HC.cons0 tbl (0w7477 + IL.StateVar.hash x, STATE x)
     fun mkSTATE (Tbl tbl) x = HC.cons0 tbl (0w7919 + IL.StateVar.hash x, STATE x)  
113      fun mkVAR (Tbl tbl) x = HC.cons0 tbl (0w7919 + IL.Var.hash x, VAR x)      fun mkVAR (Tbl tbl) x = HC.cons0 tbl (0w7919 + IL.Var.hash x, VAR x)
114      fun mkLIT (Tbl tbl) a = HC.cons0 tbl (0w6997 + Literal.hash a, LIT a)      fun mkLIT (Tbl tbl) a = HC.cons0 tbl (0w6997 + Literal.hash a, LIT a)
115      fun mkOP (Tbl tbl) (rator, args) =      fun mkOP (Tbl tbl) (rator, args) =

Legend:
Removed from v.1849  
changed lines
  Added in v.1850

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0