Browse Source

fix function typecasts

tags/v0.3.20
Martin Kroeker GitHub 3 years ago
parent
commit
64365c919e
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 5 additions and 5 deletions
  1. +1
    -1
      interface/axpy.c
  2. +1
    -1
      interface/scal.c
  3. +2
    -2
      interface/zaxpy.c
  4. +1
    -1
      interface/zscal.c

+ 1
- 1
interface/axpy.c View File

@@ -115,7 +115,7 @@ void CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx, FLOAT *y, blasint inc
#endif #endif


blas_level1_thread(mode, n, 0, 0, &alpha, 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 #endif


+ 1
- 1
interface/scal.c View File

@@ -102,7 +102,7 @@ void CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx){
#else #else
&alpha, &alpha,
#endif #endif
x, incx, NULL, 0, NULL, 0, (void *)SCAL_K, nthreads);
x, incx, NULL, 0, NULL, 0, (int (*)(void))SCAL_K, nthreads);


} }
#endif #endif


+ 2
- 2
interface/zaxpy.c View File

@@ -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, blas_level1_thread(mode, n, 0, 0, ALPHA, x, incx, y, incy, NULL, 0,
#ifndef CONJ #ifndef CONJ
(void *)AXPYU_K,
(int (*)(void))AXPYU_K,
#else #else
(void *)AXPYC_K,
(int (*)(void))AXPYC_K,
#endif #endif
nthreads); nthreads);
} }


+ 1
- 1
interface/zscal.c View File

@@ -108,7 +108,7 @@ void CNAME(blasint n, FLOAT alpha_r, void *vx, blasint incx){
mode = BLAS_SINGLE | BLAS_COMPLEX; mode = BLAS_SINGLE | BLAS_COMPLEX;
#endif #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 #endif


Loading…
Cancel
Save