paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 07:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add an asInt64 to texprvalue

Browse Source 
git-svn-id: trunk@45051 -
This commit is contained in:
svenbarth 2020-04-24 14:09:00 +00:00
parent 89434f0124
commit bffe99f59f
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/scanner.pas
View File

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