… | |
… | |
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 = |