mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 16:47:53 +02:00
22 lines
343 B
ObjectPascal
22 lines
343 B
ObjectPascal
{ %fail }
|
|
|
|
{$mode delphi}
|
|
program test2;
|
|
|
|
type
|
|
XResult = integer;
|
|
XStr = integer;
|
|
|
|
PDNSEntry = ^XDNSEntry;
|
|
XDNSEntry =
|
|
record
|
|
end;
|
|
|
|
itest = interface(iunknown)
|
|
function GetHostByName(const Name: XStr; out Res: PDNSEntry): XResult;
|
|
function GetHostByName(const Name: XStr; out Res: XDNSEntry): XResult;
|
|
end;
|
|
|
|
begin
|
|
end.
|