blob: 2e7b311fec0ef60b46f9dbfffe33d82bce58d770 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
{$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.
|