cuda.utils: foo <c-object> ... foo memory>struct == foo <struct>

2010-05-07 17:18:08 -07:00 · 2010-05-07 17:18:08 -07:00 · 097100cb12
parent a228e575a5
commit 097100cb12
1 changed files with 2 additions and 0 deletions
--- a/extra/cuda/utils/utils.factor
+++ b/extra/cuda/utils/utils.factor
@ -92,3 +92,5 @@ ERROR: throw-cuda-error n ;
 : function-shared-size ( n -- )
    [ cuda-function get ] dip
    cuFuncSetSharedSize cuda-error ;
+
+: distribute-jobs ( job-count per-job-shared -- grid-size block-size per-block-shared )