mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
34 lines
562 B
ObjectPascal
34 lines
562 B
ObjectPascal
{$packset 1}
|
|
program t;
|
|
{$mode objfpc}{$h+}
|
|
|
|
uses typinfo;
|
|
|
|
type
|
|
tsmall = 0..11;
|
|
tsmallset = set of tsmall;
|
|
|
|
tbig = 25..200;
|
|
tbigset_ = set of tbig;
|
|
|
|
var
|
|
ti: PTypeInfo;
|
|
tdata: PTypeData;
|
|
begin
|
|
ti := typeinfo(tsmallset);
|
|
tdata := GetTypeData(ti);
|
|
writeln(ord(tdata^.OrdType));
|
|
if tdata^.CompType = typeinfo(tsmall) then
|
|
writeln('small ok')
|
|
else
|
|
halt(1);
|
|
|
|
ti := typeinfo(tbigset_);
|
|
tdata := GetTypeData(ti);
|
|
writeln(ord(tdata^.OrdType));
|
|
if tdata^.CompType = typeinfo(tbig) then
|
|
writeln('big ok')
|
|
else
|
|
halt(2);
|
|
end.
|