[ViewVC] Diff of: cvs/OpenCL/OpenCL.xs

Comparing OpenCL/OpenCL.xs (file contents):
Revision 1.34 by root, Fri Apr 20 19:36:00 2012 UTC vs.
Revision 1.35 by root, Sat Apr 21 17:47:23 2012 UTC

   clGetImageInfo (img, CL_IMAGE_ROW_PITCH, sizeof (res), &res, 0);
   return res;
 }
 static cl_event *
-event_list (SV **items, int count)
+event_list (SV **items, cl_uint *rcount)
 {
+  cl_uint count = *rcount;
   if (!count)
     return 0;
   cl_event *list = tmpbuf (sizeof (cl_event) * count);
+  int i = 0;
-  while (count--)
+  do
+    {
+      --count;
+      if (SvOK (items [count]))
-    list [count] = SvPTROBJ ("clEnqueue", "wait_events", items [count], "OpenCL::Event");
+        list [i++] = SvPTROBJ ("clEnqueue", "wait_events", items [count], "OpenCL::Event");
+    }
+  while (count);
+  *rcount = i;
-  return list;
+  return i ? list : 0;
 }
 #define EVENT_LIST(items,count) \
   cl_uint event_list_count = (count); \
-  cl_event *event_list_ptr = event_list (&ST (items), event_list_count)
+  cl_event *event_list_ptr = event_list (&ST (items), &event_list_count)
 #define INFO(class) \
 { \
 	size_t size; \
 	NEED_SUCCESS (Get ## class ## Info, (self, name, 0, 0, &size)); \

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines