dom/cl-blas
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't hardcode stride

Browse source
This commit is contained in:
dominik martinez 2025-05-21 23:17:15 -07:00
parent e4e449f562
commit 66b211e969
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/cl-blas.lisp
View file

@ -305,7 +305,7 @@
(defblas gemm-serial ((A 2) (B 2) (C 2) (alpha 0) (beta 0))
(loop with m fixnum = (array-dimension C 0)
with n fixnum = (array-dimension C 1)
with r-block fixnum = (* (floor (array-dimension A 1) 8) 8)
with r-block fixnum = (* (floor (array-dimension A 1) stride) stride)
with r fixnum = (array-dimension A 1)
with Bt of-type (simple-array float 2) = (transpose B)
for i fixnum from 0 below m