--- Merging r35520 into '.':

U    packages/fcl-net/src/netdb.pp
--- Recording mergeinfo for merge of r35520 into '.':
 U   .

# revisions: 35520

git-svn-id: branches/fixes_3_0@36074 -

packages/fcl-net/src/netdb.pp

@@ -329,12 +329,16 @@ Var
   L : String;
   A : THostAddr;
   T : PHostListEntry;
+  B : Array of byte;
+  FS : Int64;
   
 begin
   Result:=Nil;
   Assign(F,FileName);
   {$push}{$I-}
   Reset(F);
+  SetLength(B,65355);
+  SetTextBuf(F,B[0],65355);
   {$pop};
   If (IOResult<>0) then
     Exit;