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

fcl-passrc: use TMaxFloat

Browse Source
This commit is contained in:
mattias 2022-06-18 14:26:53 +02:00
parent 1471d49fb6
commit 75f8d43e36
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-passrc/src/pscanner.pp
View File

@ -2156,7 +2156,7 @@ procedure TCondDirectiveEvaluator.ReadOperand(Skip: boolean);
var
i: TMaxPrecInt;
e: extended;
e: TMaxFloat;
S, aName, Param: String;
Code: integer;
NameStartP: {$ifdef UsePChar}PChar{$else}integer{$endif};
@ -2420,7 +2420,7 @@ var
A, B, R: String;
Op: TToken;
AInt, BInt: TMaxPrecInt;
AFloat, BFloat: extended;
AFloat, BFloat: TMaxFloat;
BPos: Integer;
begin
// resolve all higher or equal level operations