Aggiustamenti per cambio di real::integer()

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

View File

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