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

SCM Repository

[diderot] Diff of /branches/lamont/src/compiler/simplify/simplify.sml
ViewVC logotype

Diff of /branches/lamont/src/compiler/simplify/simplify.sml

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

revision 2083, Thu Nov 8 18:42:05 2012 UTC revision 2084, Fri Nov 9 21:55:00 2012 UTC
# Line 215  Line 215 
215          val (stms, e') = simplifyExp(e,stms)          val (stms, e') = simplifyExp(e,stms)
216          val S.Block(s') = simplifyBlock(s)          val S.Block(s') = simplifyBlock(s)
217          in          in
218             S.S_Foreach(x,e',S.Block( [S.S_Assign(x,e')] @ s'))::S.S_Var(x)::stms           (*  S.S_Foreach(x,e',S.Block( [S.S_Assign(x,e')] @ s'))::S.S_Var(x)::stms *)
219              (* S.S_Assign(x,S.E_Lit(Literal.Int 0)) S.S_Foreach(x,S.Block(s'),strandName)::S.S_Var(x)::stms *)               S.S_Foreach(x,e',S.Block( s'))::S.S_Assign(x,e')::stms
220          end          end
221              | AST.S_IfThenElse(e, s1, s2) => let              | AST.S_IfThenElse(e, s1, s2) => let
222                  val (stms, x) = simplifyExpToVar (e, stms)                  val (stms, x) = simplifyExpToVar (e, stms)

Legend:
Removed from v.2083  
changed lines
  Added in v.2084

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