From 650f8e0782cfc46728bd236d8314188c2ff742db Mon Sep 17 00:00:00 2001
From: augusto <augusto@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Tue, 6 May 1997 10:31:03 +0000
Subject: [PATCH] Modificata la divisione 0/0: non genera piu' errore ma 0

git-svn-id: svn://10.65.10.50/trunk@4323 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 include/expr.cpp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/include/expr.cpp b/include/expr.cpp
index 3c5e8fb79..6ef82f91d 100755
--- a/include/expr.cpp
+++ b/include/expr.cpp
@@ -378,10 +378,10 @@ void TExpression::eval()
         real& r = evalstack.pop_real();
         if (r.is_zero())
         {
-          print_error("Divisione per zero!");
-          r = 1.0;
-        }
-        evalstack.peek_real() /= r;
+          if (!evalstack.peek_real().is_zero())
+	          print_error("Divisione per zero!");
+        } else
+        	evalstack.peek_real() /= r;
       }
       break;
     case _chgs: