| … | … | ||
|---|---|---|---|
| 25 | } | 25 | } |
| 26 | } | 26 | } |
| 27 | 27 | ||
| 28 | $ctx | 28 | $ctx |
| 29 | or die "cannot find suitable OpenCL device\n"; | 29 | or die "cannot find suitable OpenCL device\n"; |
| 30 | |||
| 31 | print "using ", $dev->name, "\n"; | ||
| 30 | 32 | ||
| 31 | my $queue = $ctx->queue ($dev); | 33 | my $queue = $ctx->queue ($dev); |
| 32 | 34 | ||
| 33 | # now the boring opencl code | 35 | # now the boring opencl code |
| 34 | my $src = <<EOF; | 36 | my $src = <<EOF; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |