From a77d10e87e3c0ab55ec14d74c285bc95c06285c3 Mon Sep 17 00:00:00 2001 From: "Field G. Van Zee" Date: Fri, 12 Apr 2013 11:40:55 -0500 Subject: [PATCH] Fixed an bug in axpyv/axpym when alpha is unit. Details: - Fixed bug whereby axpyv and axpym were incorrectly simplifying to a copy, rather than an add, when alpha = 1. Thanks to Bryan Marker for identifying this bug. --- frame/1/axpyv/bli_axpyv_unb_var1.c | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/frame/1/axpyv/bli_axpyv_unb_var1.c b/frame/1/axpyv/bli_axpyv_unb_var1.c index 07883ff05..7126c59ed 100644 --- a/frame/1/axpyv/bli_axpyv_unb_var1.c +++ b/frame/1/axpyv/bli_axpyv_unb_var1.c @@ -97,7 +97,7 @@ void bli_axpyv_unb_var1( obj_t* alpha, #undef GENTFUNC3 -#define GENTFUNC3( ctype_a, ctype_x, ctype_y, cha, chx, chy, varname, copyvker ) \ +#define GENTFUNC3( ctype_a, ctype_x, ctype_y, cha, chx, chy, varname, addvker ) \ \ void PASTEMAC3(cha,chx,chy,varname)( \ conj_t conjx, \ @@ -119,13 +119,13 @@ void PASTEMAC3(cha,chx,chy,varname)( \ /* If alpha is zero, return. */ \ if ( PASTEMAC(cha,eq0)( *alpha_cast ) ) return; \ \ - /* If alpha is one, use copyv. */ \ + /* If alpha is one, use addv. */ \ if ( PASTEMAC(cha,eq1)( *alpha_cast ) ) \ { \ - PASTEMAC2(chx,chy,copyvker)( conjx, \ - n, \ - x, incx, \ - y, incy ); \ + PASTEMAC2(chx,chy,addvker)( conjx, \ + n, \ + x, incx, \ + y, incy ); \ return; \ } \ \ @@ -156,13 +156,13 @@ void PASTEMAC3(cha,chx,chy,varname)( \ // Define the basic set of functions unconditionally, and then also some // mixed datatype functions if requested. -INSERT_GENTFUNC3_BASIC( axpyv_unb_var1, COPYV_KERNEL ) +INSERT_GENTFUNC3_BASIC( axpyv_unb_var1, ADDV_KERNEL ) #ifdef BLIS_ENABLE_MIXED_DOMAIN_SUPPORT -INSERT_GENTFUNC3_MIX_D( axpyv_unb_var1, COPYV_KERNEL ) +INSERT_GENTFUNC3_MIX_D( axpyv_unb_var1, ADDV_KERNEL ) #endif #ifdef BLIS_ENABLE_MIXED_PRECISION_SUPPORT -INSERT_GENTFUNC3_MIX_P( axpyv_unb_var1, COPYV_KERNEL ) +INSERT_GENTFUNC3_MIX_P( axpyv_unb_var1, ADDV_KERNEL ) #endif