paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 10:50:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added init/final routines for windows compatibility

Browse Source
This commit is contained in:
michael 2003-02-03 10:13:40 +00:00
parent 59d3edeec7
commit bb231816e9
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
fcl/unix/resolve.inc
View File

@ -1,12 +1,3 @@
{$ifdef win32}
uses winsock;
Function GetDNSError : Longint;
begin
GetDNSError:=0;
end;
{$else}
const
{ Net type }
socklib = 'c';
@ -75,4 +66,15 @@ function getservbyport (port : longint; protocol : pchar) : PServEntry; cdecl; e
var
GetDNSError : longint;external socklib name 'h_errno';
{$endif}
Function InitResolve : Boolean;
begin
Result:=True;
end;
Function FinalResolve : Boolean;
begin
Result:=True;
end;