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

SCM Repository

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

Diff of /trunk/src/compiler/simplify/simplify.sml

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

revision 415, Sun Oct 17 00:21:51 2010 UTC revision 416, Sun Oct 17 00:32:07 2010 UTC
# Line 156  Line 156 
156                  in                  in
157                    (stms, S.E_Slice(x, indices, ty))                    (stms, S.E_Slice(x, indices, ty))
158                  end                  end
159              | AST.E_Cond(e1, e2, e3) => let              | AST.E_Cond(e1, e2, e3, ty) => let
160                (* a conditional expression gets turned into an if-then-else statememt *)                (* a conditional expression gets turned into an if-then-else statememt *)
161                  val result = newTemp Ty.T_Bool                  val result = newTemp ty
162                  val (stms, x) = simplifyExpToVar (e1, stms)                  val (stms, x) = simplifyExpToVar (e1, stms)
163                  fun simplifyBranch e = let                  fun simplifyBranch e = let
164                        val (stms, e) = simplifyExp (e, [])                        val (stms, e) = simplifyExp (e, [])

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

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