Fix precision of mips dsdot

2018-04-10 23:30:59 +02:00 · 2018-04-10 23:30:59 +02:00 · 0fe434598b
parent 0ab5bf1746
commit 0fe434598b
1 changed files with 5 additions and 2 deletions
--- a/kernel/mips/dot.c
+++ b/kernel/mips/dot.c
@ -41,8 +41,11 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y)

 	while(i < n)
 	{
-
+#if defined(DSDOT)
+		dot += (double)(y[iy] * (double)x[ix] ;
+#else
 		dot += y[iy] * x[ix];
+#endif				
 		ix  += inc_x ;
 		iy  += inc_y ;
 		i++ ;