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

SCM Repository

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

Diff of /branches/charisee/src/compiler/mid-to-low/evalKrn-set.sml

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

revision 3542, Mon Jan 4 19:47:38 2016 UTC revision 3553, Thu Jan 7 17:39:31 2016 UTC
# Line 147  Line 147 
147              val (opset,var) = lowSet.filter(opset,(lhs,rhs))              val (opset,var) = lowSet.filter(opset,(lhs,rhs))
148                  in  (case var                  in  (case var
149                      of NONE => getSet(es,done@[DstIL.ASSGN(lhs,rhs)], opset,cnt)                      of NONE => getSet(es,done@[DstIL.ASSGN(lhs,rhs)], opset,cnt)
150                          | SOME v=> (("TASH:replacing"^DstIL.Var.toString(lhs));getSet(es,done@[DstIL.ASSGN(lhs,DstIL.VAR v)], opset,cnt+1))                      | SOME v=>   getSet (es,done@[DstIL.ASSGN (lhs,DstIL.VAR v) ], opset, cnt+1)
151                              (*end case*))                              (*end case*))
152                  end                  end
153             | getSet (e1::es, done, opset,cnt)=getSet(es,done@[e1],opset,cnt)             | getSet (e1::es, done, opset,cnt)=getSet(es,done@[e1],opset,cnt)

Legend:
Removed from v.3542  
changed lines
  Added in v.3553

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