root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Modificata la divisione 0/0: non genera piu' errore ma 0

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4323 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-05-06 10:31:03 +00:00
parent df32a1ba3c
commit 650f8e0782
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
include/expr.cpp
View File

@ -378,9 +378,9 @@ void TExpression::eval()
real& r = evalstack.pop_real(); real& r = evalstack.pop_real();
if (r.is_zero()) if (r.is_zero())
{ {
if (!evalstack.peek_real().is_zero())
print_error("Divisione per zero!"); print_error("Divisione per zero!");
r = 1.0; } else
}
evalstack.peek_real() /= r; evalstack.peek_real() /= r;
} }
break; break;