[POWER] Remove unused variable warnings.tags/v0.3.18
@@ -6,10 +6,6 @@ extern gotoblas_t gotoblas_POWER8; | |||||
#if (!defined __GNUC__) || ( __GNUC__ >= 6) | #if (!defined __GNUC__) || ( __GNUC__ >= 6) | ||||
extern gotoblas_t gotoblas_POWER9; | extern gotoblas_t gotoblas_POWER9; | ||||
#endif | #endif | ||||
//#if (!defined __GNUC__) || ( __GNUC__ >= 11) \ | |||||
// || (__GNUC__ == 10 && __GNUC_MINOR__ >= 2) | |||||
//#define HAVE_P10_SUPPORT 1 | |||||
//#endif | |||||
#ifdef HAVE_P10_SUPPORT | #ifdef HAVE_P10_SUPPORT | ||||
extern gotoblas_t gotoblas_POWER10; | extern gotoblas_t gotoblas_POWER10; | ||||
#endif | #endif | ||||
@@ -110,8 +110,6 @@ int CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, FLOAT | |||||
{ | { | ||||
BLASLONG i=0; | BLASLONG i=0; | ||||
BLASLONG ix=0,iy=0; | BLASLONG ix=0,iy=0; | ||||
FLOAT *x1=x; | |||||
FLOAT *y1=y; | |||||
FLOAT temp; | FLOAT temp; | ||||
if ( n <= 0 ) return(0); | if ( n <= 0 ) return(0); | ||||
@@ -139,7 +137,7 @@ int CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, FLOAT | |||||
BLASLONG n1 = n & -16; | BLASLONG n1 = n & -16; | ||||
if ( n1 > 0 ) | if ( n1 > 0 ) | ||||
{ | { | ||||
drot_kernel_16(n1, x1, y1, c, s); | |||||
drot_kernel_16(n1, x, y, c, s); | |||||
i=n1; | i=n1; | ||||
} | } | ||||
#endif | #endif | ||||
@@ -330,10 +330,10 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) { | |||||
if (inc_x == 1) { | if (inc_x == 1) { | ||||
BLASLONG n1 = n & -32; | |||||
#if defined(_CALL_ELF) && (_CALL_ELF == 2) | #if defined(_CALL_ELF) && (_CALL_ELF == 2) | ||||
#if defined(__VEC__) || defined(__ALTIVEC__) | #if defined(__VEC__) || defined(__ALTIVEC__) | ||||
BLASLONG n1 = n & -32; | |||||
if (n1 > 0) { | if (n1 > 0) { | ||||
max = diamax_kernel_32(n1, x, &maxf); | max = diamax_kernel_32(n1, x, &maxf); | ||||
@@ -389,7 +389,6 @@ static inline __attribute__ ((always_inline)) void solve16x8(FLOAT *a, FLOAT *b, | |||||
vector FLOAT *Vc6 = (vector FLOAT *) c6; | vector FLOAT *Vc6 = (vector FLOAT *) c6; | ||||
vector FLOAT *Vc7 = (vector FLOAT *) c7; | vector FLOAT *Vc7 = (vector FLOAT *) c7; | ||||
vector FLOAT VbS0, VbS1, VbS2, VbS3, VbS4, VbS5, VbS6, VbS7; | vector FLOAT VbS0, VbS1, VbS2, VbS3, VbS4, VbS5, VbS6, VbS7; | ||||
int j; | |||||
b[120] = (c0[15] *= a[255]); | b[120] = (c0[15] *= a[255]); | ||||
b[121] = (c1[15] *= a[255]); | b[121] = (c1[15] *= a[255]); | ||||
@@ -390,7 +390,6 @@ static inline __attribute__ ((always_inline)) void solve16x8(FLOAT *a, FLOAT *b, | |||||
vector FLOAT *Vc6 = (vector FLOAT *) c6; | vector FLOAT *Vc6 = (vector FLOAT *) c6; | ||||
vector FLOAT *Vc7 = (vector FLOAT *) c7; | vector FLOAT *Vc7 = (vector FLOAT *) c7; | ||||
vector FLOAT VbS0, VbS1, VbS2, VbS3, VbS4, VbS5, VbS6, VbS7; | vector FLOAT VbS0, VbS1, VbS2, VbS3, VbS4, VbS5, VbS6, VbS7; | ||||
int j; | |||||
b[0] = (c0[0] *= a[0]); | b[0] = (c0[0] *= a[0]); | ||||
b[1] = (c1[0] *= a[0]); | b[1] = (c1[0] *= a[0]); | ||||
@@ -607,7 +607,6 @@ static void add_y(BLASLONG n, FLOAT *src, FLOAT *dest, BLASLONG inc_dest, FLOAT | |||||
int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, FLOAT alpha_r, FLOAT alpha_i, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, FLOAT * buffer) { | int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, FLOAT alpha_r, FLOAT alpha_i, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, FLOAT * buffer) { | ||||
BLASLONG i; | BLASLONG i; | ||||
BLASLONG j; | |||||
FLOAT *a_ptr; | FLOAT *a_ptr; | ||||
FLOAT *x_ptr; | FLOAT *x_ptr; | ||||
FLOAT *y_ptr; | FLOAT *y_ptr; | ||||
@@ -738,7 +738,6 @@ static void add_y(BLASLONG n, FLOAT *src, FLOAT *dest, BLASLONG inc_dest, FLOAT | |||||
int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, FLOAT alpha_r, FLOAT alpha_i, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, FLOAT * buffer) { | int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, FLOAT alpha_r, FLOAT alpha_i, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y, FLOAT * buffer) { | ||||
BLASLONG i; | BLASLONG i; | ||||
BLASLONG j; | |||||
FLOAT *a_ptr; | FLOAT *a_ptr; | ||||
FLOAT *x_ptr; | FLOAT *x_ptr; | ||||
FLOAT *y_ptr; | FLOAT *y_ptr; | ||||