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