[ViewVC] Diff of: cvs/OpenCL/OpenCL.pm

Comparing OpenCL/OpenCL.pm (file contents):
Revision 1.60 by root, Wed Apr 25 21:48:44 2012 UTC vs.
Revision 1.61 by root, Sat Apr 28 13:31:40 2012 UTC

 =item $int = OpenCL::errno
 The last error returned by a function - it's only valid after an error occured
 and before calling another OpenCL function.
-=item $str = OpenCL::err2str $errval
+=item $str = OpenCL::err2str [$errval]
-Comverts an error value into a human readable string.
+Converts an error value into a human readable string. IF no error value is
+given, then the last error will be used (as returned by OpenCL::errno).
 =item $str = OpenCL::enum2str $enum
 Converts most enum values (of parameter names, image format constants,
 object types, addressing and filter modes, command types etc.) into a
    require Carp;
    $prog = $self->program_with_source ($prog)
       unless ref $prog;
-   # we build separately per device so we instantly know which one failed
+   eval { $prog->build (undef, $options); 1 }
+      or errno == BUILD_PROGRAM_FAILURE
+      or Carp::croak "OpenCL::Context->build_program: " . err2str;
+   # we check status for all devices
    for my $dev ($self->devices) {
-      eval { $prog->build ([$dev], $options); 1 }
+      $prog->build_status ($dev) == BUILD_SUCCESS
          or Carp::croak ("Building OpenCL program for device '" . $dev->name . "' failed:\n"
                          . $prog->build_log ($dev));
    }
    $prog

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