Use OPENBLAS_MAKE_COMPLEX_FLOAT on PPC only
@@ -48,11 +48,12 @@ OPENBLAS_COMPLEX_FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLA
dot[0]=0.0;
dot[1]=0.0;
-/*
+#if !defined(__PPC__)
CREAL(result) = 0.0 ;
CIMAG(result) = 0.0 ;
-*/
+#else
result = OPENBLAS_MAKE_COMPLEX_FLOAT(0.0,0.0);
+#endif
if ( n < 1 ) return(result);
inc_x2 = 2 * inc_x ;
@@ -72,9 +73,12 @@ OPENBLAS_COMPLEX_FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLA
i++ ;
}
- /*CREAL(result) = dot[0];
- CIMAG(result) = dot[1];*/
+#if !defined(__POWER__)
+ CREAL(result) = dot[0];
+ CIMAG(result) = dot[1];
+#else
result = OPENBLAS_MAKE_COMPLEX_FLOAT(dot[0],dot[1]);
+#endif
return(result);
}
