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 3958, Sun Jun 12 19:51:51 2016 UTC revision 3965, Tue Jun 14 02:19:05 2016 UTC
# Line 666  Line 666 
666                        end                        end
667                    | IR.MASSIGN{stm=([], Op.Print tys, xs), succ, ...} => let                    | IR.MASSIGN{stm=([], Op.Print tys, xs), succ, ...} => let
668                        val (es, stms') = singleArgs (env, xs)                        val (es, stms') = singleArgs (env, xs)
669                        val stm = T.S_Print(List.map U.trType tys, es)                        fun trType (Ty.TensorTy(shp as _::_)) = TTy.TensorRefTy shp
670                            | trType ty = U.trType ty
671                          val stm = T.S_Print(List.map trType tys, es)
672                        in                        in
673                          doNode (!succ, ifStk, stm :: List.revAppend (stms', stms))                          doNode (!succ, ifStk, stm :: List.revAppend (stms', stms))
674                        end                        end

Legend:
Removed from v.3958  
changed lines
  Added in v.3965

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