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/cl-names.sml
ViewVC logotype

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

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

revision 2724, Tue Sep 23 21:07:21 2014 UTC revision 2732, Thu Sep 25 19:24:48 2014 UTC
# Line 66  Line 66 
66      fun imageTy n = concat["Diderot_image", Int.toString n, "D_t"]      fun imageTy n = concat["Diderot_image", Int.toString n, "D_t"]
67      fun matTy (n, m) = concat["Diderot_Mat", Int.toString n, "x", Int.toString m, "_t"]      fun matTy (n, m) = concat["Diderot_Mat", Int.toString n, "x", Int.toString m, "_t"]
68    
   (* host-side names for OpenCL types *)  
     fun shadowIntTy () = "Shadow_int_t"  
     fun shadowRealTy () = "Shadow_real_t"  
     fun shadowVecTy n = F.format "Shadow_vec%d_t" [F.INT n]  
     fun shadowMatTy (m, n) = F.format "Shadow_Mat%dx%d_t" [F.INT m, F.INT n]  
     fun shadowImageTy d = concat["Shadow_image", Int.toString d, "D_t"]  
     fun shadowImageFunc d = concat["ShadowImage", Int.toString d, "D"]  
     val shadowGlobalsTy = "Shadow_globals_t"  
     val shadowGlaobalsName = "shadowGlobals"  
     fun convertToShadowVec n = "ShadowVec" ^ Int.toString n  
     fun convertToShadowMat (m,n) = F.format "ShadowMat%dx%d" [F.INT m, F.INT n]  
   
69    (* names of generated types, functions, and globals *)    (* names of generated types, functions, and globals *)
70      val initGlobals = "Diderot_InitGlobals"     (* function for initializing program globals *)      val initGlobals = "Diderot_InitGlobals"     (* function for initializing program globals *)
71      val initGlobalsHelper = "Diderot_InitGlobalsHelper" (* function for initializing program globals *)      val initGlobalsHelper = "Diderot_InitGlobalsHelper" (* function for initializing program globals *)
# Line 90  Line 78 
78      val strandInitSetup = "Diderot_Strand_Init"      val strandInitSetup = "Diderot_Strand_Init"
79      val strandBlockCopyName = "StrandBlock_Copy"      val strandBlockCopyName = "StrandBlock_Copy"
80      fun strandTy strand = concat["Strand_", strand, "_t"]      fun strandTy strand = concat["Strand_", strand, "_t"]
     fun strandShadowTy strand = concat["Shadow_", strand, "_t"]  
81      fun strandDesc strand = concat["Strand_", strand]      fun strandDesc strand = concat["Strand_", strand]
82      val numStrands = "Diderot_NumStrands"      val numStrands = "Diderot_NumStrands"
83      val strands = "Diderot_Strands"      val strands = "Diderot_Strands"
# Line 99  Line 86 
86      fun strandStabilize strand = strand ^ StrandUtil.nameToString StrandUtil.Stabilize      fun strandStabilize strand = strand ^ StrandUtil.nameToString StrandUtil.Stabilize
87      val strandCopy = "Diderot_StateCopy"      val strandCopy = "Diderot_StateCopy"
88      fun strandPrintName strand = strand ^ "Print"      fun strandPrintName strand = strand ^ "Print"
     fun strandConvertName strand = strand ^ "ConvertToShadow"  
89    
90      val clLoaderFN = "Diderot_LoadKernel"      val clLoaderFN = "Diderot_LoadKernel"
91      val getGlobalThreadId ="get_global_id"      val getGlobalThreadId ="get_global_id"
# Line 112  Line 98 
98      val globalsVarNameCL = "cl_diderotGlobals"      val globalsVarNameCL = "cl_diderotGlobals"
99      val globalsSetupName = "Diderot_LoadGlobals"      val globalsSetupName = "Diderot_LoadGlobals"
100    
   
101    (* Scheduler runtime names *)    (* Scheduler runtime names *)
102      val globalPoolName = "globalPoolNextStrand"      val globalPoolName = "globalPoolNextStrand"
103      val schedTy = "SchedState_t"      val schedTy = "SchedState_t"

Legend:
Removed from v.2724  
changed lines
  Added in v.2732

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