| … | |
… | |
| 160 | '; |
160 | '; |
| 161 | |
161 | |
| 162 | my $prog = $ctx->program_with_source ($src); |
162 | my $prog = $ctx->program_with_source ($src); |
| 163 | |
163 | |
| 164 | # build croaks on compile errors, so catch it and print the compile errors |
164 | # build croaks on compile errors, so catch it and print the compile errors |
| 165 | eval { $prog->build ($dev); 1 } |
165 | eval { $prog->build ($dev, "-cl-fast-relaxed-math"); 1 } |
| 166 | or die $prog->build_log; |
166 | or die $prog->build_log; |
| 167 | |
167 | |
| 168 | my $kernel = $prog->kernel ("squareit"); |
168 | my $kernel = $prog->kernel ("squareit"); |
| 169 | |
169 | |
| 170 | =head2 Create some input and output float buffers, then call the |
170 | =head2 Create some input and output float buffers, then call the |
| … | |
… | |
| 1474 | package OpenCL; |
1474 | package OpenCL; |
| 1475 | |
1475 | |
| 1476 | use common::sense; |
1476 | use common::sense; |
| 1477 | |
1477 | |
| 1478 | BEGIN { |
1478 | BEGIN { |
| 1479 | our $VERSION = '0.95'; |
1479 | our $VERSION = '0.96'; |
| 1480 | |
1480 | |
| 1481 | require XSLoader; |
1481 | require XSLoader; |
| 1482 | XSLoader::load (__PACKAGE__, $VERSION); |
1482 | XSLoader::load (__PACKAGE__, $VERSION); |
| 1483 | |
1483 | |
| 1484 | @OpenCL::Buffer::ISA = |
1484 | @OpenCL::Buffer::ISA = |
