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

SCM Repository

[diderot] Diff of /branches/lamont_dev/src/compiler/translate/translate.sml
ViewVC logotype

Diff of /branches/lamont_dev/src/compiler/translate/translate.sml

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

revision 1848, Mon Apr 16 15:38:50 2012 UTC revision 1854, Tue Apr 17 14:10:57 2012 UTC
# Line 267  Line 267 
267                        end                        end
268            | S.S_Foreach(x, e, blk) => let            | S.S_Foreach(x, e, blk) => let
269                val x' = lookup env x                val x' = lookup env x
270                        val (e'::rest) = cvtExp (env, x', e)                        val (IL.ASSGN(lhs,rhs)::rest) = cvtExp (env, x', e)
271                        val join = newJoin (env, 1)                        val join = newJoin (env, 1)
272                        val (cfg, _) = cvtBlock (state, env, (0, join)::joinStk, blk)                        val (cfg, _) = cvtBlock (state, env, (0, join)::joinStk, blk)
273               in               in
274                 cvt(env,                 cvt(env,
275                 IL.CFG.concat(cfg,IL.Node.mkFOREACH(x',e')),                 IL.CFG.appendNode(cfg,IL.Node.mkFOREACH((x',rhs),IL.CFG.entry cfg)),
276                 stms)                 stms)
277               end               end
278    

Legend:
Removed from v.1848  
changed lines
  Added in v.1854

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