mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 04:28:00 +02:00
4aca018f62
nodes generate no code except loading data into registers, this does not hurt, resolves #23342 git-svn-id: trunk@23039 -
18 lines
407 B
ObjectPascal
18 lines
407 B
ObjectPascal
uses
|
|
classes;
|
|
|
|
procedure foo(Shift: TShiftState);
|
|
var
|
|
ssMultiSelect: TShiftStateEnum;
|
|
ATest: Boolean;
|
|
begin
|
|
ssMultiSelect := ssCtrl;
|
|
// ATest := (Shift = [ssLeft, ssMultiSelect]); // compiles
|
|
// ATest := ATest or (Shift = [ssMultiSelect]); // compiles
|
|
ATest := (Shift = [ssLeft, ssMultiSelect]) or (Shift = [ssMultiSelect]); // fatal internal error 200203302 with -O2 or -O3
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|