From bf93459746d374172402cdfb54079860f4b39c60 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Tue, 12 Mar 2024 15:45:23 +0100 Subject: [PATCH 1/6] fix loop condition for incx < 0 --- kernel/arm/nrm2.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/kernel/arm/nrm2.c b/kernel/arm/nrm2.c index 8cc189fe3..0b6323f29 100644 --- a/kernel/arm/nrm2.c +++ b/kernel/arm/nrm2.c @@ -61,7 +61,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) if ( n == 1 ) return( ABS(x[0]) ); n *= inc_x; - while(i < n) + while(abs(i) < abs(n)) { if ( x[i] != 0.0 ) From 23796f8d31e392e8834d2413c7299b6285d035ef Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Tue, 12 Mar 2024 15:46:23 +0100 Subject: [PATCH 2/6] fix loop condition for incx < 0 --- kernel/arm/znrm2.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/kernel/arm/znrm2.c b/kernel/arm/znrm2.c index 28bb0eda5..bc78c8948 100644 --- a/kernel/arm/znrm2.c +++ b/kernel/arm/znrm2.c @@ -62,7 +62,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) inc_x2 = 2 * inc_x; n *= inc_x2; - while(i < n) + while(abs(i) < abs(n)) { if ( x[i] != 0.0 ) From f747aedb52f744dc236b98479da0d42b484e917a Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Tue, 12 Mar 2024 15:47:17 +0100 Subject: [PATCH 3/6] fix loop condition for incx < 0 --- kernel/mips/znrm2.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/kernel/mips/znrm2.c b/kernel/mips/znrm2.c index d11a6bd4a..811b8b173 100644 --- a/kernel/mips/znrm2.c +++ b/kernel/mips/znrm2.c @@ -53,7 +53,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) inc_x2 = 2 * inc_x; n *= inc_x2; - while(i < n) + while(abs(i) < abs(n)) { if ( x[i] != 0.0 ) From 09e84bd29a88efeabec04f3354da984ed51865f7 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Tue, 12 Mar 2024 15:48:00 +0100 Subject: [PATCH 4/6] fix loop condition for incx < 0 --- kernel/mips/nrm2.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/kernel/mips/nrm2.c b/kernel/mips/nrm2.c index 8cc189fe3..0b6323f29 100644 --- a/kernel/mips/nrm2.c +++ b/kernel/mips/nrm2.c @@ -61,7 +61,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) if ( n == 1 ) return( ABS(x[0]) ); n *= inc_x; - while(i < n) + while(abs(i) < abs(n)) { if ( x[i] != 0.0 ) From 20016a0096fb9c185739476f44650f254881580e Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Tue, 12 Mar 2024 15:48:55 +0100 Subject: [PATCH 5/6] fix loop condition for incx < 0 --- kernel/riscv64/nrm2.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/kernel/riscv64/nrm2.c b/kernel/riscv64/nrm2.c index 8cc189fe3..0b6323f29 100644 --- a/kernel/riscv64/nrm2.c +++ b/kernel/riscv64/nrm2.c @@ -61,7 +61,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) if ( n == 1 ) return( ABS(x[0]) ); n *= inc_x; - while(i < n) + while(abs(i) < abs(n)) { if ( x[i] != 0.0 ) From 6b89e1f1d7f383f54adf4668e23753b8b9fdc260 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Tue, 12 Mar 2024 15:49:41 +0100 Subject: [PATCH 6/6] fix loop condition for incx < 0 --- kernel/riscv64/znrm2.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/kernel/riscv64/znrm2.c b/kernel/riscv64/znrm2.c index 28bb0eda5..bc78c8948 100644 --- a/kernel/riscv64/znrm2.c +++ b/kernel/riscv64/znrm2.c @@ -62,7 +62,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) inc_x2 = 2 * inc_x; n *= inc_x2; - while(i < n) + while(abs(i) < abs(n)) { if ( x[i] != 0.0 )