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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/high-to-mid/high-to-mid.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/high-to-mid/high-to-mid.sml

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

revision 3173, Sun Mar 29 23:39:25 2015 UTC revision 3174, Mon Mar 30 11:46:58 2015 UTC
# Line 280  Line 280 
280    
281              (case (useCount srcy)              (case (useCount srcy)
282                  of 0=>  []                  of 0=>  []
283                  | _ =>  handleEin.expandEinOp(y, DstIL.EINAPP(rator, Env.renameList(env, args)))                  | _ =>let
284    
285                        in handleEin.expandEinOp(y, DstIL.EINAPP(rator, Env.renameList(env, args))) end
286                  (*end case*))                  (*end case*))
287            (* end case *))            (* end case *))
288    
289    (* expand a SrcIL assignment to a list of DstIL assignments *)    (* expand a SrcIL assignment to a list of DstIL assignments *)
290      fun expand (env, (y, rhs)) = let      fun expand (env, (y, rhs)) = let
291            fun assign rhs = [DstIL.ASSGN(Env.rename (env, y), rhs)]            fun assign rhs = [DstIL.ASSGN(Env.rename (env, y), rhs)]
292              val _ =(HighIL.Var.toString  y )
293            in            in
294              case rhs              case rhs
295               of SrcIL.STATE x => assign (DstIL.STATE(Env.renameSV(env, x)))               of SrcIL.STATE x => assign (DstIL.STATE(Env.renameSV(env, x)))

Legend:
Removed from v.3173  
changed lines
  Added in v.3174

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