ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/OpenCL/OpenCL.pm
(Generate patch)

Comparing OpenCL/OpenCL.pm (file contents):
Revision 1.60 by root, Wed Apr 25 21:48:44 2012 UTC vs.
Revision 1.63 by root, Sun Apr 29 18:24:35 2012 UTC

… …
493=cut 493=cut
494 494
495package OpenCL; 495package OpenCL;
496 496
497use common::sense; 497use common::sense;
498use Carp ();
498use Async::Interrupt (); 499use Async::Interrupt ();
499 500
500our $POLL_FUNC; # set by XS 501our $POLL_FUNC; # set by XS
501 502
502BEGIN { 503BEGIN {
503 our $VERSION = '0.97'; 504 our $VERSION = '0.98';
504 505
505 require XSLoader; 506 require XSLoader;
506 XSLoader::load (__PACKAGE__, $VERSION); 507 XSLoader::load (__PACKAGE__, $VERSION);
507 508
508 @OpenCL::Platform::ISA = 509 @OpenCL::Platform::ISA =
… …
537=item $int = OpenCL::errno 538=item $int = OpenCL::errno
538 539
539The last error returned by a function - it's only valid after an error occured 540The last error returned by a function - it's only valid after an error occured
540and before calling another OpenCL function. 541and before calling another OpenCL function.
541 542
542=item $str = OpenCL::err2str $errval 543=item $str = OpenCL::err2str [$errval]
543 544
544Comverts an error value into a human readable string. 545Converts an error value into a human readable string. IF no error value is
546given, then the last error will be used (as returned by OpenCL::errno).
545 547
546=item $str = OpenCL::enum2str $enum 548=item $str = OpenCL::enum2str $enum
547 549
548Converts most enum values (of parameter names, image format constants, 550Converts most enum values (of parameter names, image format constants,
549object types, addressing and filter modes, command types etc.) into a 551object types, addressing and filter modes, command types etc.) into a
… …
1002=cut 1004=cut
1003 1005
1004sub OpenCL::Context::build_program { 1006sub OpenCL::Context::build_program {
1005 my ($self, $prog, $options) = @_; 1007 my ($self, $prog, $options) = @_;
1006 1008
1007 require Carp;
1008
1009 $prog = $self->program_with_source ($prog) 1009 $prog = $self->program_with_source ($prog)
1010 unless ref $prog; 1010 unless ref $prog;
1011 1011
1012 # we build separately per device so we instantly know which one failed 1012 eval { $prog->build (undef, $options); 1 }
1013 or errno == BUILD_PROGRAM_FAILURE
1014 or errno == INVALID_BINARY # workaround nvidia bug
1015 or Carp::croak "OpenCL::Context->build_program: " . err2str;
1016
1017 # we check status for all devices
1013 for my $dev ($self->devices) { 1018 for my $dev ($self->devices) {
1014 eval { $prog->build ([$dev], $options); 1 } 1019 $prog->build_status ($dev) == BUILD_SUCCESS
1015 or Carp::croak ("Building OpenCL program for device '" . $dev->name . "' failed:\n" 1020 or Carp::croak "Building OpenCL program for device '" . $dev->name . "' failed:\n"
1016 . $prog->build_log ($dev)); 1021 . $prog->build_log ($dev);
1017 } 1022 }
1018 1023
1019 $prog 1024 $prog
1020} 1025}
1021 1026
… …
1524If a callback is specified, then it will be called when compilation is 1529If a callback is specified, then it will be called when compilation is
1525finished. Note that many OpenCL implementations block your program while 1530finished. Note that many OpenCL implementations block your program while
1526compiling whether you use a callback or not. See C<build_async> if you 1531compiling whether you use a callback or not. See C<build_async> if you
1527want to make sure the build is done in the background. 1532want to make sure the build is done in the background.
1528 1533
1529Note that some OpenCL implementations atc up badly, and don't call the 1534Note that some OpenCL implementations act up badly, and don't call the
1530callback in some error cases (but call it in others). This implementation 1535callback in some error cases (but call it in others). This implementation
1531assumes the callback will always be called, and leaks memory if this is 1536assumes the callback will always be called, and leaks memory if this is
1532not so. So best make sure you don't pass in invalid values. 1537not so. So best make sure you don't pass in invalid values.
1538
1539Some implementations fail with C<OpenCL::INVALID_BINARY> when the
1540compilation state is successful but some later stage fails.
1533 1541
1534L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clBuildProgram.html> 1542L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clBuildProgram.html>
1535 1543
1536=item $program->build_async (\@devices = undef, $options = "", $cb->($program) = undef) 1544=item $program->build_async (\@devices = undef, $options = "", $cb->($program) = undef)
1537 1545

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines