<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<meta name="Generator" content="Microsoft Word 14 (filtered medium)">
<style><!--
/* Font Definitions */
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:"Lucida Console";
panose-1:2 11 6 9 4 5 4 2 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Calibri","sans-serif";
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri","sans-serif";}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang="EN-US" link="blue" vlink="purple">
<div class="WordSection1">
<p class="MsoNormal">I am not sure if this is the appropriate list on which to ask this question, if not hopefully someone can suggest an alternative.<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Under Linux, I am attempting to perform an offline compile of an OpenCL kernel example using Clang, and then load that binary using the clCreateProgramWithBinary() function.<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Unfortunately, while clover is loading the binary, I end up getting a segmentation fault:<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal" style="margin-left:.5in;text-autospace:none"><span style="font-size:9.0pt;font-family:"Lucida Console"">Program received signal SIGSEGV, Segmentation fault.<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-left:.5in;text-autospace:none"><span style="font-size:9.0pt;font-family:"Lucida Console"">proc (v=..., is=...) at core/module.cpp:50<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-left:.5in;text-autospace:none"><span style="font-size:9.0pt;font-family:"Lucida Console"">50 T x;<o:p></o:p></span></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">I have pasted the source code I am using below, for both the kernel and the host code.<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">I am compiling with the following commands:<o:p></o:p></p>
<p class="MsoNormal">clang -target r600-unknown-unknown -x cl -S -emit-llvm -mcpu=r600 kernel.cl -o kernel.clbin
<o:p></o:p></p>
<p class="MsoNormal">clang -g -L/usr/local/lib -lOpenCL offline_host.c -o offline_host<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">I have LLVM/Clang 3.4RC3 installed and Mesa 10.0.1.<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">If anyone has suggestions, or can point me to the appropriate mailing list or documentation, I’d appreciate it.<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Thanks!<o:p></o:p></p>
<p class="MsoNormal">-Al<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Source code for “kernel.cl”<o:p></o:p></p>
<p class="MsoNormal">====================<o:p></o:p></p>
<p class="MsoNormal">__kernel void vecAdd(__global float* a)<o:p></o:p></p>
<p class="MsoNormal">{<o:p></o:p></p>
<p class="MsoNormal"> int gid = get_global_id(0);<o:p></o:p></p>
<p class="MsoNormal"> a[gid] += a[gid];<o:p></o:p></p>
<p class="MsoNormal">}<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Source code for “offline_host.c”<o:p></o:p></p>
<p class="MsoNormal">==========================<o:p></o:p></p>
<p class="MsoNormal">#include <stdio.h><o:p></o:p></p>
<p class="MsoNormal">#include <stdlib.h><o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">#ifdef __APPLE__<o:p></o:p></p>
<p class="MsoNormal">#include <OpenCL/opencl.h><o:p></o:p></p>
<p class="MsoNormal">#else<o:p></o:p></p>
<p class="MsoNormal">#include <CL/cl.h><o:p></o:p></p>
<p class="MsoNormal">#endif<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">#define MEM_SIZE (128)<o:p></o:p></p>
<p class="MsoNormal">#define MAX_BINARY_SIZE (0x100000)<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">int main()<o:p></o:p></p>
<p class="MsoNormal">{<o:p></o:p></p>
<p class="MsoNormal"> cl_platform_id platform_id = NULL;<o:p></o:p></p>
<p class="MsoNormal"> cl_device_id device_id = NULL;<o:p></o:p></p>
<p class="MsoNormal"> cl_context context = NULL;<o:p></o:p></p>
<p class="MsoNormal"> cl_command_queue command_queue = NULL;<o:p></o:p></p>
<p class="MsoNormal"> cl_mem memobj = NULL;<o:p></o:p></p>
<p class="MsoNormal"> cl_program program = NULL;<o:p></o:p></p>
<p class="MsoNormal"> cl_kernel kernel = NULL;<o:p></o:p></p>
<p class="MsoNormal"> cl_uint ret_num_devices;<o:p></o:p></p>
<p class="MsoNormal"> cl_uint ret_num_platforms;<o:p></o:p></p>
<p class="MsoNormal"> cl_int ret;<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"> float mem[MEM_SIZE];<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"> FILE *fp;<o:p></o:p></p>
<p class="MsoNormal"> char fileName[] = "kernel.clbin";<o:p></o:p></p>
<p class="MsoNormal"> size_t binary_size;<o:p></o:p></p>
<p class="MsoNormal"> char *binary_buf;<o:p></o:p></p>
<p class="MsoNormal"> cl_int binary_status;<o:p></o:p></p>
<p class="MsoNormal"> cl_int i;<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"> /* Load kernel binary */<o:p></o:p></p>
<p class="MsoNormal"> fp = fopen(fileName, "r");<o:p></o:p></p>
<p class="MsoNormal"> if (!fp) {<o:p></o:p></p>
<p class="MsoNormal"> fprintf(stderr, “Failed to load kernel.\n”);<o:p></o:p></p>
<p class="MsoNormal"> exit(1);<o:p></o:p></p>
<p class="MsoNormal"> }<o:p></o:p></p>
<p class="MsoNormal"> binary_buf = (char *)malloc(MAX_BINARY_SIZE);<o:p></o:p></p>
<p class="MsoNormal"> binary_size = fread(binary_buf, 1, MAX_BINARY_SIZE, fp);<o:p></o:p></p>
<p class="MsoNormal"> fclose(fp);<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"> /* Initialize input data */<o:p></o:p></p>
<p class="MsoNormal"> for (i = 0; i < MEM_SIZE; i++) {<o:p></o:p></p>
<p class="MsoNormal"> mem[i] = i;<o:p></o:p></p>
<p class="MsoNormal"> }<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"> /* Get platform/device information */<o:p></o:p></p>
<p class="MsoNormal"> ret = clGetPlatformIDs(1, &platform_id, &ret_num_platforms);<o:p></o:p></p>
<p class="MsoNormal"> ret = clGetDeviceIDs(platform_id, CL_DEVICE_TYPE_GPU, 1, &device_id, &ret_num_devices);<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"> /* Create OpenCL context*/<o:p></o:p></p>
<p class="MsoNormal"> context = clCreateContext(NULL, 1, &device_id, NULL, NULL, &ret);<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"> /* Create command queue */<o:p></o:p></p>
<p class="MsoNormal"> command_queue = clCreateCommandQueue(context, device_id, 0, &ret);<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"> /* Create memory buffer */<o:p></o:p></p>
<p class="MsoNormal"> memobj = clCreateBuffer(context, CL_MEM_READ_WRITE, MEM_SIZE * sizeof(float), NULL, &ret);<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"> /* Transfer data over to the memory buffer */<o:p></o:p></p>
<p class="MsoNormal"> ret = clEnqueueWriteBuffer(command_queue, memobj, CL_TRUE, 0, MEM_SIZE * sizeof(float), mem, 0, NULL, NULL);<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"> /* Create kernel program from the kernel binary */<o:p></o:p></p>
<p class="MsoNormal"> program = clCreateProgramWithBinary(context, 1, &device_id, (const size_t *)&binary_size,<o:p></o:p></p>
<p class="MsoNormal"> (const unsigned char **)&binary_buf, &binary_status, &ret);<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"> /* Create OpenCL kernel */<o:p></o:p></p>
<p class="MsoNormal"> kernel = clCreateKernel(program, "vecAdd", &ret);<o:p></o:p></p>
<p class="MsoNormal"> printf("err:%d\n", ret);<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"> /* Set OpenCL kernel arguments */<o:p></o:p></p>
<p class="MsoNormal"> ret = clSetKernelArg(kernel, 0, sizeof(cl_mem), (void *)&memobj);<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"> size_t global_work_size[3] = {MEM_SIZE, 0, 0};<o:p></o:p></p>
<p class="MsoNormal"> size_t local_work_size[3] = {MEM_SIZE, 0, 0};<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"> /* Execute OpenCL kernel */<o:p></o:p></p>
<p class="MsoNormal"> ret = clEnqueueNDRangeKernel(command_queue, kernel, 1, NULL, global_work_size, local_work_size, 0, NULL, NULL);<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"> /* Copy result from the memory buffer */<o:p></o:p></p>
<p class="MsoNormal"> ret = clEnqueueReadBuffer(command_queue, memobj, CL_TRUE, 0, MEM_SIZE * sizeof(float), mem, 0, NULL, NULL);<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"> /* Display results */<o:p></o:p></p>
<p class="MsoNormal"> for (i=0; i < MEM_SIZE; i++) {<o:p></o:p></p>
<p class="MsoNormal"> printf(“mem[%d] : $f\n”, i, mem[i]);<o:p></o:p></p>
<p class="MsoNormal"> }<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"> /* Finalization */<o:p></o:p></p>
<p class="MsoNormal"> ret = clFlush(command_queue);<o:p></o:p></p>
<p class="MsoNormal"> ret = clFinish(command_queue);<o:p></o:p></p>
<p class="MsoNormal"> ret = clReleaseKernel(kernel);<o:p></o:p></p>
<p class="MsoNormal"> ret = clReleaseProgram(program);<o:p></o:p></p>
<p class="MsoNormal"> ret = clReleaseMemObject(memobj);<o:p></o:p></p>
<p class="MsoNormal"> ret = clReleaseCommandQueue(command_queue);<o:p></o:p></p>
<p class="MsoNormal"> ret = clReleaseContext(context);<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"> free(binary_buf);<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"> return 0;<o:p></o:p></p>
<p class="MsoNormal">}<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><b><span style="font-size:14.0pt">Al Dorrington<o:p></o:p></span></b></p>
<p class="MsoNormal"><i><span style="font-size:10.0pt">Software Engineer Sr<o:p></o:p></span></i></p>
<p class="MsoNormal"><i><span style="font-size:10.0pt">Lockheed Martin, Mission Systems and Training<o:p></o:p></span></i></p>
<p class="MsoNormal"><span style="font-size:10.0pt"><a href="mailto:albert.dorrington@lmco.com"><span style="color:blue">albert.dorrington@lmco.com</span></a> / 607-751-4859<o:p></o:p></span></p>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
</body>
</html>