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

Fixed range check error, compiler error!

Browse Source
This commit is contained in:
Henrique Gottardi Werlang 2023-07-11 14:39:49 -03:00 committed by Michael Van Canneyt
parent 337fff51c5
commit 98b49b292d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-passrc/src/pasresolver.pp
View File

@ -29909,7 +29909,8 @@ begin
btIntSingle, btIntSingle,
btUIntSingle, btUIntSingle,
btIntDouble, btIntDouble,
btUIntDouble: btUIntDouble,
btCurrency:
begin begin
Result:=TResEvalRangeInt.Create; Result:=TResEvalRangeInt.Create;
TResEvalRangeInt(Result).ElKind:=revskInt; TResEvalRangeInt(Result).ElKind:=revskInt;