mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
b5827ce363
Note: the error messages for incorrect "misstyled" floating point numbers (e.g. "2e10foo") have changed because of this.
scanner.pas, tscannerfile.readtoken:
instead of tokenizing "2.", "2.e10", "2.e+10" and "2.e-10" as "_REALNUMBER" tokenize them as "_INTCONST _POINT", "_INTCONST _POINT _ID", "_INTCONST _POINT _ID _PLUS _INTCONST" "_INTCONST _POINT _ID _PLUS _INTCONST"; tokenizing of normal floating constants is not changed
pexpr.pas:
factor:
* extract the code for creating a new constant floating point from "factor" into a new function "real_const_node_from_pattern"
+ allow the parsing of postfixoperators for integer constants if a "." is encountered
+ postfixoperators: check for a "misstyled" floating point number if an ordinal const (not an enum and not a boolean) is encountered (the code is already partially prepared for type helper support)
+ Added tests
git-svn-id: trunk@23356 -
30 lines
511 B
ObjectPascal
30 lines
511 B
ObjectPascal
program tb0591;
|
|
|
|
uses
|
|
Math;
|
|
|
|
procedure TestValue(aActual, aExpected: Double);
|
|
begin
|
|
if not SameValue(aActual, aExpected) then
|
|
Halt(1);
|
|
end;
|
|
|
|
const
|
|
f1 = 2.;
|
|
f2 = 2.e10;
|
|
f3 = 2.e-10;
|
|
f4 = 2.e+10;
|
|
f5 = 2.8e10; // ensure that scanning of normal floating points is not broken
|
|
|
|
begin
|
|
TestValue(2., 2.0);
|
|
TestValue(2.e10, 2.0e10);
|
|
TestValue(2.e-10, 2.0e-10);
|
|
TestValue(2.e+10, 2.0e+10);
|
|
|
|
TestValue(f1, 2.0);
|
|
TestValue(f2, 2.0e10);
|
|
TestValue(f3, 2.0e-10);
|
|
TestValue(f4, 2.0e+10);
|
|
end.
|