ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/OpenCL/OpenCL.xs
(Generate patch)

Comparing OpenCL/OpenCL.xs (file contents):
Revision 1.45 by root, Tue Apr 24 12:19:01 2012 UTC vs.
Revision 1.46 by root, Tue Apr 24 12:23:56 2012 UTC

… …
1259enqueue_marker (OpenCL::Queue self, ...) 1259enqueue_marker (OpenCL::Queue self, ...)
1260 PPCODE: 1260 PPCODE:
1261 cl_event ev = 0; 1261 cl_event ev = 0;
1262 EVENT_LIST (1, items - 1); 1262 EVENT_LIST (1, items - 1);
1263#if PREFER_1_1 1263#if PREFER_1_1
1264#if CL_VERSION_1_2
1265 if (event_list_count)
1266 NEED_SUCCESS (EnqueueMarkerWithWaitList, (self, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
1267 else
1268 NEED_SUCCESS (EnqueueMarker, (self, GIMME_V != G_VOID ? &ev : 0));
1269#else
1264 if (event_list_count) 1270 if (event_list_count)
1265 croak ("OpenCL::Queue->enqueue_marker does not support a wait list in OpenCL 1.1 - upgrade to 1.2"); 1271 croak ("OpenCL::Queue->enqueue_marker does not support a wait list in OpenCL 1.1 - upgrade to 1.2");
1266 NEED_SUCCESS (EnqueueMarker, (self, GIMME_V != G_VOID ? &ev : 0)); 1272 NEED_SUCCESS (EnqueueMarker, (self, GIMME_V != G_VOID ? &ev : 0));
1273#endif
1267#else 1274#else
1268 NEED_SUCCESS (EnqueueMarkerWithWaitList, (self, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0)); 1275 NEED_SUCCESS (EnqueueMarkerWithWaitList, (self, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
1269#endif 1276#endif
1270 if (ev) 1277 if (ev)
1271 XPUSH_NEW_OBJ ("OpenCL::Event", ev); 1278 XPUSH_NEW_OBJ ("OpenCL::Event", ev);
… …
1274enqueue_barrier (OpenCL::Queue self, ...) 1281enqueue_barrier (OpenCL::Queue self, ...)
1275 PPCODE: 1282 PPCODE:
1276 cl_event ev = 0; 1283 cl_event ev = 0;
1277 EVENT_LIST (1, items - 1); 1284 EVENT_LIST (1, items - 1);
1278#if PREFER_1_1 1285#if PREFER_1_1
1286#if CL_VERSION_1_2
1287 if (event_list_count || GIMME_V != G_VOID)
1288 NEED_SUCCESS (EnqueueBarrierWithWaitList, (self, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
1289 else
1290 NEED_SUCCESS (EnqueueBarrier, (self));
1291#else
1279 if (event_list_count) 1292 if (event_list_count)
1280 croak ("OpenCL::Queue->enqueue_barrier does not support a wait list in OpenCL 1.1 - upgrade to 1.2"); 1293 croak ("OpenCL::Queue->enqueue_barrier does not support a wait list in OpenCL 1.1 - upgrade to 1.2");
1281 if (GIMME_V != G_VOID) 1294 if (GIMME_V != G_VOID)
1282 croak ("OpenCL::Queue->enqueue_barrier does not return an event object in OpenCL 1.1 - upgrade to 1.2"); 1295 croak ("OpenCL::Queue->enqueue_barrier does not return an event object in OpenCL 1.1 - upgrade to 1.2");
1283 NEED_SUCCESS (EnqueueBarrier, (self)); 1296 NEED_SUCCESS (EnqueueBarrier, (self));
1297#endif
1284#else 1298#else
1285 NEED_SUCCESS (EnqueueBarrierWithWaitList, (self, event_list_count, event_list_ptr, &ev)); 1299 NEED_SUCCESS (EnqueueBarrierWithWaitList, (self, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
1286#endif 1300#endif
1287 if (ev) 1301 if (ev)
1288 XPUSH_NEW_OBJ ("OpenCL::Event", ev); 1302 XPUSH_NEW_OBJ ("OpenCL::Event", ev);
1289 1303
1290void 1304void

Diff Legend

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