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

* also allow TValue.AsExtended for Integer types

Browse Source 
git-svn-id: trunk@43772 -
This commit is contained in:
svenbarth 2019-12-24 21:29:47 +00:00
parent a20209e691
commit 12ae68f503
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -1834,6 +1834,8 @@ begin
raise EInvalidCast.Create(SErrInvalidTypecast); raise EInvalidCast.Create(SErrInvalidTypecast);
end; end;
end end
else if Kind in [tkInteger, tkInt64, tkQWord] then
Result := AsInt64
else else
raise EInvalidCast.Create(SErrInvalidTypecast); raise EInvalidCast.Create(SErrInvalidTypecast);
end; end;