[fpc-devel] TShiftState as enum

[Alexey Barkovoy]

> {$mode delphi}
> 
> type aenum=510..517;
>     aset = set of aenum;
> 
> 
> begin
>  Writeln(sizeof(aset));
> end.
> 
> xbla.pp(5,25) Error: illegal type declaration of set elements
> xbla.pp(10,4) Fatal: There were 1 errors compiling module, stopping
> 

Delphi dowsn't allow sets with ordinal values larger than 255 too:

Borland Delphi  Version 13.0  Copyright (c) 1983,99 Inprise Corporation
1.pas(2) Error: Sets may have at most 256 elements
1.pas(8)

=========================================

Borland Delphi for Win32 compiler version 17.0
Copyright (c) 1983,2004 Borland Software Corporation
1.pas(2) Error: E2028 Sets may have at most 256 elements
1.pas(8)