| … | |
… | |
| 121 | $extra_perl_args = ' ($device)'; |
121 | $extra_perl_args = ' ($device)'; |
| 122 | $extra_xs_args = ', OpenCL::Device device'; |
122 | $extra_xs_args = ', OpenCL::Device device'; |
| 123 | } |
123 | } |
| 124 | |
124 | |
| 125 | my $dynamic; |
125 | my $dynamic; |
| 126 | my $nelem = "size / sizeof (value [0])"; |
126 | my $nelem = "size / sizeof (*value)"; |
| 127 | |
127 | |
| 128 | if ($ctype eq "STRING_CLASS") { |
128 | if ($ctype eq "STRING_CLASS") { |
| 129 | $ctype = "VECTOR_CLASS<char>"; |
129 | $ctype = "VECTOR_CLASS<char>"; |
| 130 | $nelem = "1"; |
130 | $nelem = "1"; |
| 131 | $dynamic = 1; |
131 | $dynamic = 1; |
