src/aubio_priv.h: add aliases for cblas_xswap
authorPaul Brossier <piem@piem.org>
Sun, 6 Sep 2015 08:26:05 +0000 (10:26 +0200)
committerPaul Brossier <piem@piem.org>
Sun, 6 Sep 2015 08:26:05 +0000 (10:26 +0200)
src/aubio_priv.h
src/mathutils.c

index 7f5ed61..35b55fc 100644 (file)
 #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 */
 
index f3e79b6..a2f73e5 100644 (file)
@@ -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
 }