first version of fill_cache; TODO: fix this

ranocha · Jun 26, 2018 · b9c4206 · b9c4206
1 parent a70522c
commit b9c4206
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git a/src/auxiliary_functions.jl b/src/auxiliary_functions.jl
@@ -14,6 +14,11 @@ function clear_cache()
     return err
 end
 
-#function fill_cache(device::cl.CL_device_id)
-#    ccall((:CLBlastFillCache, libCLBlast), cl.CL_int, (cl.CL_device_id), device)
-#end
+function fill_cache(device::cl.Device)
+    err = ccall((:CLBlastFillCache, libCLBlast), cl.CL_int, (cl.CL_device_id,), pointer(device))
+    if err != cl.CL_SUCCESS
+        println(STDERR, "Calling function `fill_cache($device)` failed!")
+        throw(cl.CLError(err))
+    end
+    return err
+end
diff --git a/test/auxiliary_test.jl b/test/auxiliary_test.jl
@@ -3,4 +3,4 @@ for error_code in keys(CLBlast._clblast_status_codes)
 end
 
 CLBlast.clear_cache()
-#CLBlast.fill_cache()
+CLBlast.fill_cache(device)