From 80a374407c3c8837c0e30f32486af86b7c30cded Mon Sep 17 00:00:00 2001
From: "Charles.Forsyth" <devnull@localhost>
Date: Wed, 12 Nov 2008 13:46:25 +0000
Subject: 20081112-1346

---
 libmath/blas.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'libmath')

diff --git a/libmath/blas.c b/libmath/blas.c
index a5cc9e0b..e40d2310 100644
--- a/libmath/blas.c
+++ b/libmath/blas.c
@@ -41,7 +41,8 @@ norm1(int n, double *x)
 	if (n <= 0) 
 		return 0;
 	while (n--) {
-		sum += fabs(*x++);
+		sum += fabs(*x);
+		x++;
 	}
 	return sum;
 }
-- 
cgit v1.2.3