| … | |
… | |
| 123 | $extra_args = ', device'; |
123 | $extra_args = ', device'; |
| 124 | $extra_perl_args = ' ($device)'; |
124 | $extra_perl_args = ' ($device)'; |
| 125 | $extra_xs_args = ', OpenCL::Device device'; |
125 | $extra_xs_args = ', OpenCL::Device device'; |
| 126 | } |
126 | } |
| 127 | |
127 | |
|
|
128 | if ($CLASS eq "kernel_arg") { |
|
|
129 | $extra_args = ', idx'; |
|
|
130 | $extra_perl_args = ' ($idx)'; |
|
|
131 | $extra_xs_args = ', cl_uint idx'; |
|
|
132 | } |
|
|
133 | |
| 128 | my $dynamic; |
134 | my $dynamic; |
| 129 | my $nelem = "size / sizeof (*value)"; |
135 | my $nelem = "size / sizeof (*value)"; |
| 130 | |
136 | |
| 131 | if ($ctype eq "STRING_CLASS") { |
137 | if ($ctype eq "STRING_CLASS") { |
| 132 | $ctype = "VECTOR_CLASS<char>"; |
138 | $ctype = "VECTOR_CLASS<char>"; |
