fix function typecasts

diff --git a/interface/axpy.c b/interface/axpy.c
index eaa19f4..5304ebe 100644 (file)
--- a/interface/axpy.c
+++ b/interface/axpy.c
@@ -115,7 +115,7 @@ void CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx, FLOAT *y, blasint inc
 #endif
 
     blas_level1_thread(mode, n, 0, 0, &alpha,
-                      x, incx, y, incy, NULL, 0, (void *)AXPYU_K, nthreads);
+                      x, incx, y, incy, NULL, 0,  (int (*)(void))AXPYU_K, nthreads);
 
   }
 #endif

diff --git a/interface/scal.c b/interface/scal.c
index 6d07b16..0a7fee6 100644 (file)
--- a/interface/scal.c
+++ b/interface/scal.c
@@ -102,7 +102,7 @@ void CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx){
 #else
                       &alpha,
 #endif
-                      x, incx, NULL, 0, NULL, 0, (void *)SCAL_K, nthreads);
+                      x, incx, NULL, 0, NULL, 0,  (int (*)(void))SCAL_K, nthreads);
 
   }
 #endif

diff --git a/interface/zaxpy.c b/interface/zaxpy.c
index da3b48e..0e16860 100644 (file)
--- a/interface/zaxpy.c
+++ b/interface/zaxpy.c
@@ -128,9 +128,9 @@ void CNAME(blasint n, FLOAT *ALPHA, FLOAT *x, blasint incx, FLOAT *y, blasint in
 
     blas_level1_thread(mode, n, 0, 0, ALPHA, x, incx, y, incy, NULL, 0,
 #ifndef CONJ
-                      (void *)AXPYU_K,
+                       (int (*)(void))AXPYU_K,
 #else
-                      (void *)AXPYC_K,
+                       (int (*)(void))AXPYC_K,
 #endif
                       nthreads);
   }

diff --git a/interface/zscal.c b/interface/zscal.c
index bfaddc2..4983773 100644 (file)
--- a/interface/zscal.c
+++ b/interface/zscal.c
@@ -108,7 +108,7 @@ void CNAME(blasint n, FLOAT alpha_r, void *vx, blasint incx){
     mode  =  BLAS_SINGLE | BLAS_COMPLEX;
 #endif
 
-    blas_level1_thread(mode, n, 0, 0,  alpha, x, incx, NULL, 0, NULL, 0, (void *)SCAL_K, nthreads);
+    blas_level1_thread(mode, n, 0, 0,  alpha, x, incx, NULL, 0, NULL, 0, (int (*)(void))SCAL_K, nthreads);
 
   }
 #endif