From 3e6494e0238049e6e03863c766ec5f6dd45eb26e Mon Sep 17 00:00:00 2001
From: Sambit Kumar Dash <sambitdash@gmail.com>
Date: Sat, 3 Nov 2018 20:59:32 +0530
Subject: [PATCH] Additional fixes for Julia 1.0 support as well as failures on
 OpenCL 1.1

---
 src/context.jl  |  6 +++---
 src/kernel.jl   |  8 +++++---
 src/platform.jl | 27 ---------------------------
 src/program.jl  |  8 ++++----
 4 files changed, 12 insertions(+), 37 deletions(-)

diff --git a/src/context.jl b/src/context.jl
index 15c72c7e..b4a98de9 100644
--- a/src/context.jl
+++ b/src/context.jl
@@ -91,11 +91,11 @@ end
 const io_lock = ReentrantLock()
 function log_error(message...)
     @async begin
-        lock(STDERR)
+        lock(stderr)
         lock(io_lock)
-        print(STDERR, string(message..., "\n"))
+        print(stderr, string(message..., "\n"))
         unlock(io_lock)
-        unlock(STDERR)
+        unlock(stderr)
     end
 end
 
diff --git a/src/kernel.jl b/src/kernel.jl
index 2fe994cd..1d4c2a91 100644
--- a/src/kernel.jl
+++ b/src/kernel.jl
@@ -406,11 +406,13 @@ function info(k::Kernel, kinfo::Symbol)
         return Program(ret[], retain=true)
     end
 
+    # Only supported for version 1.2 and above
     attributes(k::Kernel) = begin
         size = Ref{Csize_t}()
-        api.clGetKernelInfo(k.id, CL_KERNEL_ATTRIBUTES,
-                            0, C_NULL, size)
-        if size[] <= 1
+        rcode = api.clGetKernelInfo(k.id, CL_KERNEL_ATTRIBUTES,
+                                    0, C_NULL, size)
+        # Version 1.1 mostly MESA drivers will pass through the below condition
+        if rcode == CL_INVALID_VALUE || size[] <= 1
             return ""
         end
         result = Vector{CL_char}(undef, size[])
diff --git a/src/platform.jl b/src/platform.jl
index 168e78de..75e2eebf 100644
--- a/src/platform.jl
+++ b/src/platform.jl
@@ -60,33 +60,6 @@ function info(p::Platform, pinfo::CL_platform_info)
     return CLString(result)
 end
 
-
-let info_map = Dict{Symbol, CL_platform_info}(
-        :profile => CL_PLATFORM_PROFILE,
-        :version => CL_PLATFORM_VERSION,
-        :name    => CL_PLATFORM_NAME,
-        :vendor  => CL_PLATFORM_VENDOR,
-        :extensions => CL_PLATFORM_EXTENSIONS
-    )
-    global info
-    function info(p::Platform, pinfo::Symbol)
-        try
-            cl_info = info_map[pinfo]
-            if pinfo == :extensions
-                split(info(p, cl_info))
-            else
-                info(p, cl_info)
-            end
-        catch err
-            if isa(err, KeyError)
-                throw(ArgumentError("OpenCL.Platform has no info for: $pinfo"))
-            else
-                throw(err)
-            end
-        end
-    end
-end
-
 function devices(p::Platform, dtype::CL_device_type)
     try
         ndevices = Ref{CL_uint}()
diff --git a/src/program.jl b/src/program.jl
index a381b6d9..5763f3be 100644
--- a/src/program.jl
+++ b/src/program.jl
@@ -95,11 +95,11 @@ function build!(p::Program; options = "", raise = true)
     end
     for (dev, status) in cl.info(p, :build_status)
         if status == cl.CL_BUILD_ERROR
-            println(STDERR, "Couldn't compile kernel: ")
+            println(stderr, "Couldn't compile kernel: ")
             source = info(p, :source)
-            print_with_linenumbers(source, "    ", STDERR)
-            println(STDERR, "With following build error:")
-            println(STDERR, cl.info(p, :build_log)[dev])
+            print_with_linenumbers(source, "    ", stderr)
+            println(stderr, "With following build error:")
+            println(stderr, cl.info(p, :build_log)[dev])
             raise && @check err # throw the build error when raise!
         end
     end