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