--- OpenCL/typemap	2011/11/20 01:09:48	1.6
+++ OpenCL/typemap	2012/04/19 12:12:04	1.9
@@ -11,9 +11,16 @@
 cl_float		T_NV
 cl_half			T_UV
 
+cl_bitfield		T_UV
+cl_device_fp_config	T_UV
+cl_device_exec_capabilities T_UV
+
 cl_platform_info	T_IV
 cl_device_type		T_IV
 cl_device_info		T_IV
+cl_device_mem_cache_type T_UV
+cl_device_local_mem_type T_UV
+cl_device_partition_property_ext T_UV
 cl_context_info		T_IV
 cl_command_queue_properties T_IV
 cl_command_queue_info	T_IV
@@ -30,8 +37,12 @@
 cl_sampler_info		T_IV
 cl_program_info		T_IV
 cl_program_build_info	T_IV
+cl_build_status		T_IV
 cl_kernel_info		T_IV
 cl_kernel_work_group_info T_IV
+cl_command_type		T_UV
+
+cl_context_properties * context_properties
 
 OpenCL::Platform	ptrobj
 OpenCL::Device		ptrobj
@@ -39,6 +50,7 @@
 OpenCL::Queue		ptrobj
 OpenCL::Memory		ptrobj
 OpenCL::Buffer		ptrobj
+OpenCL::BufferObj	ptrobj
 OpenCL::Image		ptrobj
 OpenCL::Image2D		ptrobj
 OpenCL::Image3D		ptrobj
@@ -61,6 +73,9 @@
 	if (SvOK ($arg))
 	  croak (\"$pname argument '$var' is reserved for future extensions, it must be missing or undef in this implementation, in call\");
 
+context_properties
+	$var = SvCONTEXTPROPERTIES (${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\", $arg, 0, 0)
+
 ptrobj
 	$var = ($type)SvPTROBJ (${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\", $arg, \"${ntype}\")