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

diff --git a/extra/cuda/utils/utils.factor b/extra/cuda/utils/utils.factor
index eef205992f2ded4733e0d4d2f31df8316c77ca86..a85a0b35e972d4e9725d2f438331f3b0b6912d81 100644 (file)
--- 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 )