From 8037d78eed1c1685a5ded60c388756c2eda6357a Mon Sep 17 00:00:00 2001
From: Werner Saar <wernsaar@googlemail.com>
Date: Mon, 11 Apr 2016 11:21:36 +0200
Subject: [PATCH] bugfix for arm scal.c and zscal.c

---
 kernel/arm/scal.c  | 4 ++++
 kernel/arm/zscal.c | 4 ++++
 2 files changed, 8 insertions(+)

diff --git a/kernel/arm/scal.c b/kernel/arm/scal.c
index 91ca76569..4ef49e293 100644
--- a/kernel/arm/scal.c
+++ b/kernel/arm/scal.c
@@ -40,6 +40,10 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x, BLAS
 {
 	BLASLONG i=0,j=0;
 
+	if ( (n <= 0) || (inc_x <= 0))
+		return(0);
+	
+
 	while(j < n)
 	{
 
diff --git a/kernel/arm/zscal.c b/kernel/arm/zscal.c
index f543edc04..0521aaa0b 100644
--- a/kernel/arm/zscal.c
+++ b/kernel/arm/zscal.c
@@ -43,6 +43,10 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
 	BLASLONG ip = 0;
 	FLOAT temp;
 
+        if ( (n <= 0) || (inc_x <= 0))
+                return(0);
+
+
 	inc_x2 = 2 * inc_x;
 	for ( i=0; i<n; i++ )
 	{