From a34a0a7abceb6682c841c1dbd43728005ff7b940 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Thu, 10 Aug 2023 16:56:52 +0200 Subject: [PATCH] Allow negative INCX (API change from version 3.10 of the reference implementation) --- kernel/riscv64/nrm2.c | 2 +- kernel/riscv64/znrm2.c | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/kernel/riscv64/nrm2.c b/kernel/riscv64/nrm2.c index fcff09337..8cc189fe3 100644 --- a/kernel/riscv64/nrm2.c +++ b/kernel/riscv64/nrm2.c @@ -57,7 +57,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) FLOAT absxi = 0.0; - if (n <= 0 || inc_x <= 0) return(0.0); + if (n <= 0 || inc_x == 0) return(0.0); if ( n == 1 ) return( ABS(x[0]) ); n *= inc_x; diff --git a/kernel/riscv64/znrm2.c b/kernel/riscv64/znrm2.c index fc1c8b54a..28bb0eda5 100644 --- a/kernel/riscv64/znrm2.c +++ b/kernel/riscv64/znrm2.c @@ -57,7 +57,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) BLASLONG inc_x2; FLOAT temp; - if (n <= 0 || inc_x <= 0) return(0.0); + if (n <= 0 || inc_x == 0) return(0.0); inc_x2 = 2 * inc_x;