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 4394, Wed Aug 10 01:03:33 2016 UTC revision 4412, Sun Aug 14 19:54:48 2016 UTC
# Line 452  Line 452 
452                | Op.Select(ty, i) => bindTREE (TOp.Select(U.trType ty, i))                | Op.Select(ty, i) => bindTREE (TOp.Select(U.trType ty, i))
453                | Op.Subscript ty => bindTREE (TOp.Subscript(U.trType ty))                | Op.Subscript ty => bindTREE (TOp.Subscript(U.trType ty))
454                | Op.MkDynamic(ty, n) => bindTREE (TOp.MkDynamic(U.trType ty, n))                | Op.MkDynamic(ty, n) => bindTREE (TOp.MkDynamic(U.trType ty, n))
455                | Op.Append ty => bindTREE' (TOp.Append(U.trType ty))                | Op.Append ty => let
456                | Op.Prepend ty => bindTREE' (TOp.Prepend(U.trType ty))                    val (args as [_, item], stms) = singleArgs (env, args)
457                      in
458                        (Env.TREE(T.E_Op(TOp.Append(U.trType ty, TreeTypeOf.exp item), args)), stms)
459                      end
460                  | Op.Prepend ty => let
461                      val (args as [item, _], stms) = singleArgs (env, args)
462                      in
463                        (Env.TREE(T.E_Op(TOp.Prepend(U.trType ty, TreeTypeOf.exp item), args)), stms)
464                      end
465                | Op.Concat ty => bindTREE (TOp.Concat(U.trType ty))                | Op.Concat ty => bindTREE (TOp.Concat(U.trType ty))
466                | Op.Range => bindTREE TOp.Range                | Op.Range => bindTREE TOp.Range
467                | Op.Length ty => bindTREE (TOp.Length(U.trType ty))                | Op.Length ty => bindTREE (TOp.Length(U.trType ty))

Legend:
Removed from v.4394  
changed lines
  Added in v.4412

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