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

SCM Repository

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

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

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

revision 406, Fri Oct 15 12:12:10 2010 UTC revision 407, Fri Oct 15 12:27:09 2010 UTC
# Line 62  Line 62 
62                      then [(lhs, IL.OP(HighOps.Subscript(IL.Var.ty x), x::indices))]                      then [(lhs, IL.OP(HighOps.Subscript(IL.Var.ty x), x::indices))]
63                      else [(lhs, IL.OP(HighOps.Slice(IL.Var.ty lhs, mask), x::indices))]                      else [(lhs, IL.OP(HighOps.Slice(IL.Var.ty lhs, mask), x::indices))]
64                  end                  end
65              | S.E_Input(_, name, NONE) => [(lhs, IL.OP(HighOps.Input name, []))]              | S.E_Input(_, name, NONE) =>
66                    [(lhs, IL.OP(HighOps.Input(IL.Var.ty lhs, name), []))]
67              | S.E_Input(_, name, SOME dflt) =>              | S.E_Input(_, name, SOME dflt) =>
68                  [(lhs, IL.OP(HighOps.InputWithDefault name, [lookup env dflt]))]                  [(lhs, IL.OP(HighOps.InputWithDefault(IL.Var.ty lhs, name), [lookup env dflt]))]
69              | S.E_Field fld => [(lhs, IL.OP(HighOps.Field fld, []))]              | S.E_Field fld => [(lhs, IL.OP(HighOps.Field fld, []))]
70              | S.E_LoadImage info => [(lhs, IL.OP(HighOps.LoadImage info, []))]              | S.E_LoadImage info => [(lhs, IL.OP(HighOps.LoadImage info, []))]
71            (* end case *))            (* end case *))
Legend:
Removed from v.406  
changed lines
  Added in v.407
root@smlnj-gforge.cs.uchicago.edu
 ViewVC Help
Powered by ViewVC 1.0.0  
Powered By FusionForge