Packset or set code probably broken for macosx/i386
Original Reporter info from Mantis: karl-michael.schindler@web.de @KaMiSchi
-
Reporter name: Karl-Michael Schindler
Original Reporter info from Mantis: karl-michael.schindler@web.de @KaMiSchi
- Reporter name: Karl-Michael Schindler
Description:
When compiling lazarus revision 11395 the compiler stops with "gtkproc.inc(3353,12) Fatal: Internal error 200109222". I isolated it down to fpc 2.3.1 revision 7812, where rtl/objpas/classes/classesh.inc is changed from:
TShiftState = set of TShiftStateEnum;
to:
{packset 1}<br/> ``` TShiftState = set of TShiftStateEnum;```<br/> {packset default}
Additional information:
-
I checked that the exact revision of lazarus is not really important, confirming that it is actually a fpc problem and not a lazarus one.
-
Revision 7831 does not fix it.
-
Relevant snippet around line 3353 in gtkproc.inc:
3342function GTKEventStateToShiftState(KeyState: Word): TShiftState;
3343var
3344 State: TShiftStateEnum;
3345begin
…
3352 if KeyState and MModifiers[State].Mask = MModifiers[State].Value
3353 then Include(Result, State);