1 files changed, 98 insertions, 0 deletions
diff --git a/src/err_code.c b/src/err_code.c
new file mode 100644
index 0000000..d3de434
--- /dev/null
+++ b/src/err_code.c
@@ -0,0 +1,98 @@
+//------------------------------------------------------------------------------
+//
+// Name:     OpenCL_err_code()    
+//
+// Purpose:  Function to output descriptions of errors for an input error code
+// License:  public domain
+//
+//
+// RETURN:   echoes the input error code
+//
+// HISTORY:  Written by Tim Mattson, June 2010
+//
+//------------------------------------------------------------------------------
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#ifdef APPLE
+#include <OpenCL/opencl.h>
+#else
+#include "CL/cl.h"
+#endif
+
+char *OpenCL_err_code (cl_int err_in);
+char *OpenCL_err_code (cl_int err_in)
+{
+    switch (err_in){
+        case CL_INVALID_PLATFORM:
+           return("CL_INVALID_PLATFORM");
+           break;
+        case CL_INVALID_DEVICE_TYPE:
+           return("CL_INVALID_DEVICE_TYPE");
+           break;
+        case CL_INVALID_CONTEXT:
+           return("CL_INVALID_CONTEXT");
+           break;
+        case CL_INVALID_DEVICE:
+           return("CL_INVALID_DEVICE");
+           break;
+        case CL_INVALID_VALUE:
+           return("CL_INVALID_VALUE");
+           break;
+        case CL_INVALID_QUEUE_PROPERTIES:
+           return("CL_INVALID_QUEUE_PROPERTIES");
+           break;
+        case CL_OUT_OF_RESOURCES:
+           return("CL_OUT_OF_RESOURCES");
+           break;
+        case CL_INVALID_PROGRAM_EXECUTABLE:
+           return("CL_INVALID_PROGRAM_EXECUTABLE"); 
+           break;
+        case CL_INVALID_KERNEL:
+           return("CL_INVALID_KERNEL"); 
+           break;
+        case CL_INVALID_KERNEL_ARGS:
+           return("CL_INVALID_KERNEL_ARGS"); 
+           break;
+        case CL_INVALID_WORK_DIMENSION:
+           return("CL_INVALID_WORK_DIMENSION"); 
+           break;
+        case CL_INVALID_GLOBAL_OFFSET:
+           return("CL_INVALID_GLOBAL_OFFSET"); 
+           break;
+        case CL_INVALID_WORK_GROUP_SIZE:
+           return("CL_INVALID_WORK_GROUP_SIZE"); 
+           break;
+        case CL_INVALID_WORK_ITEM_SIZE:
+           return("CL_INVALID_WORK_ITEM_SIZE"); 
+           break;
+        case CL_INVALID_IMAGE_SIZE:
+           return("CL_INVALID_IMAGE_SIZE"); 
+           break;
+        case CL_INVALID_EVENT_WAIT_LIST:
+           return("CL_INVALID_EVENT_WAIT_LIST"); 
+           break;
+        case CL_INVALID_MEM_OBJECT:
+           return("CL_INVALID_MEM_OBJECT"); 
+           break;
+        case CL_MEM_COPY_OVERLAP:
+           return("CL_MEM_COPY_OVERLAP"); 
+           break;
+        case CL_MEM_OBJECT_ALLOCATION_FAILURE:
+           return("CL_MEM_OBJECT_ALLOCATION_FAILURE"); 
+           break;
+        case CL_OUT_OF_HOST_MEMORY:
+           return("CL_OUT_OF_HOST_MEMORY"); 
+           break;
+        case CL_PROFILING_INFO_NOT_AVAILABLE:
+           return("CL_PROFILING_INFO_NOT_AVAILABLE"); 
+           break;
+        case CL_INVALID_EVENT:
+           return("CL_INVALID_EVENT"); 
+           break;
+        default:
+           return("unknown error.");
+           break;
+    }
+    return "";
+}