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

SCM Repository

[diderot] Diff of /branches/vis12-cl/src/compiler/cl-target/runtime-names.sml
ViewVC logotype

Diff of /branches/vis12-cl/src/compiler/cl-target/runtime-names.sml

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

revision 2742, Sat Sep 27 23:33:58 2014 UTC revision 2743, Sun Sep 28 02:54:54 2014 UTC
# Line 52  Line 52 
52                gGPURealTy := CLang.float;                gGPURealTy := CLang.float;
53                gRealStem := "float"))                gRealStem := "float"))
54    
55      (* type names *)
56      fun vecTy n = concat["cl_", !gRealStem, Int.toString n]      fun vecTy n = concat["cl_", !gRealStem, Int.toString n]
57      fun ivecTy n = concat["cl_", !gIntStem, Int.toString n]      fun ivecTy n = concat["cl_", !gIntStem, Int.toString n]
58      fun imageTy n = concat["Diderot_image", Int.toString n, "D_t"]      fun imageTy n = concat["Diderot_image", Int.toString n, "D_t"]
# Line 61  Line 62 
62    
63      val worldTy = CNames.worldTy      val worldTy = CNames.worldTy
64    
     val freeGlobals = CNames.freeGlobals  
     val definedInpTy = CNames.definedInpTy  
   
65    (* host-side names for OpenCL types *)    (* host-side names for OpenCL types *)
66      fun shadowIntTy () = "Shadow_int_t"      fun shadowIntTy () = "Shadow_int_t"
67      fun shadowRealTy () = "Shadow_real_t"      fun shadowRealTy () = "Shadow_real_t"
# Line 72  Line 70 
70      fun convertToShadowVec n = "ShadowVec" ^ Int.toString n      fun convertToShadowVec n = "ShadowVec" ^ Int.toString n
71      fun convertToShadowMat (m,n) = F.format "ShadowMat%dx%d" [F.INT m, F.INT n]      fun convertToShadowMat (m,n) = F.format "ShadowMat%dx%d" [F.INT m, F.INT n]
72    
73      (* generate names for input and output variables *)
74        val inputDesc = CN.inputDesc
75        val inputGet = CN.inputGet
76        val inputSet = CN.inputSet
77        val inputSetByName = CN.inputSetByName
78        val outputGet = CN.outputGet
79        val snapshotGet = CN.snapshotGet
80    
81        val freeGlobals = CNames.freeGlobals
82        val definedInpTy = CNames.definedInpTy
83    
84    (* functions for defining program inputs *)    (* functions for defining program inputs *)
85      fun input ty = (case ty      fun input ty = (case ty
86             of Ty.StringTy => "Diderot_OptAddString"             of Ty.StringTy => "Diderot_OptAddString"

Legend:
Removed from v.2742  
changed lines
  Added in v.2743

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