--- OpenCL/gengetinfo	2012/05/04 14:49:42	1.15
+++ OpenCL/gengetinfo	2012/05/05 13:30:07	1.17
@@ -25,6 +25,7 @@
 );
 
 my %typemap = (
+   # getinfo.txt        c type, constructor, pod
    cl_bool         => ['cl_bool', 'value [i] ? &PL_sv_yes : &PL_sv_no', 'boolean'],
    #char            => ['char', 'newSVpvn (value, size)', 'string'],
    char            => ['char', 'newSVpv (value, 0)', 'string'], # all these are 0-terminated strings, and the driver often appends a \0
@@ -38,6 +39,7 @@
    Program         => ['cl_program', 'OpenCL::Program', 'program'],
    CommandQueue    => ['cl_command_queue', 'OpenCL::Queue', 'queue'],
    cl_context_properties => ['cl_context_properties', 'newSVuv ((UV)value [i])', 'property_int'],
+   cl_program_binary_type => ['cl_program_binary_type', 'newSVuv (UV)value [i])', 'binary_type'],
 );
 
 {
@@ -80,7 +82,7 @@
    rename "$file~", $file;
 }
 
-for my $CLASS (qw(platform device context command_queue mem image sampler program program_build kernel kernel_work_group event profiling gl_texture)) {
+for my $CLASS (qw(platform device context command_queue mem image sampler program program_build kernel kernel_work_group kernel_arg event profiling gl_texture)) {
    open my $fh, "<getinfo.txt"
       or die "getinfo.txt: $!";
 
@@ -109,6 +111,7 @@
       my $real_class = $CLASS;
       $real_class = "program" if $real_class eq "program_build";
       $real_class = "kernel"  if $real_class eq "kernel_work_group";
+      $real_class = "kernel"  if $real_class eq "kernel_arg";
       $real_class = "event"   if $real_class eq "profiling";
 
       my $perl_name = lc $name;