scalar indexing for unified arrays

Author: michel2323

src/array.jl

@@ -345,6 +345,19 @@ function Base.unsafe_convert(::Type{ZePtr{T}}, x::oneArray{T}) where {T}
 end
 
 
+## indexing
+
+# Host-accessible arrays can be indexed from CPU, bypassing GPUArrays restrictions
+function Base.getindex(x::oneArray{<:Any, <:Any, <:Union{oneL0.HostBuffer,oneL0.SharedBuffer}}, I::Int)
+  @boundscheck checkbounds(x, I)
+  unsafe_load(pointer(x, I; type=oneL0.HostBuffer))
+end
+
+function Base.setindex!(x::oneArray{<:Any, <:Any, <:Union{oneL0.HostBuffer,oneL0.SharedBuffer}}, v, I::Int)
+  @boundscheck checkbounds(x, I)
+  unsafe_store!(pointer(x, I; type=oneL0.HostBuffer), v)
+end
+
 
 ## interop with GPU arrays