From: <ah...@us...> - 2012-09-25 08:05:44
|
Revision: 13448 http://jvcl.svn.sourceforge.net/jvcl/?rev=13448&view=rev Author: ahuser Date: 2012-09-25 08:05:34 +0000 (Tue, 25 Sep 2012) Log Message: ----------- Mantis #5984: TJvInterpreterExpression not support Int64 Modified Paths: -------------- trunk/jvcl/run/JvInterpreter.pas Modified: trunk/jvcl/run/JvInterpreter.pas =================================================================== --- trunk/jvcl/run/JvInterpreter.pas 2012-09-24 20:16:12 UTC (rev 13447) +++ trunk/jvcl/run/JvInterpreter.pas 2012-09-25 08:05:34 UTC (rev 13448) @@ -5149,6 +5149,7 @@ {$ENDIF DELPHI7_UP} Dob: Extended; Int: Integer; + ValueInt64: Int64; Stub: Integer; begin FTokenStr := FParser.Token; @@ -5157,7 +5158,15 @@ ttInteger: begin Val(FTokenStr, Int, Stub); - FToken := Int; + if Stub <> 0 then + begin + Val(FTokenStr, ValueInt64, Stub); + FToken := ValueInt64; + if Stub <> 0 then + JvInterpreterError(ieIntegerRequired, FParser.Pos); + end + else + FToken := Int; end; ttDouble: begin This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |