From 097100cb124c9f6675bec2daf537abe181197bf7 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Fri, 7 May 2010 17:18:08 -0700
Subject: [PATCH] cuda.utils: foo <c-object> ... foo memory>struct == foo
 <struct>

---
 extra/cuda/utils/utils.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/extra/cuda/utils/utils.factor b/extra/cuda/utils/utils.factor
index eef205992f..a85a0b35e9 100644
--- 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 )