add handling of dummy2 flag

martin-frbg · web-flow · commit 43484f717587 · 2025-05-24T06:38:01.000-07:00
diff --git a/kernel/mips/cscal_msa.c b/kernel/mips/cscal_msa.c
@@ -47,7 +47,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
 
     if (1 == inc_x)
     {
-        if ((0.0 == da_r) && (0.0 == da_i))
+        if ((0.0 == da_r) && (0.0 == da_i) && !dummy2)
         {
             v4f32 zero_v = {0.0, 0.0, 0.0, 0.0};
 
@@ -508,7 +508,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
     {
         inc_x2 = 2 * inc_x;
 
-        if ((0.0 == da_r) && (0.0 == da_i))
+        if ((0.0 == da_r) && (0.0 == da_i) && !dummy2)
         {
             for (i = n; i--;)
             {
diff --git a/kernel/mips/zscal.c b/kernel/mips/zscal.c
@@ -39,7 +39,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
 	{
 		if ( da_r == 0.0 )
 		{
-			if ( da_i == 0.0 )
+			if ( da_i == 0.0 && !dummy2)
 			{
 				temp = 0.0;
 				x[ip+1] = 0.0 ;
diff --git a/kernel/mips/zscal_msa.c b/kernel/mips/zscal_msa.c
@@ -47,7 +47,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
 
     if (1 == inc_x)
     {
-        if ((0.0 == da_r) && (0.0 == da_i))
+        if ((0.0 == da_r) && (0.0 == da_i) && !dummy2)
         {
             v2f64 zero_v = {0.0, 0.0};
 
@@ -471,7 +471,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
     {
         inc_x2 = 2 * inc_x;
 
-        if ((0.0 == da_r) && (0.0 == da_i))
+        if ((0.0 == da_r) && (0.0 == da_i) && !dummy2)
         {
             v2f64 zero_v = {0.0, 0.0};
 

Original file line number	Diff line number	Diff line change
`@@ -47,7 +47,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,`
`47`	`47`
`48`	`48`	`if (1 == inc_x)`
`49`	`49`	`{`
`50`		`- if ((0.0 == da_r) && (0.0 == da_i))`
	`50`	`+ if ((0.0 == da_r) && (0.0 == da_i) && !dummy2)`
`51`	`51`	`{`
`52`	`52`	`v4f32 zero_v = {0.0, 0.0, 0.0, 0.0};`
`53`	`53`
`@@ -508,7 +508,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,`
`508`	`508`	`{`
`509`	`509`	`inc_x2 = 2 * inc_x;`
`510`	`510`
`511`		`- if ((0.0 == da_r) && (0.0 == da_i))`
	`511`	`+ if ((0.0 == da_r) && (0.0 == da_i) && !dummy2)`
`512`	`512`	`{`
`513`	`513`	`for (i = n; i--;)`
`514`	`514`	`{`
Original file line number	Diff line number	Diff line change
`@@ -39,7 +39,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F`
`39`	`39`	`{`
`40`	`40`	`if ( da_r == 0.0 )`
`41`	`41`	`{`
`42`		`- if ( da_i == 0.0 )`
	`42`	`+ if ( da_i == 0.0 && !dummy2)`
`43`	`43`	`{`
`44`	`44`	`temp = 0.0;`
`45`	`45`	`x[ip+1] = 0.0 ;`