mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 00:28:24 +02:00
40247d2d87
whose base is not 0, or that has jumps in its value range (manits #9551) git-svn-id: trunk@12960 -
18 lines
184 B
ObjectPascal
18 lines
184 B
ObjectPascal
|
|
uses
|
|
TypInfo,sysutils;
|
|
|
|
type
|
|
tmy2enum = (e1,e2,e3,e4);
|
|
|
|
|
|
procedure Test;
|
|
begin
|
|
if (GetEnumName(TypeInfo(TMy2Enum), Ord(e3)) <> 'e3') then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
Test;
|
|
end.
|