From 1d280352f4064d1d2ff123c61b30ec373986b695 Mon Sep 17 00:00:00 2001
From: vbystricky <vbystricky@github.com>
Date: Thu, 9 Oct 2014 13:50:57 +0400
Subject: [PATCH] Add code for print errors of OpenCL kernels runing

---
 modules/core/src/ocl.cpp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/modules/core/src/ocl.cpp b/modules/core/src/ocl.cpp
index d8071c269..9e9606810 100644
--- a/modules/core/src/ocl.cpp
+++ b/modules/core/src/ocl.cpp
@@ -47,6 +47,7 @@
 #include <iostream> // std::cerr
 
 #define CV_OPENCL_ALWAYS_SHOW_BUILD_LOG 0
+#define CV_OPENCL_SHOW_RUN_ERRORS       0
 
 #include "opencv2/core/bufferpool.hpp"
 #ifndef LOG_BUFFER_POOL
@@ -3037,6 +3038,13 @@ bool Kernel::run(int dims, size_t _globalsize[], size_t _localsize[],
     cl_int retval = clEnqueueNDRangeKernel(qq, p->handle, (cl_uint)dims,
                                            offset, globalsize, _localsize, 0, 0,
                                            sync ? 0 : &p->e);
+#if CV_OPENCL_SHOW_RUN_ERRORS
+    if (retval != CL_SUCCESS)
+    {
+        printf("OpenCL program returns error: %d\n", retval);
+        fflush(stdout);
+    }
+#endif
     if( sync || retval != CL_SUCCESS )
     {
         CV_OclDbgAssert(clFinish(qq) == CL_SUCCESS);