diff options
| author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2017-05-04 11:18:04 +0000 |
|---|---|---|
| committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2017-05-04 11:18:04 +0000 |
| commit | ef80bab3824b11d6e55e78c79a6e7791c10d628f (patch) | |
| tree | 6c06df105aac884140c403b200f44bf9fdf33c9c | |
| parent | d02772bbe0c44e1817039fd0218b9fb68ba80238 (diff) | |
| download | fpc-ef80bab3824b11d6e55e78c79a6e7791c10d628f.tar.gz | |
--- Merging r35520 into '.':
U packages/fcl-net/src/netdb.pp
--- Recording mergeinfo for merge of r35520 into '.':
U .
# revisions: 35520
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/fixes_3_0@36074 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | packages/fcl-net/src/netdb.pp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/packages/fcl-net/src/netdb.pp b/packages/fcl-net/src/netdb.pp index e770e5e05f..87fd6065c3 100644 --- a/packages/fcl-net/src/netdb.pp +++ b/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; |