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

SCM Repository

[diderot] Diff of /branches/cuda/src/compiler/target-cuda/gen.sml
ViewVC logotype

Diff of /branches/cuda/src/compiler/target-cuda/gen.sml

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

revision 5653, Tue Jan 4 16:57:35 2022 UTC revision 5654, Mon Jan 31 21:17:48 2022 UTC
# Line 224  Line 224 
224              ("BOOLTY",                  SizeOf.c_bool),              ("BOOLTY",                  SizeOf.c_bool),
225              ("CUDA_INNER_BLK_SIZE",     "1024"),              ("CUDA_INNER_BLK_SIZE",     "1024"),
226              ("CUDA_NO_BLOCKS",          "1024"),              ("CUDA_NO_BLOCKS",          "1024"),
227                ("CUDA_WORK_BLK_SIZES",     "64"),
228              ("NEED_WORLD_COPY",         if reqGlobalCopy then "#define GLOBAL_COPY_REQUIRED" else ""),              ("NEED_WORLD_COPY",         if reqGlobalCopy then "#define GLOBAL_COPY_REQUIRED" else ""),
229              ("NEED_GLOBAL_COPY",        if reqWorldCopy then "#define WORLD_COPY_REQUIRED" else ""),              ("NEED_GLOBAL_COPY",        if reqWorldCopy then "#define WORLD_COPY_REQUIRED" else ""),
230            (* START_{PARAMS,ARGS,ARGS_IN_WRLD} used for            (* START_{PARAMS,ARGS,ARGS_IN_WRLD} used for
# Line 373  Line 374 
374            val _ = if (#cudaPermute spec andalso #cudaGlobalQueue spec)            val _ = if (#cudaPermute spec andalso #cudaGlobalQueue spec)
375                    then raise Fail "Cannot have permutation and GlobalQueueing enabled at the same time"                    then raise Fail "Cannot have permutation and GlobalQueueing enabled at the same time"
376                    else true                    else true
377               val _ = if (#cudaBatch spec andalso #cudaGlobalQueue spec)
378                      then raise Fail "Cannot have batching and GlobalQueueing enabled at the same time"
379                      else true
380            val cudaDefault = (not (#cudaPermute spec)) andalso (not (#cudaGlobalQueue spec))            val cudaDefault = (not (#cudaPermute spec)) andalso (not (#cudaGlobalQueue spec))
381            in            in
382              pp (#exec spec andalso #snapshot spec, "DIDEROT_EXEC_SNAPSHOT");              pp (#exec spec andalso #snapshot spec, "DIDEROT_EXEC_SNAPSHOT");

Legend:
Removed from v.5653  
changed lines
  Added in v.5654

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