reflection works

Author: vchuravy

Project.toml

@@ -14,6 +14,7 @@ MacroTools = "1914dd2f-81c6-5fcd-8719-6d5c9610ff09"
 OpenCL_jll = "6cb37087-e8b6-5417-8430-1f242f1e46e4"
 PrecompileTools = "aea7be01-6a6a-4083-8856-8a6e6704d82a"
 Requires = "ae029012-a4dd-5104-9daa-d747884805df"
+SPIRVIntrinsics = "71d1d633-e7e8-4a92-83a1-de8814b09ba8"
 SparseArrays = "2f01184e-e22b-5df5-ae63-d93ebab69eaf"
 StaticArrays = "90137ffa-7385-5640-81b9-e52037218182"
 UUIDs = "cf7118a7-6976-5b1a-9a39-7adc72f591a4"

src/pocl/compiler/compilation.jl

@@ -59,7 +59,7 @@ function compile(@nospecialize(job::CompilerJob))
         GPUCompiler.compile(:obj, job)
     end
 
-    (obj, entry=LLVM.name(meta.entry))
+    (;obj, entry=LLVM.name(meta.entry))
 end
 
 # link into an executable kernel

src/pocl/compiler/execution.jl

@@ -85,18 +85,18 @@ struct KernelAdaptor
     svm_pointers::Vector{Ptr{Cvoid}}
 end
 
-# assume directly-passed pointers are SVM pointers
-function Adapt.adapt_storage(to::KernelAdaptor, ptr::Ptr{T}) where {T}
-    push!(to.svm_pointers, ptr)
-    return ptr
-end
-
-# convert SVM buffers to their GPU address
-function Adapt.adapt_storage(to::KernelAdaptor, buf::cl.SVMBuffer)
-    ptr = pointer(buf)
-    push!(to.svm_pointers, ptr)
-    return ptr
-end
+# # assume directly-passed pointers are SVM pointers
+# function Adapt.adapt_storage(to::KernelAdaptor, ptr::Ptr{T}) where {T}
+#     push!(to.svm_pointers, ptr)
+#     return ptr
+# end
+
+# # convert SVM buffers to their GPU address
+# function Adapt.adapt_storage(to::KernelAdaptor, buf::cl.SVMBuffer)
+#     ptr = pointer(buf)
+#     push!(to.svm_pointers, ptr)
+#     return ptr
+# end
 
 # Base.RefValue isn't GPU compatible, so provide a compatible alternative
 # TODO: port improvements from CUDA.jl

src/pocl/compiler/reflection.jl

@@ -28,7 +28,7 @@ for method in (:code_typed, :code_warntype, :code_llvm, :code_native)
                          kernel::Bool=false, kwargs...)
             compiler_kwargs, kwargs = split_kwargs_runtime(kwargs, COMPILER_KWARGS)
             source = methodinstance(typeof(func), Base.to_tuple_type(types))
-            config = compiler_config(cl.device(); kernel, compiler_kwargs...)
+            config = compiler_config(device(); kernel, compiler_kwargs...)
             job = CompilerJob(source, config)
             GPUCompiler.$method($(args...); kwargs...)
         end
@@ -60,7 +60,7 @@ export @device_code_lowered, @device_code_typed, @device_code_warntype, @device_
 #
 
 """
-    Metal.return_type(f, tt) -> r::Type
+    POCL.return_type(f, tt) -> r::Type
 
 Return a type `r` such that `f(args...)::r` where `args::tt`.
 """