paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 05:30:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fpgetcerrno introduction

Browse Source
This commit is contained in:
marco 2003-12-10 15:50:50 +00:00
parent 2a761868ce
commit dce7bf35f9
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/inc/resolve.pp
View File

@ -3,7 +3,8 @@
Unit resolve; Unit resolve;
{$ifndef win32} {$ifndef win32}
// Here till BSD supports the netbsd unit. // Here till BSD supports the netbsd unit.
// MvdV: NetBSD unit? Where?
{$ifdef linux} {$ifdef linux}
// Undefine this to use the C library resolve routines. // Undefine this to use the C library resolve routines.
// Don't use under win32, netdb does not work on Win32 (yet) !! // Don't use under win32, netdb does not work on Win32 (yet) !!
@ -214,6 +215,7 @@ Implementation
{$ifdef usenetdb} {$ifdef usenetdb}
uses netdb; uses netdb;
{$else} {$else}
uses initc;
{$i resolve.inc} {$i resolve.inc}
{$endif} {$endif}
@ -949,7 +951,10 @@ Finalization
end. end.
{ {
$Log$ $Log$
Revision 1.4 2003-05-17 21:52:37 michael Revision 1.5 2003-12-10 15:50:50 marco
* fpgetcerrno introduction
Revision 1.4 2003/05/17 21:52:37 michael
+ Added TURIParser class + Added TURIParser class
Revision 1.3 2003/03/07 20:33:33 michael Revision 1.3 2003/03/07 20:33:33 michael

7
fcl/unix/resolve.inc
View File

@ -64,8 +64,11 @@ function getnetbyname ( Name : pchar) : PNetEntry; cdecl; external socklib;
function getservbyname (name : pchar ; protocol : pchar) : PServEntry; cdecl; external socklib; function getservbyname (name : pchar ; protocol : pchar) : PServEntry; cdecl; external socklib;
function getservbyport (port : longint; protocol : pchar) : PServEntry; cdecl; external socklib; function getservbyport (port : longint; protocol : pchar) : PServEntry; cdecl; external socklib;
var function GetDNSError : libcint;
GetDNSError : longint;external socklib name 'h_errno';
begin
GetDNSError:=fpgetCerrno;
end;
Function InitResolve : Boolean; Function InitResolve : Boolean;