paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 17:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* netdb: Always return False by GetHostByName() and GetHostByAddr() in the libc implementation.

Browse Source 
git-svn-id: trunk@44302 -
This commit is contained in:
yury 2020-03-15 12:22:58 +00:00
parent c79e21e0dc
commit 8ef8b3bdc0
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-net/src/netdb.pp
View File

@ -167,7 +167,9 @@ Function ResolveHostByAddr(HostAddr : THostAddr; Var H : THostEntry) : Boolean;
Function ResolveHostByName6(Hostname : String; Var H : THostEntry6) : Boolean;
Function ResolveHostByAddr6(HostAddr : THostAddr6; Var H : THostEntry6) : Boolean;
// H.Addr is returned in the host byte order
Function GetHostByName(HostName: String; Var H : THostEntry) : boolean;
// Addr is specified in the host byte order
Function GetHostByAddr(Addr: THostAddr; Var H : THostEntry) : boolean;
// N.Addr is returned in the net byte order
@ -1803,12 +1805,12 @@ end;
Function GetHostByName(HostName: String; Var H : THostEntry) : boolean;
begin
Result:=ResolveHostByName(HostName, H);
Result:=False;
end;
Function GetHostByAddr(Addr: THostAddr; Var H : THostEntry) : boolean;
begin
Result:=ResolveHostByAddr(Addr, H);
Result:=False;
end;
function PPCharToString(list: PPChar): string;