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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/low-to-tree/low-to-tree.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/low-to-tree/low-to-tree.sml

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

revision 4056, Mon Jun 27 15:26:20 2016 UTC revision 4065, Tue Jun 28 00:21:50 2016 UTC
# Line 257  Line 257 
257                  in                  in
258                    (Env.TREE(T.E_Op(rator, args)), stms)                    (Env.TREE(T.E_Op(rator, args)), stms)
259                  end                  end
260              fun bindTREE' rator = let
261                    val (args, stms) = singleArgs (env, args)
262                    in
263                      (Env.TREE(T.E_Op(rator, args)), stms)
264                    end
265            fun bindRHS (ty, rator) = let            fun bindRHS (ty, rator) = let
266                  val (args, stms) = simpleArgs (env, args)                  val (args, stms) = simpleArgs (env, args)
267                  in                  in
# Line 372  Line 377 
377                | Op.Select(ty, i) => bindTREE (TOp.Select(U.trType ty, i))                | Op.Select(ty, i) => bindTREE (TOp.Select(U.trType ty, i))
378                | Op.Subscript ty => bindTREE (TOp.Subscript(U.trType ty))                | Op.Subscript ty => bindTREE (TOp.Subscript(U.trType ty))
379                | Op.MkDynamic(ty, n) => bindTREE (TOp.MkDynamic(U.trType ty, n))                | Op.MkDynamic(ty, n) => bindTREE (TOp.MkDynamic(U.trType ty, n))
380                | Op.Append ty => bindTREE (TOp.Append(U.trType ty))                | Op.Append ty => bindTREE' (TOp.Append(U.trType ty))
381                | Op.Prepend ty => bindTREE (TOp.Prepend(U.trType ty))                | Op.Prepend ty => bindTREE' (TOp.Prepend(U.trType ty))
382                | Op.Concat ty => bindTREE (TOp.Concat(U.trType ty))                | Op.Concat ty => bindTREE (TOp.Concat(U.trType ty))
383                | Op.Range => bindTREE TOp.Range                | Op.Range => bindTREE TOp.Range
384                | Op.Length ty => bindTREE (TOp.Length(U.trType ty))                | Op.Length ty => bindTREE (TOp.Length(U.trType ty))
385                | Op.SphereQuery(ty1, ty2) => bindTREE (TOp.SphereQuery(U.trType ty1, U.trType ty2))                | Op.SphereQuery(ty1, ty2) => bindTREE' (TOp.SphereQuery(U.trType ty1, U.trType ty2))
386                | Op.Sqrt => bindTREE TOp.Sqrt                | Op.Sqrt => bindTREE TOp.Sqrt
387                | Op.Cos => bindTREE TOp.Cos                | Op.Cos => bindTREE TOp.Cos
388                | Op.ArcCos => bindTREE TOp.ArcCos                | Op.ArcCos => bindTREE TOp.ArcCos

Legend:
Removed from v.4056  
changed lines
  Added in v.4065

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