fast sort of working

Joseph Redmon

2015-01-20 6e1d5b45de988bb795c4c505f22f2170a78b7746

 src/opencl.c

@@ -18,7 +18,7 @@

void check_error(cl_info info)
{
   // clFinish(cl.queue);
    clFinish(cl.queue);
    if (info.error != CL_SUCCESS) {
        printf("\n Error number %d", info.error);
        abort();
@@ -132,11 +132,11 @@
    char build_c[1024*64];
    // and compile it (after this we could extract the compiled version)
    info.error=clBuildProgram(prog, 0, 0, options, 0, 0);
    if ( info.error != CL_SUCCESS ) {
    //if ( info.error != CL_SUCCESS ) {
        fprintf(stderr, "Error Building Program: %d\n", info.error);
        clGetProgramBuildInfo( prog, info.device, CL_PROGRAM_BUILD_LOG, 1024*64, build_c, 0);
        fprintf(stderr, "Build Log for %s program:\n%s\n", filename, build_c);
    }
    //}
    check_error(info);
    return prog;
}
@@ -144,7 +144,7 @@
void cl_setup()
{
    if(!cl.initialized){
        printf("initializing\n");
        fprintf(stderr, "Initializing OpenCL\n");
        cl = cl_init(gpu_index);
    }
}
@@ -205,7 +205,7 @@
            CL_MEM_READ_WRITE|CL_MEM_COPY_HOST_PTR,
            sizeof(float)*n, x, &cl.error);
    check_error(cl);
    activate_array_ongpu(mem, n, LINEAR);
    //activate_array_ongpu(mem, n, LINEAR);
    return mem;
}