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

Aggiustamenti per cambio di real::integer()

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@267 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1994-09-20 07:31:34 +00:00
parent 853cd8397c
commit e03a279bcc
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
include/expr.cpp
View File

@ -445,13 +445,13 @@ void TExpression::eval()
case _left: case _left:
o2 = (real&) evalstack.pop(); o2 = (real&) evalstack.pop();
s2 = (TString&) evalstack.pop(); s2 = (TString&) evalstack.pop();
s1 = s2.left(o2.integer()); s1 = s2.left((int)o2.integer());
evalstack.push(s1); evalstack.push(s1);
break; break;
case _right: case _right:
o2 = (real&) evalstack.pop(); o2 = (real&) evalstack.pop();
s2 = (TString&) evalstack.pop(); s2 = (TString&) evalstack.pop();
s1 = s2.right(o2.integer()); s1 = s2.right((int)o2.integer());
evalstack.push(s1); evalstack.push(s1);
break; break;
case _mid: case _mid:
@ -459,7 +459,7 @@ void TExpression::eval()
o1 = (real&) evalstack.pop(); o1 = (real&) evalstack.pop();
o1 -= 1.00; o1 -= 1.00;
s2 = (TString&) evalstack.pop(); s2 = (TString&) evalstack.pop();
s1 = s2.mid(o1.integer(), o2.integer()); s1 = s2.mid((int)o1.integer(), (int)o2.integer());
evalstack.push(s1); evalstack.push(s1);
break; break;
case _pow: case _pow: