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

Parent Directory | Revision Log | 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) =

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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