Sfoglia il codice sorgente

* netdb: Fixed ResolveAddress6(). The long deprecated suffix "ip6.int" has been used instead of the proper "ip6.arpa" suffix.

git-svn-id: trunk@44297 -
yury 5 anni fa
parent
commit
c79e21e0dc
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  1. 1 1
      packages/fcl-net/src/netdb.pp

+ 1 - 1
packages/fcl-net/src/netdb.pp

@@ -1150,7 +1150,7 @@ Var
 begin
   CheckResolveFile;
   Result:=0;
-  S := '0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.ip6.int';
+  S := '0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.ip6.arpa';
   for i := 7 downto 0 do begin
     S[5+(7-i)*8] := hexdig[1+(HostAddr.u6_addr16[i] and $000F) shr 00];
     S[7+(7-i)*8] := hexdig[1+(HostAddr.u6_addr16[i] and $00F0) shr 04];