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 236, Thu Aug 5 21:57:57 2010 UTC revision 395, Thu Oct 14 16:52:15 2010 UTC
# Line 56  Line 56 
56              List.app simplifyDecl dcls;              List.app simplifyDecl dcls;
57              S.Program{              S.Program{
58                  globals = List.rev(!globals),                  globals = List.rev(!globals),
                 staticInit = mkBlock [],  
59                  globalInit = mkBlock (!globalInit),                  globalInit = mkBlock (!globalInit),
60                  actors = List.rev(!actors)                  actors = List.rev(!actors)
61                }                }
# Line 144  Line 143 
143                  in                  in
144                    (stms, S.E_Cons xs)                    (stms, S.E_Cons xs)
145                  end                  end
146                | AST.E_Slice(e, indices) => let (* tensor slicing *)
147                    val (stms, x) = simplifyExpToVar (e, stms)
148                    in
149                      raise Fail "FIXME"
150                    end
151              | AST.E_Cond(e1, e2, e3) => let              | AST.E_Cond(e1, e2, e3) => let
152                (* a conditional expression gets turned into an if-then-else statememt *)                (* a conditional expression gets turned into an if-then-else statememt *)
153                  val result = newTemp Ty.T_Bool                  val result = newTemp Ty.T_Bool
# Line 186  Line 190 
190    
191      fun transform ast = let      fun transform ast = let
192            val simple = simplifyProgram ast            val simple = simplifyProgram ast
193            val _ = SimplePP.output (TextIO.stdOut, simple)       (* DEBUG *)            val _ = SimplePP.output (Log.logFile(), simple)       (* DEBUG *)
194            val simple = Lift.transform simple            val simple = Lift.transform simple
           val staticDefs = Eval.evalStatics simple  
195            in            in
196              simple              simple
197            end            end

Legend:
Removed from v.236  
changed lines
  Added in v.395

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