From 7bb59fceb73431ab06b49f6c0e19a028ef2f82d7 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sun, 11 Jul 2021 16:00:29 +0200 Subject: [PATCH] Clean up some warnings --- interface/gemm.c | 2 ++ interface/gemv.c | 2 +- interface/ger.c | 2 +- 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/interface/gemm.c b/interface/gemm.c index cd5d005..10426fd 100644 --- a/interface/gemm.c +++ b/interface/gemm.c @@ -126,6 +126,7 @@ void NAME(char *TRANSA, char *TRANSB, #ifdef SMP double MNK; +#if defined(USE_SIMPLE_THREADED_LEVEL3) || !defined(NO_AFFINITY) #ifndef COMPLEX #ifdef XDOUBLE int mode = BLAS_XDOUBLE | BLAS_REAL; @@ -144,6 +145,7 @@ void NAME(char *TRANSA, char *TRANSB, #endif #endif #endif +#endif #if defined(SMP) && !defined(NO_AFFINITY) && !defined(USE_SIMPLE_THREADED_LEVEL3) int nodes; diff --git a/interface/gemv.c b/interface/gemv.c index b6c2e60..1f14cdb 100644 --- a/interface/gemv.c +++ b/interface/gemv.c @@ -203,7 +203,7 @@ void CNAME(enum CBLAS_ORDER order, if (alpha == ZERO) return; if (trans == 0 && incx == 1 && incy == 1 && m*n < 2304 *GEMM_MULTITHREAD_THRESHOLD) { - GEMV_N(m, n, 0, alpha, a, lda, x, incx, y, incy, buffer); + GEMV_N(m, n, 0, alpha, a, lda, x, incx, y, incy, NULL); return; } diff --git a/interface/ger.c b/interface/ger.c index 1c72d51..af6ae86 100644 --- a/interface/ger.c +++ b/interface/ger.c @@ -165,7 +165,7 @@ void CNAME(enum CBLAS_ORDER order, if (alpha == 0.) return; if (incx == 1 && incy == 1 && 1L*m*n <= 2048 *GEMM_MULTITHREAD_THRESHOLD) { - GER(m, n, 0, alpha, x, incx, y, incy, a, lda, buffer); + GER(m, n, 0, alpha, x, incx, y, incy, a, lda, NULL); return; } -- 2.7.4