better host array detection

Author: lkdvos

src/linalg.jl

@@ -72,8 +72,8 @@ function LinearAlgebra.mul!(
     return C
 end
 
-isblasmatrix(A::StridedView{T, 2}) where {T} = false
-function isblasmatrix(A::StridedView{T, 2, <:Array}) where {T <: LinearAlgebra.BlasFloat}
+function isblasmatrix(A::StridedView{T, 2}) where {T <: LinearAlgebra.BlasFloat}
+    pointer(x) isa Ptr || return false
     if A.op == identity
         return stride(A, 1) == 1 || stride(A, 2) == 1
     elseif A.op == conj
@@ -82,17 +82,6 @@ function isblasmatrix(A::StridedView{T, 2, <:Array}) where {T <: LinearAlgebra.B
         return false
     end
 end
-@static if isdefined(Core, :Memory)
-    function isblasmatrix(A::StridedView{T, 2, <:Memory}) where {T <: LinearAlgebra.BlasFloat}
-        if A.op == identity
-            return stride(A, 1) == 1 || stride(A, 2) == 1
-        elseif A.op == conj
-            return stride(A, 2) == 1
-        else # should never happen
-            return false
-        end
-    end
-end
 function getblasmatrix(A::StridedView{T, 2}) where {T <: LinearAlgebra.BlasFloat}
     if A.op == identity
         if stride(A, 1) == 1