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/type-to-cxx.sml
ViewVC logotype

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

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

revision 4431, Thu Aug 18 23:21:27 2016 UTC revision 4432, Fri Aug 19 15:10:12 2016 UTC
# Line 21  Line 21 
21    
22      val dynseqTy : CodeGenEnv.t * TreeTypes.t -> CLang.ty      val dynseqTy : CodeGenEnv.t * TreeTypes.t -> CLang.ty
23    
24      val imageTy : CodeGenEnv.t * ImageInfo.info -> CLang.ty      val imageTy : CodeGenEnv.t * ImageInfo.t -> CLang.ty
25    
26    end = struct    end = struct
27    
# Line 35  Line 35 
35    (* translate to C++ image type *)    (* translate to C++ image type *)
36      fun trImageTy mk (env, info) = let      fun trImageTy mk (env, info) = let
37            val realTy = Env.realTy env            val realTy = Env.realTy env
38            val sampleTy = (case ImageInfo.sampleTy info            val sampleTy = CL.T_Num(ImageInfo.sampleTy info)
                  of SOME rty => CL.T_Num rty  
                   | NONE => realTy  
                 (* end case *))  
39            in            in
40              mk (              mk (
41                concat["image", Int.toString(ImageInfo.dim info), "d"],                concat["image", Int.toString(ImageInfo.dim info), "d"],

Legend:
Removed from v.4431  
changed lines
  Added in v.4432

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