mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 07:58:04 +02:00
24 lines
376 B
ObjectPascal
24 lines
376 B
ObjectPascal
program tb0631;
|
|
|
|
{$MODE DELPHI}
|
|
|
|
uses
|
|
typinfo;
|
|
|
|
type
|
|
{$M+}
|
|
IFoo = interface
|
|
['{6AE439A1-06AA-460A-9CEB-71A1FD1BCFFB}']
|
|
procedure SetFoo(a: pointer);
|
|
property Foo: pointer write SetFoo;
|
|
end;
|
|
|
|
begin
|
|
if PInterfaceData(TypInfo.GetTypeData(TypeInfo(IFoo)))^.PropertyTable^.Prop[0]^.PropType
|
|
<> TypeInfo(Pointer)
|
|
then
|
|
halt(1);
|
|
WriteLn('ok');
|
|
end.
|
|
|