Changes between Initial Version and Version 1 of OpenCL_Template

Timestamp:

Jan 20, 2011 7:13:49 PM (15 years ago)

Author:

nakasato

Comment:

--

OpenCL_Template

@@ +1 @@
+= template program =
+{{{
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#ifdef __APPLE__
+#include <OpenCL/opencl.h>
+#else
+#include <CL/cl.h>
+#endif
+
+#define MAX_SOURCE_SIZE (0x100000)
+
+int main()
+{
+    cl_platform_id platform_id = NULL;
+    cl_device_id device_id = NULL;
+    cl_context context = NULL;
+    cl_program program = NULL;
+    cl_uint ret_num_devices;
+    cl_uint ret_num_platforms;
+    cl_int ret;
+
+    FILE *fp;
+    const char fileName[] = "temp.cl";
+    size_t source_size;
+    char *source_str;
+   
+    ret = clGetPlatformIDs(1, &platform_id, &ret_num_platforms);
+    ret = clGetDeviceIDs( platform_id, CL_DEVICE_TYPE_DEFAULT, 1, &device_id, &ret_num_devices);
+    
+    context = clCreateContext( NULL, 1, &device_id, NULL, NULL, &ret);
+    
+    fp = fopen(fileName, "r");
+    if (!fp) {
+        fprintf(stderr, "Failed to load kernel.\n");
+        exit(1);
+    }
+    source_str = (char *)malloc(MAX_SOURCE_SIZE);
+    source_size = fread( source_str, 1, MAX_SOURCE_SIZE, fp );
+    fclose( fp );
+ 
+    program = clCreateProgramWithSource(context, 1, (const char **)&source_str, (const size_t *)&source_size, &ret);
+    ret     = clBuildProgram(program, 1, &device_id, NULL, NULL, NULL);
+    if(ret != CL_SUCCESS) {
+      if(ret == CL_BUILD_PROGRAM_FAILURE) {
+        cl_int logStatus;
+        char * buildLog = NULL;
+        size_t buildLogSize = 0;
+ 
+        fprintf(stderr, "Error: %s\n", fileName);
+        logStatus = clGetProgramBuildInfo (program,
+                                           device_id,
+                                           CL_PROGRAM_BUILD_LOG, 
+                                           buildLogSize, 
+                                           buildLog, 
+                                           &buildLogSize);
+
+        buildLog = (char*)malloc(buildLogSize);
+        memset(buildLog, 0, buildLogSize);
+
+        logStatus = clGetProgramBuildInfo (program, 
+                                           device_id, 
+                                           CL_PROGRAM_BUILD_LOG, 
+                                           buildLogSize, 
+                                           buildLog, 
+                                           NULL);
+        fprintf(stderr, "%s\n", buildLog);
+        free(buildLog);
+      }
+      exit(-1);
+    }
+
+    free(source_str);
+
+    clReleaseProgram(program);
+    clReleaseContext(context);
+    
+    return 0;
+}
+}}}