paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 15:26:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added missing NetToHost() calls for THostResolver and TNetResolver

Browse Source 
git-svn-id: trunk@2114 -
This commit is contained in:
Jonas Maebe 2006-01-02 01:57:38 +00:00
parent 6d96ee4819
commit dd0d702bc3
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fcl/inc/resolve.pp
View File

@ -352,10 +352,10 @@ Var
begin
PH:=ENtry;
FName:=PH^.Name;
FHostAddress:=PH^.Addr;
FHostAddress:=NetToHost(PH^.Addr);
FAddressCount:=1;
GetMem(FAddresses,SizeOf(THostAddr));
FAddresses[0]:=PH^.Addr;
FAddresses[0]:=NetToHost(PH^.Addr);
FAliases.CommaText:=PH^.Aliases;
end;
@ -399,7 +399,7 @@ begin
begin
GetMem(FAddresses,FAddressCount*SizeOf(THostAddr));
For I:=0 to FAddressCount-1 do
FAddresses[I]:=PHostAddr(H_Addr[I])^;
FAddresses[I]:=NetToHost(PHostAddr(H_Addr[I])^);
FHostAddress:=FAddresses[0];
end;
SaveAliases(H_Aliases);
@ -478,7 +478,7 @@ Var
begin
PN:=ENtry;
FName:=PN^.Name;
FNetAddress:=PN^.Addr;
FNetAddress:=NetToHost(PN^.Addr);
FAliases.CommaText:=PN^.Aliases;
end;