mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
931aef4daa
equal to sinttype (Delphi-compatible, fixes #10966) * changed not(cardinal_constant) into sinttype on 64 bit platforms for consistency with other similar rules (and with the above change) git-svn-id: trunk@10455 -
26 lines
454 B
ObjectPascal
26 lines
454 B
ObjectPascal
{$r+}
|
|
|
|
const
|
|
ctnsNeedJITParsing = 1 shl 1;
|
|
type
|
|
TCodeTreeNodeSubDesc = word;
|
|
var
|
|
SubDesc: TCodeTreeNodeSubDesc;
|
|
l: longint;
|
|
// c: cardinal;
|
|
begin
|
|
SubDesc := 1;
|
|
// fails
|
|
// SubDesc := not 2;
|
|
l := not(2);
|
|
// fails
|
|
// c := not(2);
|
|
l := not ctnsNeedJITParsing;
|
|
// fails
|
|
// c := not ctnsNeedJITParsing;
|
|
SubDesc := SubDesc and (not 2);
|
|
SubDesc := SubDesc and (not (1 shl 1));
|
|
SubDesc := SubDesc and (not ctnsNeedJITParsing);
|
|
end.
|
|
|