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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/cxx-util/cxx-names.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cxx-util/cxx-names.sml

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

revision 3918, Mon May 30 06:31:35 2016 UTC revision 3919, Mon May 30 06:53:48 2016 UTC
# Line 37  Line 37 
37      val tensorStruct : int list -> string      val tensorStruct : int list -> string
38      val tensorTy : int list -> CLang.ty      val tensorTy : int list -> CLang.ty
39    
40      (* vector related names *)
41        val vecTyName : int -> string
42        val vecTy     : int -> CLang.ty
43        val vcons     : int -> string
44        val vload     : int -> string
45    
46    end = struct    end = struct
47    
48      structure CL = CLang      structure CL = CLang
# Line 82  Line 88 
88      fun tensorStruct shape = "tensor_" ^ String.concatWithMap "_" Int.toString shape      fun tensorStruct shape = "tensor_" ^ String.concatWithMap "_" Int.toString shape
89      fun tensorTy shape = CL.T_Named(tensorStruct shape)      fun tensorTy shape = CL.T_Named(tensorStruct shape)
90    
91        fun vecTyName w = "vec" ^ Int.toString w
92        fun vecTy w = CL.T_Named(vecTyName w)
93        fun vcons w = "vcons" ^ Int.toString w
94        fun vload w = "vload" ^ Int.toString w
95    
96    end    end

Legend:
Removed from v.3918  
changed lines
  Added in v.3919

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