+ add an asInt64 to texprvalue

git-svn-id: trunk@45051 -

compiler/scanner.pas

@@ -931,6 +931,7 @@ type
     function isBoolean: Boolean;
     function asBool: Boolean;
     function asInt: Integer;
+    function asInt64: Int64;
     function asStr: String;
     destructor destroy; override;
   end;
@@ -1348,6 +1349,11 @@ type
       result:=value.valueord.svalue;
     end;
 
+  function texprvalue.asInt64: Int64;
+    begin
+      result:=value.valueord.svalue;
+    end;
+
   function texprvalue.asStr: String;
     var
       b:byte;