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 1991, Sun Aug 12 15:25:39 2012 UTC revision 1992, Thu Sep 27 10:23:12 2012 UTC
# Line 41  Line 41 
41                          globals := x :: !globals;                          globals := x :: !globals;
42                          globalInit := S.S_Assign(x, e') :: !globalInit                          globalInit := S.S_Assign(x, e') :: !globalInit
43                        end                        end
44                      | AST.D_Input(x, desc, SOME(AST.E_LoadNrrd(tvs, nrrd, ty))) => let
45                        (* load the nrrd prox here *)
46                          val info = NrrdInfo.getInfo filename
47                          val stm = (case TypeUtil.pruneHead ty
48                                 of Ty.T_DynSequence _ => (* FIXME *) raise Fail "unimplemented"
49                                  | Ty.T_Image _ => (* FIXME *) raise Fail "unimplemented"
50                                  | _ => raise Fail "impossible"
51                                (* end case *))
52                          in
53                            globals := x :: !globals;
54                            globalInit := stm :: !globalInit
55                          end
56                    | AST.D_Input(x, desc, SOME e) => let                    | AST.D_Input(x, desc, SOME e) => let
57                        val (stms, x') = simplifyExpToVar (e, [])                        val (stms, x') = simplifyExpToVar (e, [])
58                        val e' = S.E_Input(Var.monoTypeOf x, Var.nameOf x, desc, SOME x')                        val e' = S.E_Input(Var.monoTypeOf x, Var.nameOf x, desc, SOME x')

Legend:
Removed from v.1991  
changed lines
  Added in v.1992

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