diff --git a/kernel/power/idamax.c b/kernel/power/idamax.c index 5bdc0a13c..337fa54f8 100644 --- a/kernel/power/idamax.c +++ b/kernel/power/idamax.c @@ -324,6 +324,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) { if (inc_x == 1) { +#if defined(_CALL_ELF) && (_CALL_ELF == 2) BLASLONG n1 = n & -32; if (n1 > 0) { @@ -331,7 +332,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) { i = n1; } - +#endif while (i < n) { if (ABS(x[i]) > maxf) { max = i; diff --git a/kernel/power/idamin.c b/kernel/power/idamin.c index 7fe0f8a33..85dd49ac1 100644 --- a/kernel/power/idamin.c +++ b/kernel/power/idamin.c @@ -326,13 +326,15 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) { minf = ABS(x[0]); //index's not incremented if (inc_x == 1) { +#if defined(_CALL_ELF) && (_CALL_ELF == 2) BLASLONG n1 = n & -32; if (n1 > 0) { min = diamin_kernel_32(n1, x, &minf); i = n1; } - +#endif + while (i < n) { if (ABS(x[i]) < minf) { min = i; diff --git a/kernel/power/izamax.c b/kernel/power/izamax.c index cfe78c8c0..3c132f81a 100644 --- a/kernel/power/izamax.c +++ b/kernel/power/izamax.c @@ -316,6 +316,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) if (inc_x == 1) { +#if defined(_CALL_ELF) && (_CALL_ELF == 2) BLASLONG n1 = n & -16; if (n1 > 0) { @@ -323,6 +324,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) i = n1; ix = n1 << 1; } +#endif while(i < n) { diff --git a/kernel/power/izamin.c b/kernel/power/izamin.c index 1ffa3ba8b..8da2189c6 100644 --- a/kernel/power/izamin.c +++ b/kernel/power/izamin.c @@ -314,6 +314,8 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) if (inc_x == 1) { minf = CABS1(x,0); //index will not be incremented + +#if defined(_CALL_ELF) && (_CALL_ELF == 2) BLASLONG n1 = n & -16; if (n1 > 0) { @@ -321,7 +323,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) i = n1; ix = n1 << 1; } - +#endif while(i < n) {