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

SCM Repository

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

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

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

revision 399, Thu Oct 14 20:08:35 2010 UTC revision 415, Sun Oct 17 00:21:51 2010 UTC
# Line 165  Line 165 
165                        in                        in
166                          mkBlock (S.S_Assign(result, e)::stms)                          mkBlock (S.S_Assign(result, e)::stms)
167                        end                        end
168                  val s1 = simplifyBranch e1                  val s1 = simplifyBranch e2
169                  val s2 = simplifyBranch e2                  val s2 = simplifyBranch e3
170                  in                  in
171                    (S.S_IfThenElse(x, s1, s2) :: stms, S.E_Var result)                    (S.S_IfThenElse(x, s1, s2) :: stms, S.E_Var result)
172                  end                  end

Legend:
Removed from v.399  
changed lines
  Added in v.415

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