mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-01 06:13:45 +02:00
25 lines
636 B
ObjectPascal
25 lines
636 B
ObjectPascal
{ The results of the following constants
|
|
differ on 1.0 and 1.1 compiler
|
|
as constants are evaluated as 32bit integers in 1.1
|
|
and as 64bit integers in 1.1
|
|
But in all cases int64(-1) should give -1 and not $ffffffff PM }
|
|
{$R-}
|
|
const
|
|
u1 : qword = $ffffffff;
|
|
i1 : int64 = $ffffffff;
|
|
u2 : qword = -1;
|
|
i2 : int64 = -1;
|
|
|
|
begin
|
|
Writeln(' qword($ffffffff) = ',u1);
|
|
Writeln(' int64($ffffffff) = ',i1);
|
|
Writeln(' qword(-1) = ',u2);
|
|
Writeln(' int64(-1) = ',i2);
|
|
if i2<>-1 then
|
|
begin
|
|
Writeln('"const i2 : int64 = -1;" code');
|
|
Writeln('generates a wrong int64 constant');
|
|
RunError(1);
|
|
end;
|
|
end.
|