From: Paul Brossier <piem@piem.org>
Date: Sun, 6 Sep 2015 08:26:05 +0000 (+0200)
Subject: src/aubio_priv.h: add aliases for cblas_xswap
X-Git-Tag: 0.4.4~300^2~368
X-Git-Url: https://git.aubio.org/?p=aubio.git;a=commitdiff_plain;h=b046c8c7dd292b931f6c002d748e2fc180520424

src/aubio_priv.h: add aliases for cblas_xswap
---

diff --git a/src/aubio_priv.h b/src/aubio_priv.h
index 7f5ed615..35b55fc7 100644
--- a/src/aubio_priv.h
+++ b/src/aubio_priv.h
@@ -103,9 +103,13 @@
 #if !HAVE_AUBIO_DOUBLE
 #define aubio_catlas_set      catlas_sset
 #define aubio_cblas_copy      cblas_scopy
+#define aubio_cblas_swap      cblas_sswap
+#define aubio_cblas_dot       cblas_sdot
 #else /* HAVE_AUBIO_DOUBLE */
 #define aubio_catlas_set      catlas_dset
 #define aubio_cblas_copy      cblas_dcopy
+#define aubio_cblas_swap      cblas_dswap
+#define aubio_cblas_dot       cblas_ddot
 #endif /* HAVE_AUBIO_DOUBLE */
 #endif /* HAVE_ATLAS */
 
diff --git a/src/mathutils.c b/src/mathutils.c
index f3e79b61..a2f73e5a 100644
--- a/src/mathutils.c
+++ b/src/mathutils.c
@@ -260,7 +260,7 @@ fvec_shift (fvec_t * s)
   }
 #else
   uint_t half = s->length / 2;
-  aubio_cblas_xswap(half, s->data, 1, s->data + half, 1);
+  aubio_cblas_swap(half, s->data, 1, s->data + half, 1);
 #endif
 }