mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
e50c05f44e
unsigned 32/64 bit values to be always explicitly typecasted to signed
32/64 bit instead of never (mantis #15304)
git-svn-id: trunk@14379 -
11 lines
179 B
ObjectPascal
11 lines
179 B
ObjectPascal
{$r+,q+}
|
|
|
|
var A : LongWord;
|
|
|
|
begin
|
|
A := $0FFFFFFF;
|
|
Inc(A, LongWord($F0000000));
|
|
// no runtime error if the above line is changed to:
|
|
// A := A + LongWord($F0000000);
|
|
end.
|