fpcsrc/tests/webtbs/uw2834.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

unit uw2834;

{$ifdef fpc}{$mode objfpc}{$H+}{$endif}

interface

type
  TMyType = 1..2;

function PrintTypeInfo:pointer;

implementation

function PrintTypeInfo:pointer;
begin
  result:=pointer(TypeInfo(TMyType));
end;

end.