Support CUDA 10.1 and ROCm.

uncomplicate · May 29, 2019 · 9d17394 · 9d17394
1 parent 05108f5
commit 9d17394
Show file tree

Hide file tree

Showing 4 changed files with 25 additions and 24 deletions.
diff --git a/backers.md b/backers.md
@@ -39,7 +39,6 @@ The list of people who pledged monthly support on the first day when I announced
 - Huahai Yang
 - Niko Nyrhilä
 - Erwin Rooijakkers
-- Drew Verlee
 - Felipe Gerard
 - Adam Hill
 - Yiu Ming Huynh
diff --git a/project.clj b/project.clj
@@ -6,7 +6,7 @@
 ;;   the terms of this license.
 ;;   You must not remove this notice, or any other, from this software.
 
-(defproject uncomplicate/neanderthal "0.23.2-SNAPSHOT"
+(defproject uncomplicate/neanderthal "0.24.0-SNAPSHOT"
   :description "Neanderthal is a Clojure library for fast matrix and linear algebra computations."
   :url "https://github.com/uncomplicate/neanderthal"
   :scm {:name "git"
@@ -17,10 +17,10 @@
                  [uncomplicate/commons "0.7.2"]
                  [uncomplicate/fluokitten "0.9.1"]
                  [uncomplicate/neanderthal-native "0.23.1"]
-                 [uncomplicate/clojurecl "0.10.6"]
+                 [uncomplicate/clojurecl "0.11.0-SNAPSHOT"]
                  [org.jocl/jocl-blast "1.5.0"]
-                 [uncomplicate/clojurecuda "0.6.2"]
-                 [org.jcuda/jcublas "10.0.0"]
+                 [uncomplicate/clojurecuda "0.7.0-SNAPSHOT"]
+                 [org.jcuda/jcublas "10.1.0"]
                  [org.apache.commons/commons-math3 "3.6.1"]]
 
   :codox {:metadata {:doc/format :markdown}
@@ -48,7 +48,7 @@
                                  *assert* false
                                  *unchecked-math* :warn-on-boxed
                                  *print-length* 128}
-                   :dependencies [[midje "1.9.6"]]}}
+                   :dependencies [[midje "1.9.8"]]}}
 
   :javac-options ["-target" "1.8" "-source" "1.8" "-Xlint:-options"]
   :source-paths ["src/clojure" "src/opencl" "src/cuda"]

diff --git a/src/opencl/uncomplicate/neanderthal/internal/device/blas-plus.cl b/src/opencl/uncomplicate/neanderthal/internal/device/blas-plus.cl
@@ -1,4 +1,4 @@
-#ifndef REAL#
+#ifndef REAL
 define REAL float
 #endif
 

diff --git a/test/uncomplicate/neanderthal/clblast_cpu_test.clj b/test/uncomplicate/neanderthal/clblast_cpu_test.clj
@@ -23,22 +23,24 @@
   (real-test/test-tr-trs factory tr)
   (real-test/test-tr-sv factory tr))
 
-(with-release [dev (first (devices (first (platforms)) :cpu))
-               ctx (context [dev])
-               queue (command-queue-1 ctx dev)]
+(let [devs (devices (first (platforms)) :cpu)]
+  (when (< 0 (count devs))
+    (with-release [dev (first devs)
+                   ctx (context [dev])
+                   queue (command-queue-1 ctx dev)]
 
-  (with-engine clblast-float queue
-    (block-test/test-all *opencl-factory*)
-    (real-test/test-blas *opencl-factory*)
-    (test-blas-clblast *opencl-factory*)
-    (test-lapack-clblast *opencl-factory*)
-    (device-test/test-all *opencl-factory*)
-    (math-test/test-all-device *opencl-factory*))
+      (with-engine clblast-float queue
+        (block-test/test-all *opencl-factory*)
+        (real-test/test-blas *opencl-factory*)
+        (test-blas-clblast *opencl-factory*)
+        (test-lapack-clblast *opencl-factory*)
+        (device-test/test-all *opencl-factory*)
+        (math-test/test-all-device *opencl-factory*))
 
-  (with-engine clblast-double queue
-    (block-test/test-all *opencl-factory*)
-    (real-test/test-blas *opencl-factory*)
-    (test-blas-clblast *opencl-factory*)
-    (test-lapack-clblast *opencl-factory*)
-    (device-test/test-all *opencl-factory*)
-    (math-test/test-all-device *opencl-factory*)))
+      (with-engine clblast-double queue
+        (block-test/test-all *opencl-factory*)
+        (real-test/test-blas *opencl-factory*)
+        (test-blas-clblast *opencl-factory*)
+        (test-lapack-clblast *opencl-factory*)
+        (device-test/test-all *opencl-factory*)
+        (math-test/test-all-device *opencl-factory*)))))