shithub: aubio

Info  •  Files  •  Log  •  Branches

src/aubio_priv.h: add aliases for cblas_xswap

--- 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 */

--- a/src/mathutils.c

+++ b/src/mathutils.c

@@ -260,7 +260,7 @@

   }

 #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

 }