fix function typecast

martin-frbg · web-flow · commit c49d46f25f9c · 2021-12-21T18:49:18.000+01:00
diff --git a/lapack/getrf/getrf_parallel.c b/lapack/getrf/getrf_parallel.c
@@ -662,7 +662,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa,
 
     blas_level1_thread(mode, bk, is + bk + offset + 1, mn + offset, (void *)dummyalpha,
 		       a + (- offset + is * lda) * COMPSIZE, lda, NULL, 0,
-		       ipiv, 1, (void *)LASWP_PLUS, args -> nthreads);
+		       ipiv, 1, (int (*)(void))LASWP_PLUS, args -> nthreads);
 
     is += bk;
   }

Original file line number	Diff line number	Diff line change
`@@ -662,7 +662,7 @@ blasint CNAME(blas_arg_t args, BLASLONG range_m, BLASLONG range_n, FLOAT sa,`
`662`	`662`
`663`	`663`	`blas_level1_thread(mode, bk, is + bk + offset + 1, mn + offset, (void *)dummyalpha,`
`664`	`664`	`a + (- offset + is * lda) * COMPSIZE, lda, NULL, 0,`
`665`		`- ipiv, 1, (void *)LASWP_PLUS, args -> nthreads);`
	`665`	`+ ipiv, 1, (int (*)(void))LASWP_PLUS, args -> nthreads);`
`666`	`666`
`667`	`667`	`is += bk;`
`668`	`668`	`}`