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

Comparing OpenCL/OpenCL.xs (file contents):
Revision 1.52 by root, Tue Apr 24 23:53:12 2012 UTC vs.
Revision 1.57 by root, Sat Apr 28 13:31:40 2012 UTC

…		…
270	/* they can be upgraded at runtime to the array form */	270	/* they can be upgraded at runtime to the array form */
271	static void *	271	static void *
272	SvCLOBJ (const char func, const char svname, SV sv, const char pkg)	272	SvCLOBJ (const char func, const char svname, SV sv, const char pkg)
273	{	273	{
274	if (SvROK (sv) && sv_derived_from (sv, pkg))	274	if (SvROK (sv) && sv_derived_from (sv, pkg))
275	{
276	SV *rv = SvRV (sv);
277
278	#if CLOBJ_PUSH
279	if (SvTYPE (rv) == SVt_PVAV)
280	rv = AvARRAY (rv)[0];
281	#endif
282
283	return (void *)SvIV (rv);	275	return (void *)SvIV (SvRV (sv));
284	}
285		276
286	croak ("%s: %s is not of type %s", func, svname, pkg);	277	croak ("%s: %s is not of type %s", func, svname, pkg);
287	}	278	}
288
289	#if CLOBJ_PUSH
290
291	static void
292	CLOBJ_push (SV self, SV data)
293	{
294	SV *rv = SvRV (self);
295
296	if (SvTYPE (rv) != SVt_PVAV)
297	{
298	AV *av = newAV ();
299	av_push (av, rv);
300	rv = (SV *)av;
301	SvRV_set (self, rv);
302	}
303
304	av_push ((AV *)rv, data);
305	}
306
307	static SV *
308	sv_struct (STRLEN size)
309	{
310	SV *sv = newSV (size);
311	SvPOK_only (sv);
312	return sv;
313	}
314
315	static void *
316	CLOBJ_push_struct (SV *self, STRLEN size)
317	{
318	SV *sv = sv_struct (size);
319	CLOBJ_push (self, sv);
320	return SvPVX (sv);
321	}
322
323	#endif
324		279
325	/*****************************************************************************/	280	/*****************************************************************************/
326	/* callback stuff */	281	/* callback stuff */
327		282
328	/* default context callback, log to stderr */	283	/* default context callback, log to stderr */
…		…
386		341
387	X_UNLOCK (eq_lock);	342	X_UNLOCK (eq_lock);
388		343
389	return res;	344	return res;
390	}	345	}
391
392	#if 0
393	static void
394	mem_free (pTHX_ void *p)
395	{
396	free (p);
397	}
398	//SAVEDESTRUCTOR_X (mem_free, item);
399	#endif
400		346
401	static void	347	static void
402	eq_poll (void)	348	eq_poll (void)
403	{	349	{
404	eq_item *item;	350	eq_item *item;
…		…
655	RETVAL = res;	601	RETVAL = res;
656	OUTPUT:	602	OUTPUT:
657	RETVAL	603	RETVAL
658		604
659	const char *	605	const char *
660	err2str (cl_int err)	606	err2str (cl_int err = res)
661		607
662	const char *	608	const char *
663	enum2str (cl_uint value)	609	enum2str (cl_uint value)
664		610
665	void	611	void
…		…
1050	XPUSH_CLOBJ ("OpenCL::BufferObj", mem);	996	XPUSH_CLOBJ ("OpenCL::BufferObj", mem);
1051		997
1052	#if CL_VERSION_1_2	998	#if CL_VERSION_1_2
1053		999
1054	void	1000	void
1055	image (OpenCL::Context self, cl_mem_flags flags, cl_channel_order channel_order, cl_channel_type channel_type, cl_mem_object_type type, size_t width, size_t height, size_t depth, size_t array_size = 0, size_t row_pitch = 0, size_t slice_pitch = 0, cl_uint num_mip_level = 0, cl_uint num_samples = 0, SV *data = &PL_sv_undef)	1001	image (OpenCL::Context self, cl_mem_flags flags, cl_channel_order channel_order, cl_channel_type channel_type, cl_mem_object_type type, size_t width, size_t height, size_t depth = 0, size_t array_size = 0, size_t row_pitch = 0, size_t slice_pitch = 0, cl_uint num_mip_level = 0, cl_uint num_samples = 0, SV *data = &PL_sv_undef)
1056	PPCODE:	1002	PPCODE:
1057	STRLEN len;	1003	STRLEN len;
1058	char *ptr = SvOK (data) ? SvPVbyte (data, len) : 0;	1004	char *ptr = SvOK (data) ? SvPVbyte (data, len) : 0;
1059	const cl_image_format format = { channel_order, channel_type };	1005	const cl_image_format format = { channel_order, channel_type };
1060	const cl_image_desc desc = {	1006	const cl_image_desc desc = {
…		…
1253	DESTROY (OpenCL::Queue self)	1199	DESTROY (OpenCL::Queue self)
1254	CODE:	1200	CODE:
1255	clReleaseCommandQueue (self);	1201	clReleaseCommandQueue (self);
1256		1202
1257	void	1203	void
1258	enqueue_read_buffer (OpenCL::Queue self, OpenCL::Buffer mem, cl_bool blocking, size_t offset, size_t len, SV *data, ...)	1204	read_buffer (OpenCL::Queue self, OpenCL::Buffer mem, cl_bool blocking, size_t offset, size_t len, SV *data, ...)
		1205	ALIAS:
		1206	enqueue_read_buffer = 0
1259	PPCODE:	1207	PPCODE:
1260	cl_event ev = 0;	1208	cl_event ev = 0;
1261	EVENT_LIST (6, items - 6);	1209	EVENT_LIST (6, items - 6);
1262		1210
1263	SvUPGRADE (data, SVt_PV);	1211	SvUPGRADE (data, SVt_PV);
…		…
1268		1216
1269	if (ev)	1217	if (ev)
1270	XPUSH_CLOBJ ("OpenCL::Event", ev);	1218	XPUSH_CLOBJ ("OpenCL::Event", ev);
1271		1219
1272	void	1220	void
1273	enqueue_write_buffer (OpenCL::Queue self, OpenCL::Buffer mem, cl_bool blocking, size_t offset, SV *data, ...)	1221	write_buffer (OpenCL::Queue self, OpenCL::Buffer mem, cl_bool blocking, size_t offset, SV *data, ...)
		1222	ALIAS:
		1223	enqueue_write_buffer = 0
1274	PPCODE:	1224	PPCODE:
1275	cl_event ev = 0;	1225	cl_event ev = 0;
1276	STRLEN len;	1226	STRLEN len;
1277	char *ptr = SvPVbyte (data, len);	1227	char *ptr = SvPVbyte (data, len);
1278	EVENT_LIST (5, items - 5);	1228	EVENT_LIST (5, items - 5);
…		…
1283	XPUSH_CLOBJ ("OpenCL::Event", ev);	1233	XPUSH_CLOBJ ("OpenCL::Event", ev);
1284		1234
1285	#if CL_VERSION_1_2	1235	#if CL_VERSION_1_2
1286		1236
1287	void	1237	void
1288	enqueue_fill_buffer (OpenCL::Queue self, OpenCL::Buffer mem, SV *data, size_t offset, size_t size, ...)	1238	fill_buffer (OpenCL::Queue self, OpenCL::Buffer mem, SV *data, size_t offset, size_t size, ...)
		1239	ALIAS:
		1240	enqueue_fill_buffer = 0
1289	PPCODE:	1241	PPCODE:
1290	cl_event ev = 0;	1242	cl_event ev = 0;
1291	STRLEN len;	1243	STRLEN len;
1292	char *ptr = SvPVbyte (data, len);	1244	char *ptr = SvPVbyte (data, len);
1293	EVENT_LIST (5, items - 5);	1245	EVENT_LIST (5, items - 5);
…		…
1296		1248
1297	if (ev)	1249	if (ev)
1298	XPUSH_CLOBJ ("OpenCL::Event", ev);	1250	XPUSH_CLOBJ ("OpenCL::Event", ev);
1299		1251
1300	void	1252	void
1301	enqueue_fill_image (OpenCL::Queue self, OpenCL::Image img, NV r, NV g, NV b, NV a, size_t x, size_t y, size_t z, size_t width, size_t height, size_t depth, ...)	1253	fill_image (OpenCL::Queue self, OpenCL::Image img, NV r, NV g, NV b, NV a, size_t x, size_t y, size_t z, size_t width, size_t height, size_t depth, ...)
		1254	ALIAS:
		1255	enqueue_fill_image = 0
1302	PPCODE:	1256	PPCODE:
1303	cl_event ev = 0;	1257	cl_event ev = 0;
1304	STRLEN len;	1258	STRLEN len;
1305	const size_t origin [3] = { x, y, z };	1259	const size_t origin [3] = { x, y, z };
1306	const size_t region [3] = { width, height, depth };	1260	const size_t region [3] = { width, height, depth };
…		…
1315	NEED_SUCCESS (GetImageInfo, (img, CL_IMAGE_FORMAT, sizeof (format), &format, 0));	1269	NEED_SUCCESS (GetImageInfo, (img, CL_IMAGE_FORMAT, sizeof (format), &format, 0));
1316	assert (sizeof (fus) == CL_FLOAT + 1 - CL_SNORM_INT8);	1270	assert (sizeof (fus) == CL_FLOAT + 1 - CL_SNORM_INT8);
1317	if (format.image_channel_data_type < CL_SNORM_INT8 \|\| CL_FLOAT < format.image_channel_data_type)	1271	if (format.image_channel_data_type < CL_SNORM_INT8 \|\| CL_FLOAT < format.image_channel_data_type)
1318	croak ("enqueue_fill_image: image has unsupported channel type, only opencl 1.2 channel types supported.");	1272	croak ("enqueue_fill_image: image has unsupported channel type, only opencl 1.2 channel types supported.");
1319		1273
1320	NEED_SUCCESS (EnqueueFillImage, (self, img, c_fus [fus [format.image_channel_data_type]],	1274	NEED_SUCCESS (EnqueueFillImage, (self, img, c_fus [fus [format.image_channel_data_type - CL_SNORM_INT8]],
1321	origin, region, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));	1275	origin, region, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
1322		1276
1323	if (ev)	1277	if (ev)
1324	XPUSH_CLOBJ ("OpenCL::Event", ev);	1278	XPUSH_CLOBJ ("OpenCL::Event", ev);
1325		1279
1326	#endif	1280	#endif
1327		1281
1328	void	1282	void
1329	enqueue_copy_buffer (OpenCL::Queue self, OpenCL::Buffer src, OpenCL::Buffer dst, size_t src_offset, size_t dst_offset, size_t len, ...)	1283	copy_buffer (OpenCL::Queue self, OpenCL::Buffer src, OpenCL::Buffer dst, size_t src_offset, size_t dst_offset, size_t len, ...)
		1284	ALIAS:
		1285	enqueue_copy_buffer = 0
1330	PPCODE:	1286	PPCODE:
1331	cl_event ev = 0;	1287	cl_event ev = 0;
1332	EVENT_LIST (6, items - 6);	1288	EVENT_LIST (6, items - 6);
1333		1289
1334	NEED_SUCCESS (EnqueueCopyBuffer, (self, src, dst, src_offset, dst_offset, len, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));	1290	NEED_SUCCESS (EnqueueCopyBuffer, (self, src, dst, src_offset, dst_offset, len, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
1335		1291
1336	if (ev)	1292	if (ev)
1337	XPUSH_CLOBJ ("OpenCL::Event", ev);	1293	XPUSH_CLOBJ ("OpenCL::Event", ev);
1338		1294
1339	void	1295	void
1340	enqueue_read_buffer_rect (OpenCL::Queue self, OpenCL::Memory buf, cl_bool blocking, size_t buf_x, size_t buf_y, size_t buf_z, size_t host_x, size_t host_y, size_t host_z, size_t width, size_t height, size_t depth, size_t buf_row_pitch, size_t buf_slice_pitch, size_t host_row_pitch, size_t host_slice_pitch, SV *data, ...)	1296	read_buffer_rect (OpenCL::Queue self, OpenCL::Memory buf, cl_bool blocking, size_t buf_x, size_t buf_y, size_t buf_z, size_t host_x, size_t host_y, size_t host_z, size_t width, size_t height, size_t depth, size_t buf_row_pitch, size_t buf_slice_pitch, size_t host_row_pitch, size_t host_slice_pitch, SV *data, ...)
		1297	ALIAS:
		1298	enqueue_read_buffer_rect = 0
1341	PPCODE:	1299	PPCODE:
1342	cl_event ev = 0;	1300	cl_event ev = 0;
1343	const size_t buf_origin [3] = { buf_x , buf_y , buf_z };	1301	const size_t buf_origin [3] = { buf_x , buf_y , buf_z };
1344	const size_t host_origin[3] = { host_x, host_y, host_z };	1302	const size_t host_origin[3] = { host_x, host_y, host_z };
1345	const size_t region[3] = { width, height, depth };	1303	const size_t region[3] = { width, height, depth };
…		…
1367		1325
1368	if (ev)	1326	if (ev)
1369	XPUSH_CLOBJ ("OpenCL::Event", ev);	1327	XPUSH_CLOBJ ("OpenCL::Event", ev);
1370		1328
1371	void	1329	void
1372	enqueue_write_buffer_rect (OpenCL::Queue self, OpenCL::Memory buf, cl_bool blocking, size_t buf_x, size_t buf_y, size_t buf_z, size_t host_x, size_t host_y, size_t host_z, size_t width, size_t height, size_t depth, size_t buf_row_pitch, size_t buf_slice_pitch, size_t host_row_pitch, size_t host_slice_pitch, SV *data, ...)	1330	write_buffer_rect (OpenCL::Queue self, OpenCL::Memory buf, cl_bool blocking, size_t buf_x, size_t buf_y, size_t buf_z, size_t host_x, size_t host_y, size_t host_z, size_t width, size_t height, size_t depth, size_t buf_row_pitch, size_t buf_slice_pitch, size_t host_row_pitch, size_t host_slice_pitch, SV *data, ...)
		1331	ALIAS:
		1332	enqueue_write_buffer_rect = 0
1373	PPCODE:	1333	PPCODE:
1374	cl_event ev = 0;	1334	cl_event ev = 0;
1375	const size_t buf_origin [3] = { buf_x , buf_y , buf_z };	1335	const size_t buf_origin [3] = { buf_x , buf_y , buf_z };
1376	const size_t host_origin[3] = { host_x, host_y, host_z };	1336	const size_t host_origin[3] = { host_x, host_y, host_z };
1377	const size_t region[3] = { width, height, depth };	1337	const size_t region[3] = { width, height, depth };
…		…
1400		1360
1401	if (ev)	1361	if (ev)
1402	XPUSH_CLOBJ ("OpenCL::Event", ev);	1362	XPUSH_CLOBJ ("OpenCL::Event", ev);
1403		1363
1404	void	1364	void
1405	enqueue_copy_buffer_rect (OpenCL::Queue self, OpenCL::Buffer src, OpenCL::Buffer dst, size_t src_x, size_t src_y, size_t src_z, size_t dst_x, size_t dst_y, size_t dst_z, size_t width, size_t height, size_t depth, size_t src_row_pitch, size_t src_slice_pitch, size_t dst_row_pitch, size_t dst_slice_pitch, ...)	1365	copy_buffer_rect (OpenCL::Queue self, OpenCL::Buffer src, OpenCL::Buffer dst, size_t src_x, size_t src_y, size_t src_z, size_t dst_x, size_t dst_y, size_t dst_z, size_t width, size_t height, size_t depth, size_t src_row_pitch, size_t src_slice_pitch, size_t dst_row_pitch, size_t dst_slice_pitch, ...)
		1366	ALIAS:
		1367	enqueue_copy_buffer_rect = 0
1406	PPCODE:	1368	PPCODE:
1407	cl_event ev = 0;	1369	cl_event ev = 0;
1408	const size_t src_origin[3] = { src_x, src_y, src_z };	1370	const size_t src_origin[3] = { src_x, src_y, src_z };
1409	const size_t dst_origin[3] = { dst_x, dst_y, dst_z };	1371	const size_t dst_origin[3] = { dst_x, dst_y, dst_z };
1410	const size_t region[3] = { width, height, depth };	1372	const size_t region[3] = { width, height, depth };
…		…
1414		1376
1415	if (ev)	1377	if (ev)
1416	XPUSH_CLOBJ ("OpenCL::Event", ev);	1378	XPUSH_CLOBJ ("OpenCL::Event", ev);
1417		1379
1418	void	1380	void
1419	enqueue_read_image (OpenCL::Queue self, OpenCL::Image src, cl_bool blocking, size_t src_x, size_t src_y, size_t src_z, size_t width, size_t height, size_t depth, size_t row_pitch, size_t slice_pitch, SV *data, ...)	1381	read_image (OpenCL::Queue self, OpenCL::Image src, cl_bool blocking, size_t src_x, size_t src_y, size_t src_z, size_t width, size_t height, size_t depth, size_t row_pitch, size_t slice_pitch, SV *data, ...)
		1382	ALIAS:
		1383	enqueue_read_image = 0
1420	PPCODE:	1384	PPCODE:
1421	cl_event ev = 0;	1385	cl_event ev = 0;
1422	const size_t src_origin[3] = { src_x, src_y, src_z };	1386	const size_t src_origin[3] = { src_x, src_y, src_z };
1423	const size_t region[3] = { width, height, depth };	1387	const size_t region[3] = { width, height, depth };
1424	EVENT_LIST (12, items - 12);	1388	EVENT_LIST (12, items - 12);
…		…
1439		1403
1440	if (ev)	1404	if (ev)
1441	XPUSH_CLOBJ ("OpenCL::Event", ev);	1405	XPUSH_CLOBJ ("OpenCL::Event", ev);
1442		1406
1443	void	1407	void
1444	enqueue_write_image (OpenCL::Queue self, OpenCL::Image dst, cl_bool blocking, size_t dst_x, size_t dst_y, size_t dst_z, size_t width, size_t height, size_t depth, size_t row_pitch, size_t slice_pitch, SV *data, ...)	1408	write_image (OpenCL::Queue self, OpenCL::Image dst, cl_bool blocking, size_t dst_x, size_t dst_y, size_t dst_z, size_t width, size_t height, size_t depth, size_t row_pitch, size_t slice_pitch, SV *data, ...)
		1409	ALIAS:
		1410	enqueue_write_image = 0
1445	PPCODE:	1411	PPCODE:
1446	cl_event ev = 0;	1412	cl_event ev = 0;
1447	const size_t dst_origin[3] = { dst_x, dst_y, dst_z };	1413	const size_t dst_origin[3] = { dst_x, dst_y, dst_z };
1448	const size_t region[3] = { width, height, depth };	1414	const size_t region[3] = { width, height, depth };
1449	STRLEN len;	1415	STRLEN len;
…		…
1465		1431
1466	if (ev)	1432	if (ev)
1467	XPUSH_CLOBJ ("OpenCL::Event", ev);	1433	XPUSH_CLOBJ ("OpenCL::Event", ev);
1468		1434
1469	void	1435	void
1470	enqueue_copy_image (OpenCL::Queue self, OpenCL::Image src, OpenCL::Image dst, size_t src_x, size_t src_y, size_t src_z, size_t dst_x, size_t dst_y, size_t dst_z, size_t width, size_t height, size_t depth, ...)	1436	copy_image (OpenCL::Queue self, OpenCL::Image src, OpenCL::Image dst, size_t src_x, size_t src_y, size_t src_z, size_t dst_x, size_t dst_y, size_t dst_z, size_t width, size_t height, size_t depth, ...)
		1437	ALIAS:
		1438	enqueue_copy_image = 0
1471	PPCODE:	1439	PPCODE:
1472	cl_event ev = 0;	1440	cl_event ev = 0;
1473	const size_t src_origin[3] = { src_x, src_y, src_z };	1441	const size_t src_origin[3] = { src_x, src_y, src_z };
1474	const size_t dst_origin[3] = { dst_x, dst_y, dst_z };	1442	const size_t dst_origin[3] = { dst_x, dst_y, dst_z };
1475	const size_t region[3] = { width, height, depth };	1443	const size_t region[3] = { width, height, depth };
…		…
1479		1447
1480	if (ev)	1448	if (ev)
1481	XPUSH_CLOBJ ("OpenCL::Event", ev);	1449	XPUSH_CLOBJ ("OpenCL::Event", ev);
1482		1450
1483	void	1451	void
1484	enqueue_copy_image_to_buffer (OpenCL::Queue self, OpenCL::Image src, OpenCL::Buffer dst, size_t src_x, size_t src_y, size_t src_z, size_t width, size_t height, size_t depth, size_t dst_offset, ...)	1452	copy_image_to_buffer (OpenCL::Queue self, OpenCL::Image src, OpenCL::Buffer dst, size_t src_x, size_t src_y, size_t src_z, size_t width, size_t height, size_t depth, size_t dst_offset, ...)
		1453	ALIAS:
		1454	enqueue_copy_image_to_buffer = 0
1485	PPCODE:	1455	PPCODE:
1486	cl_event ev = 0;	1456	cl_event ev = 0;
1487	const size_t src_origin[3] = { src_x, src_y, src_z };	1457	const size_t src_origin[3] = { src_x, src_y, src_z };
1488	const size_t region[3] = { width, height, depth };	1458	const size_t region[3] = { width, height, depth };
1489	EVENT_LIST (10, items - 10);	1459	EVENT_LIST (10, items - 10);
…		…
1492		1462
1493	if (ev)	1463	if (ev)
1494	XPUSH_CLOBJ ("OpenCL::Event", ev);	1464	XPUSH_CLOBJ ("OpenCL::Event", ev);
1495		1465
1496	void	1466	void
1497	enqueue_copy_buffer_to_image (OpenCL::Queue self, OpenCL::Buffer src, OpenCL::Image dst, size_t src_offset, size_t dst_x, size_t dst_y, size_t dst_z, size_t width, size_t height, size_t depth, ...)	1467	copy_buffer_to_image (OpenCL::Queue self, OpenCL::Buffer src, OpenCL::Image dst, size_t src_offset, size_t dst_x, size_t dst_y, size_t dst_z, size_t width, size_t height, size_t depth, ...)
		1468	ALIAS:
		1469	enqueue_copy_buffer_to_image = 0
1498	PPCODE:	1470	PPCODE:
1499	cl_event ev = 0;	1471	cl_event ev = 0;
1500	const size_t dst_origin[3] = { dst_x, dst_y, dst_z };	1472	const size_t dst_origin[3] = { dst_x, dst_y, dst_z };
1501	const size_t region[3] = { width, height, depth };	1473	const size_t region[3] = { width, height, depth };
1502	EVENT_LIST (10, items - 10);	1474	EVENT_LIST (10, items - 10);
…		…
1505		1477
1506	if (ev)	1478	if (ev)
1507	XPUSH_CLOBJ ("OpenCL::Event", ev);	1479	XPUSH_CLOBJ ("OpenCL::Event", ev);
1508		1480
1509	void	1481	void
1510	enqueue_task (OpenCL::Queue self, OpenCL::Kernel kernel, ...)	1482	task (OpenCL::Queue self, OpenCL::Kernel kernel, ...)
		1483	ALIAS:
		1484	enqueue_task = 0
1511	PPCODE:	1485	PPCODE:
1512	cl_event ev = 0;	1486	cl_event ev = 0;
1513	EVENT_LIST (2, items - 2);	1487	EVENT_LIST (2, items - 2);
1514		1488
1515	NEED_SUCCESS (EnqueueTask, (self, kernel, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));	1489	NEED_SUCCESS (EnqueueTask, (self, kernel, event_list_count, event_list_ptr, GIMME_V != G_VOID ? &ev : 0));
1516		1490
1517	if (ev)	1491	if (ev)
1518	XPUSH_CLOBJ ("OpenCL::Event", ev);	1492	XPUSH_CLOBJ ("OpenCL::Event", ev);
1519		1493
1520	void	1494	void
1521	enqueue_nd_range_kernel (OpenCL::Queue self, OpenCL::Kernel kernel, SV global_work_offset, SV global_work_size, SV *local_work_size = &PL_sv_undef, ...)	1495	nd_range_kernel (OpenCL::Queue self, OpenCL::Kernel kernel, SV global_work_offset, SV global_work_size, SV *local_work_size = &PL_sv_undef, ...)
		1496	ALIAS:
		1497	enqueue_nd_range_kernel = 0
1522	PPCODE:	1498	PPCODE:
1523	cl_event ev = 0;	1499	cl_event ev = 0;
1524	size_t gwo = 0, gws, *lws = 0;	1500	size_t gwo = 0, gws, *lws = 0;
1525	int gws_len;	1501	int gws_len;
1526	size_t *lists;	1502	size_t *lists;
…		…
1570	XPUSH_CLOBJ ("OpenCL::Event", ev);	1546	XPUSH_CLOBJ ("OpenCL::Event", ev);
1571		1547
1572	#if cl_apple_gl_sharing \|\| cl_khr_gl_sharing	1548	#if cl_apple_gl_sharing \|\| cl_khr_gl_sharing
1573		1549
1574	void	1550	void
1575	enqueue_acquire_gl_objects (OpenCL::Queue self, SV *objects, ...)	1551	acquire_gl_objects (OpenCL::Queue self, SV *objects, ...)
		1552	ALIAS:
		1553	enqueue_acquire_gl_objects = 0
1576	ALIAS:	1554	ALIAS:
1577	enqueue_release_gl_objects = 1	1555	enqueue_release_gl_objects = 1
1578	PPCODE:	1556	PPCODE:
1579	if (!SvROK (objects) \|\| SvTYPE (SvRV (objects)) != SVt_PVAV)	1557	if (!SvROK (objects) \|\| SvTYPE (SvRV (objects)) != SVt_PVAV)
1580	croak ("OpenCL::Queue::enqueue_acquire/release_gl_objects argument 'objects' must be an arrayref with memory objects, in call");	1558	croak ("OpenCL::Queue::enqueue_acquire/release_gl_objects argument 'objects' must be an arrayref with memory objects, in call");
…		…
1598	XPUSH_CLOBJ ("OpenCL::Event", ev);	1576	XPUSH_CLOBJ ("OpenCL::Event", ev);
1599		1577
1600	#endif	1578	#endif
1601		1579
1602	void	1580	void
1603	enqueue_wait_for_events (OpenCL::Queue self, ...)	1581	wait_for_events (OpenCL::Queue self, ...)
		1582	ALIAS:
		1583	enqueue_wait_for_events = 0
1604	CODE:	1584	CODE:
1605	EVENT_LIST (1, items - 1);	1585	EVENT_LIST (1, items - 1);
1606	#if PREFER_1_1	1586	#if PREFER_1_1
1607	NEED_SUCCESS (EnqueueWaitForEvents, (self, event_list_count, event_list_ptr));	1587	NEED_SUCCESS (EnqueueWaitForEvents, (self, event_list_count, event_list_ptr));
1608	#else	1588	#else
1609	NEED_SUCCESS (EnqueueBarrierWithWaitList, (self, event_list_count, event_list_ptr, 0));	1589	NEED_SUCCESS (EnqueueBarrierWithWaitList, (self, event_list_count, event_list_ptr, 0));
1610	#endif	1590	#endif
1611		1591
1612	void	1592	void
1613	enqueue_marker (OpenCL::Queue self, ...)	1593	marker (OpenCL::Queue self, ...)
		1594	ALIAS:
		1595	enqueue_marker = 0
1614	PPCODE:	1596	PPCODE:
1615	cl_event ev = 0;	1597	cl_event ev = 0;
1616	EVENT_LIST (1, items - 1);	1598	EVENT_LIST (1, items - 1);
1617	#if PREFER_1_1	1599	#if PREFER_1_1
1618	if (!event_list_count)	1600	if (!event_list_count)
…		…
1631	#endif	1613	#endif
1632	if (ev)	1614	if (ev)
1633	XPUSH_CLOBJ ("OpenCL::Event", ev);	1615	XPUSH_CLOBJ ("OpenCL::Event", ev);
1634		1616
1635	void	1617	void
1636	enqueue_barrier (OpenCL::Queue self, ...)	1618	barrier (OpenCL::Queue self, ...)
		1619	ALIAS:
		1620	enqueue_barrier = 0
1637	PPCODE:	1621	PPCODE:
1638	cl_event ev = 0;	1622	cl_event ev = 0;
1639	EVENT_LIST (1, items - 1);	1623	EVENT_LIST (1, items - 1);
1640	#if PREFER_1_1	1624	#if PREFER_1_1
1641	if (!event_list_count && GIMME_V == G_VOID)	1625	if (!event_list_count && GIMME_V == G_VOID)
…		…
2170	DESTROY (OpenCL::Kernel self)	2154	DESTROY (OpenCL::Kernel self)
2171	CODE:	2155	CODE:
2172	clReleaseKernel (self);	2156	clReleaseKernel (self);
2173		2157
2174	void	2158	void
		2159	setf (OpenCL::Kernel self, const char *format, ...)
		2160	CODE:
		2161	int i;
		2162	for (i = 2; ; ++i)
		2163	{
		2164	while (*format == ' ')
		2165	++format;
		2166
		2167	char type = *format++;
		2168
		2169	if (!type)
		2170	break;
		2171
		2172	if (i >= items)
		2173	croak ("OpenCL::Kernel::setf format string too long (not enough arguments)");
		2174
		2175	SV *sv = ST (i);
		2176
		2177	union
		2178	{
		2179	cl_char cc; cl_uchar cC; cl_short cs; cl_ushort cS;
		2180	cl_int ci; cl_uint cI; cl_long cl; cl_ulong cL;
		2181	cl_half ch; cl_float cf; cl_double cd;
		2182	cl_mem cm;
		2183	cl_sampler ca;
		2184	size_t cz;
		2185	cl_event ce;
		2186	} arg;
		2187	size_t size;
		2188
		2189	switch (type)
		2190	{
		2191	case 'c': arg.cc = SvIV (sv); size = sizeof (arg.cc); break;
		2192	case 'C': arg.cC = SvUV (sv); size = sizeof (arg.cC); break;
		2193	case 's': arg.cs = SvIV (sv); size = sizeof (arg.cs); break;
		2194	case 'S': arg.cS = SvUV (sv); size = sizeof (arg.cS); break;
		2195	case 'i': arg.ci = SvIV (sv); size = sizeof (arg.ci); break;
		2196	case 'I': arg.cI = SvUV (sv); size = sizeof (arg.cI); break;
		2197	case 'l': arg.cl = SvIV (sv); size = sizeof (arg.cl); break;
		2198	case 'L': arg.cL = SvUV (sv); size = sizeof (arg.cL); break;
		2199
		2200	case 'h': arg.ch = SvUV (sv); size = sizeof (arg.ch); break;
		2201	case 'f': arg.cf = SvNV (sv); size = sizeof (arg.cf); break;
		2202	case 'd': arg.cd = SvNV (sv); size = sizeof (arg.cd); break;
		2203	case 'z': arg.cz = SvUV (sv); size = sizeof (arg.cz); break;
		2204
		2205	case 'm': arg.cm = SvCLOBJ ("OpenCL::Kernel::setf", "m", sv, "OpenCL::Memory" ); size = sizeof (arg.cm); break;
		2206	case 'a': arg.ca = SvCLOBJ ("OpenCL::Kernel::setf", "a", sv, "OpenCL::Sampler"); size = sizeof (arg.ca); break;
		2207	case 'e': arg.ca = SvCLOBJ ("OpenCL::Kernel::setf", "e", sv, "OpenCL::Event" ); size = sizeof (arg.ce); break;
		2208
		2209	default:
		2210	croak ("OpenCL::Kernel::setf format character '%c' not supported", type);
		2211	}
		2212
		2213	clSetKernelArg (self, i - 2, size, &arg);
		2214	}
		2215
		2216	if (i != items)
		2217	croak ("OpenCL::Kernel::setf format string too short (too many arguments)");
		2218
		2219	void
2175	set_char (OpenCL::Kernel self, cl_uint idx, cl_char value)	2220	set_char (OpenCL::Kernel self, cl_uint idx, cl_char value)
2176	CODE:	2221	CODE:
2177	clSetKernelArg (self, idx, sizeof (value), &value);	2222	clSetKernelArg (self, idx, sizeof (value), &value);
2178		2223
2179	void	2224	void
…		…
2235	set_buffer (OpenCL::Kernel self, cl_uint idx, OpenCL::Buffer_ornull value)	2280	set_buffer (OpenCL::Kernel self, cl_uint idx, OpenCL::Buffer_ornull value)
2236	CODE:	2281	CODE:
2237	clSetKernelArg (self, idx, sizeof (value), &value);	2282	clSetKernelArg (self, idx, sizeof (value), &value);
2238		2283
2239	void	2284	void
2240	set_image2d (OpenCL::Kernel self, cl_uint idx, OpenCL::Image2D_ornull value)	2285	set_image (OpenCL::Kernel self, cl_uint idx, OpenCL::Image_ornull value)
2241	CODE:	2286	ALIAS:
2242	clSetKernelArg (self, idx, sizeof (value), &value);	2287	set_image2d = 0
2243		2288	set_image3d = 0
2244	void
2245	set_image3d (OpenCL::Kernel self, cl_uint idx, OpenCL::Image3D_ornull value)
2246	CODE:	2289	CODE:
2247	clSetKernelArg (self, idx, sizeof (value), &value);	2290	clSetKernelArg (self, idx, sizeof (value), &value);
2248		2291
2249	void	2292	void
2250	set_sampler (OpenCL::Kernel self, cl_uint idx, OpenCL::Sampler value)	2293	set_sampler (OpenCL::Kernel self, cl_uint idx, OpenCL::Sampler value)

Diff Legend

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

Comparing OpenCL/OpenCL.xs (file contents): Revision 1.52 by root, Tue Apr 24 23:53:12 2012 UTC vs. Revision 1.57 by root, Sat Apr 28 13:31:40 2012 UTC

Diff Legend

Comparing OpenCL/OpenCL.xs (file contents):
Revision 1.52 by root, Tue Apr 24 23:53:12 2012 UTC vs.
Revision 1.57 by root, Sat Apr 28 13:31:40 2012 UTC