Fix compilation for big-endian POWER8

This commit is contained in:
Martin Kroeker
2019-11-17 22:58:32 +01:00
committed by GitHub
parent 7887c45077
commit eba0aeb7cd
7 changed files with 22 additions and 11 deletions

View File

@@ -324,15 +324,15 @@ 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) {
#if defined(_CALL_ELF) && (_CALL_ELF == 2)
if (n1 > 0) {
max = diamax_kernel_32(n1, x, &maxf);
i = n1;
}
#endif
#endif
while (i < n) {
if (ABS(x[i]) > maxf) {
max = i;