Convert hpmv input to a BlasInt. (#34360)

maleadt · dkarrasch · commit a2fe09e6a7e3 · 2020-01-13T18:14:27.000+01:00
diff --git a/stdlib/LinearAlgebra/src/blas.jl b/stdlib/LinearAlgebra/src/blas.jl
@@ -880,7 +880,7 @@ function hpmv!(uplo::AbstractChar,
     if length(AP) < Int64(N*(N+1)/2)
         throw(DimensionMismatch("Packed Hermitian matrix A has size smaller than length(x) =  $(N)."))
     end
-    GC.@preserve x y AP hpmv!(uplo, N, convert(T, α), AP, pointer(x), BlasInt(stride(x, 1)), convert(T, β), pointer(y), BlasInt(stride(y, 1)))
+    GC.@preserve x y AP hpmv!(uplo, BlasInt(N), convert(T, α), AP, pointer(x), BlasInt(stride(x, 1)), convert(T, β), pointer(y), BlasInt(stride(y, 1)))
     y
 end
 

Original file line number	Diff line number	Diff line change
`@@ -880,7 +880,7 @@ function hpmv!(uplo::AbstractChar,`
`880`	`880`	`if length(AP) < Int64(N*(N+1)/2)`
`881`	`881`	`throw(DimensionMismatch("Packed Hermitian matrix A has size smaller than length(x) = $(N)."))`
`882`	`882`	`end`
`883`		`- GC.@preserve x y AP hpmv!(uplo, N, convert(T, α), AP, pointer(x), BlasInt(stride(x, 1)), convert(T, β), pointer(y), BlasInt(stride(y, 1)))`
	`883`	`+ GC.@preserve x y AP hpmv!(uplo, BlasInt(N), convert(T, α), AP, pointer(x), BlasInt(stride(x, 1)), convert(T, β), pointer(y), BlasInt(stride(y, 1)))`
`884`	`884`	`y`
`885`	`885`	`end`
`886`	`886`