From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Sun, 11 Jul 2021 14:00:29 +0000 (+0200)
Subject: Clean up some warnings
X-Git-Tag: upstream/0.3.21~15^2~3^2
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=7bb59fceb73431ab06b49f6c0e19a028ef2f82d7;p=platform%2Fupstream%2Fopenblas.git

Clean up some warnings
---

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;
   }