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

SCM Repository

[diderot] Diff of /branches/lamont/src/compiler/c-util/tree-to-c-fn.sml
ViewVC logotype

Diff of /branches/lamont/src/compiler/c-util/tree-to-c-fn.sml

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

revision 2091, Mon Nov 12 01:54:01 2012 UTC revision 2092, Mon Nov 12 15:34:03 2012 UTC
# Line 596  Line 596 
596      and trForeach(env,cond,b as IL.Block{locals,body}) = let      and trForeach(env,cond,b as IL.Block{locals,body}) = let
597             val neighborStm = CL.mkAssign(trExp(env,cond),CL.mkSubscript(CL.E_Var N.strandsName,CL.mkIndirect(CL.E_Var N.sequenceName,"strandId")))             val neighborStm = CL.mkAssign(trExp(env,cond),CL.mkSubscript(CL.E_Var N.strandsName,CL.mkIndirect(CL.E_Var N.sequenceName,"strandId")))
598             val foreachStms = trBlk(env,b)             val foreachStms = trBlk(env,b)
599               val nextNeighbor = CL.mkAssign(CL.E_Var N.sequenceName,CL.mkIndirect(CL.E_Var N.sequenceName, "next"))
600             val loop = CL.mkWhile(CL.mkBinOp(CL.E_Var N.sequenceName, CL.#!=, CL.E_Var "NULL"),             val loop = CL.mkWhile(CL.mkBinOp(CL.E_Var N.sequenceName, CL.#!=, CL.E_Var "NULL"),
601                                        CL.mkBlock([neighborStm,foreachStms]))                                        CL.mkBlock([neighborStm,foreachStms,nextNeighbor]))
602           in           in
603              [loop]              [loop]
604           end           end

Legend:
Removed from v.2091  
changed lines
  Added in v.2092

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