Browse Source

fix loop condition for incx < 0

tags/v0.3.27
Martin Kroeker GitHub 1 year ago
parent
commit
bf93459746
No known key found for this signature in database GPG Key ID: B5690EEEBB952194
1 changed files with 1 additions and 1 deletions
  1. +1
    -1
      kernel/arm/nrm2.c

+ 1
- 1
kernel/arm/nrm2.c View File

@@ -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 )


Loading…
Cancel
Save