--- OpenCL/gengetinfo	2012/05/04 14:29:35	1.13
+++ OpenCL/gengetinfo	2012/05/04 14:49:42	1.15
@@ -20,6 +20,7 @@
    program_build     Program
    kernel            Kernel
    kernel_work_group Kernel
+   kernel_arg_info   Kernel
    command_queue     Queue
 );
 
@@ -125,6 +126,12 @@
          $extra_xs_args   = ', OpenCL::Device device';
       }
 
+      if ($CLASS eq "kernel_arg") {
+         $extra_args      = ', idx';
+         $extra_perl_args = ' ($idx)';
+         $extra_xs_args   = ', cl_uint idx';
+      }
+
       my $dynamic;
       my $nelem = "size / sizeof (*value)";