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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/tree-il/tree-il.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/tree-il/tree-il.sml

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

revision 2663, Fri May 30 18:02:41 2014 UTC revision 2666, Wed Jun 4 01:59:49 2014 UTC
# Line 18  Line 18 
18    
19    
20    
   
   
   
21      datatype program = Program of {      datatype program = Program of {
22          props : StrandUtil.program_prop list,          props : StrandUtil.program_prop list,
23    
# Line 88  Line 85 
85        | S_Active        | S_Active
86        | S_Stabilize        | S_Stabilize
87        | S_Die        | S_Die
88          | S_Mk of var *exp (*Pass var to expression*)
89    
90      and exp      and exp
91        = E_State of state_var        = E_State of state_var
# Line 197  Line 195 
195       | toString (E_State x) = "State"       | toString (E_State x) = "State"
196       | toString (E_Var x) = Var.name x       | toString (E_Var x) = Var.name x
197       | toString (E_Lit lit) = Literal.toString lit       | toString (E_Lit lit) = Literal.toString lit
198     (*  | toString(E_FillVec(tyNew, tyOrig, arg, offset))=String.concat["FillVec<",  
199           q tyNew ,":",q  tyOrig, ">", "(", toString arg, ",", toString offset, ")"]      fun toStringS(S_Assign( _,e))=String.concat["Assignments=",toString e]
200      | toString(E_SliceVec(tyNew, tyOrig, arg, offset)) = String.concat["SliceVec<",      | toStringS(S_Mk(v,e))=String.concat["StV",toString e]
201               q tyNew ,":",q  tyOrig, ">", "(", toString arg, ",", toString offset, ")"]  
202  *)  
203    
204    
205    end    end

Legend:
Removed from v.2663  
changed lines
  Added in v.2666

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