fpc/tw38642.pp at monitor_support - fpc - brudnopis.ovh - Gitea

paweld/fpc

mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 06:28:55 +02:00

svenbarth ca7c775e36 * fix for Mantis #38642 : for enumerations with jumps Delphi behaves as follows:

- GetTypeKind returns tkEnumeration (FPC previously generated a compile error here)
  - GetTypeInfo on a generic parameters returns Nil for such types (FPC previously generated a compile error here)
  - GetTypeInfo otherwise generates a compile error (as before)

git-svn-id: trunk@49064 -

2021-03-27 09:35:07 +00:00

15 lines

222 B

ObjectPascal

Raw Permalink Blame History

 { %NORUN }
 program tw38642;
 {$mode delphi}{$H+}
 uses
   classes,
   generics.collections;
 type
   TMonthType = (January, February, May=10, June, July);
   TMonthList = TList<TMonthType>;
 var
   myList : TMonthList;
 begin
 end.