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

SCM Repository

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

Diff of /branches/vis15/src/compiler/low-ir/low-types.sml

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

revision 3779, Wed Apr 27 13:51:03 2016 UTC revision 3802, Tue May 3 17:13:30 2016 UTC
# Line 26  Line 26 
26      fun iVecTy 1 = IntTy      fun iVecTy 1 = IntTy
27        | iVecTy n = SeqTy(IntTy, SOME n)        | iVecTy n = SeqTy(IntTy, SOME n)
28    
29        fun tensorShape (TensorTy dd) = dd
30          | tensorShape _ = raise Fail "expected TensorTy"
31    
32    (* smart constructor for tensor type that prunes out dimensions with size 1 *)    (* smart constructor for tensor type that prunes out dimensions with size 1 *)
33      fun tensorTy dd = TensorTy(List.mapPartial (fn 1 => NONE | d => SOME d) dd)      fun tensorTy dd = TensorTy(List.mapPartial (fn 1 => NONE | d => SOME d) dd)
34    

Legend:
Removed from v.3779  
changed lines
  Added in v.3802

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