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

* called hosttostr while netdb returns a net order in addresses. The

Browse Source 
resolve hostaddrtostr covered this up, but that could break depending
     on unit order.
This commit is contained in:
marco 2005-03-18 10:50:03 +00:00
parent 915ab7df0f
commit e0123f44ff
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fcl/tests/testhres.pp
View File

@ -5,7 +5,7 @@
program testhostresolve; program testhostresolve;
uses resolve; uses resolve,sockets;
Var Var
I : integer; I : integer;
@ -27,7 +27,7 @@ begin
Writeln('Addres : ',AddressAsString); Writeln('Addres : ',AddressAsString);
Writeln('Address count : ',AddressCount); Writeln('Address count : ',AddressCount);
For I:=0 to AddressCount-1 do For I:=0 to AddressCount-1 do
Writeln('Adress ',I:2,' : ',HostAddrToStr(Addresses[I])); Writeln('Adress ',I:2,' : ',NetAddrToStr(Addresses[I]));
Writeln('Alias count : ',AliasCount); Writeln('Alias count : ',AliasCount);
For I:=0 to AliasCount-1 do For I:=0 to AliasCount-1 do
Writeln('Alias ',i:2,' : ',Aliases[I]); Writeln('Alias ',i:2,' : ',Aliases[I]);