src/aubio_priv.h: add aliases for cblas_xswap

diff --git a/src/aubio_priv.h b/src/aubio_priv.h
index 7f5ed61..35b55fc 100644 (file)
--- 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
 #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
 #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 */
 
 #endif /* HAVE_AUBIO_DOUBLE */
 #endif /* HAVE_ATLAS */
 

diff --git a/src/mathutils.c b/src/mathutils.c
index f3e79b6..a2f73e5 100644 (file)
--- a/src/mathutils.c
+++ b/src/mathutils.c
@@ -260,7 +260,7 @@ fvec_shift (fvec_t * s)
   }
 #else
   uint_t half = s->length / 2;
   }
 #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
 }
 
 #endif
 }