From b046c8c7dd292b931f6c002d748e2fc180520424 Mon Sep 17 00:00:00 2001 From: Paul Brossier Date: Sun, 6 Sep 2015 10:26:05 +0200 Subject: [PATCH] src/aubio_priv.h: add aliases for cblas_xswap --- src/aubio_priv.h | 4 ++++ src/mathutils.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 } -- 2.11.0