fpc/tests/webtbs/tw2949.pp
2004-02-24 17:13:26 +00:00

16 lines
302 B
ObjectPascal

{ Source provided for Free Pascal Bug Report 2949 }
{ Submitted by "Marco (Gory bugs department)" on 2004-02-07 }
{ e-mail: }
{$ifdef fpc}{$mode Delphi}{$endif}
TYPE
// dummy types
PSSL_CTX=pchar;
var
IdSslCtxSetVerifyDepth : procedure(ctx: PSSL_CTX; depth: Integer); cdecl = nil;
begin
end.