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

SCM Repository

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

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

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

revision 2496, Tue Oct 29 05:29:46 2013 UTC revision 2497, Wed Oct 30 17:29:20 2013 UTC
# Line 24  Line 24 
24        | APPLY of MathFuns.name * expr list        | APPLY of MathFuns.name * expr list
25        | CONS of IL.Ty.ty * expr list        | CONS of IL.Ty.ty * expr list
26        | PHI of expr list        | PHI of expr list
27          | EINAPP of Ein.ein * IL.var list
28          | M of word
29    
30      withtype expr = expr_nd HashCons.obj      withtype expr = expr_nd HashCons.obj
31    
# Line 58  Line 60 
60      structure IL = IL      structure IL = IL
61      structure Op = IL.Op      structure Op = IL.Op
62      structure HC = HashCons      structure HC = HashCons
63          structure HE=hashEin
64    
65      datatype expr_nd      datatype expr_nd
66        = STATE of IL.state_var        = STATE of IL.state_var
# Line 68  Line 71 
71        | APPLY of MathFuns.name * expr list        | APPLY of MathFuns.name * expr list
72        | CONS of IL.Ty.ty * expr list        | CONS of IL.Ty.ty * expr list
73        | PHI of expr list        | PHI of expr list
74      | EINAPP of Ein.ein * IL.var list
75            | M of word
76    
77      withtype expr = expr_nd HashCons.obj      withtype expr = expr_nd HashCons.obj
78    
# Line 124  Line 129 
129      fun mkCONS (Tbl tbl) (ty, args) =      fun mkCONS (Tbl tbl) (ty, args) =
130            HC.consList tbl (0w5987, fn args => CONS(ty, args)) args            HC.consList tbl (0w5987, fn args => CONS(ty, args)) args
131      fun mkPHI (Tbl tbl) args = HC.consList tbl (0w6079, PHI) args      fun mkPHI (Tbl tbl) args = HC.consList tbl (0w6079, PHI) args
132            (*
133        fun mkEinOP (Tbl tbl) (rator, args) =
134            HC.consList tbl ( HE.hashfn rator, fn args => EINAPP(rator, args)) args
135    *)
136    
137    (* hash tables *)    (* hash tables *)
138      structure Tbl = HashTableFn (      structure Tbl = HashTableFn (

Legend:
Removed from v.2496  
changed lines
  Added in v.2497

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