Fix precision of zarch DSDOT

martin-frbg · web-flow · commit 877023e1e194 · 2019-01-31T21:22:26.000+01:00
from patch provided by aarnez in #991
diff --git a/kernel/zarch/dsdot.c b/kernel/zarch/dsdot.c
@@ -132,7 +132,7 @@ double CNAME(BLASLONG n,FLOAT *x,BLASLONG inc_x,FLOAT *y,BLASLONG inc_y)
 		while(i < n)
 		{
 
-			dot += y[i] * x[i] ;
+			dot += (double) y[i] * (double) x[i] ;
 			i++ ;
 
 		}
@@ -146,7 +146,8 @@ double CNAME(BLASLONG n,FLOAT *x,BLASLONG inc_x,FLOAT *y,BLASLONG inc_y)
 	while(i < n1)
 	{
 
-		dot += y[iy] * x[ix] + y[iy+inc_y] * x[ix+inc_x];
+		dot += (double) y[iy] * (double) x[ix];
+		dot += (double) y[iy+inc_y] * (double) x[ix+inc_x];
 		ix  += inc_x*2 ;
 		iy  += inc_y*2 ;
 		i+=2 ;
@@ -156,7 +157,7 @@ double CNAME(BLASLONG n,FLOAT *x,BLASLONG inc_x,FLOAT *y,BLASLONG inc_y)
 	while(i < n)
 	{
 
-		dot += y[iy] * x[ix] ;
+		dot += (double) y[iy] * (double) x[ix] ;
 		ix  += inc_x ;
 		iy  += inc_y ;
 		i++ ;

Original file line number	Diff line number	Diff line change
`@@ -132,7 +132,7 @@ double CNAME(BLASLONG n,FLOAT x,BLASLONG inc_x,FLOAT y,BLASLONG inc_y)`
`132`	`132`	`while(i < n)`
`133`	`133`	`{`
`134`	`134`
`135`		`- dot += y[i] * x[i] ;`
	`135`	`+ dot += (double) y[i] * (double) x[i] ;`
`136`	`136`	`i++ ;`
`137`	`137`
`138`	`138`	`}`
`@@ -146,7 +146,8 @@ double CNAME(BLASLONG n,FLOAT x,BLASLONG inc_x,FLOAT y,BLASLONG inc_y)`
`146`	`146`	`while(i < n1)`
`147`	`147`	`{`
`148`	`148`
`149`		`- dot += y[iy] * x[ix] + y[iy+inc_y] * x[ix+inc_x];`
	`149`	`+ dot += (double) y[iy] * (double) x[ix];`
	`150`	`+ dot += (double) y[iy+inc_y] * (double) x[ix+inc_x];`
`150`	`151`	`ix += inc_x*2 ;`
`151`	`152`	`iy += inc_y*2 ;`
`152`	`153`	`i+=2 ;`
`@@ -156,7 +157,7 @@ double CNAME(BLASLONG n,FLOAT x,BLASLONG inc_x,FLOAT y,BLASLONG inc_y)`
`156`	`157`	`while(i < n)`
`157`	`158`	`{`
`158`	`159`
`159`		`- dot += y[iy] * x[ix] ;`
	`160`	`+ dot += (double) y[iy] * (double) x[ix] ;`
`160`	`161`	`ix += inc_x ;`
`161`	`162`	`iy += inc_y ;`
`162`	`163`	`i++ ;`