--- OpenCL/typemap	2011/11/15 20:38:07	1.3
+++ OpenCL/typemap	2011/11/20 01:09:48	1.6
@@ -7,6 +7,7 @@
 cl_uint			T_UV
 cl_long			T_IV
 cl_ulong		T_UV
+cl_double		T_NV
 cl_float		T_NV
 cl_half			T_UV
 
@@ -14,10 +15,13 @@
 cl_device_type		T_IV
 cl_device_info		T_IV
 cl_context_info		T_IV
+cl_command_queue_properties T_IV
 cl_command_queue_info	T_IV
 cl_mem_flags		T_IV
 cl_mem_info		T_IV
 cl_mem_object_type	T_IV
+cl_image_info		T_IV
+cl_profiling_info	T_IV
 cl_channel_order	T_UV
 cl_channel_type		T_UV
 cl_event_info		T_IV
@@ -27,6 +31,7 @@
 cl_program_info		T_IV
 cl_program_build_info	T_IV
 cl_kernel_info		T_IV
+cl_kernel_work_group_info T_IV
 
 OpenCL::Platform	ptrobj
 OpenCL::Device		ptrobj
@@ -46,9 +51,16 @@
 OpenCL::Program		ptrobj
 OpenCL::Kernel		ptrobj
 OpenCL::Event		ptrobj
+OpenCL::UserEvent	ptrobj
+
+FUTURE			future
 
 INPUT
 
+future
+	if (SvOK ($arg))
+	  croak (\"$pname argument '$var' is reserved for future extensions, it must be missing or undef in this implementation, in call\");
+
 ptrobj
 	$var = ($type)SvPTROBJ (${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\", $arg, \"${ntype}\")