diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-09-12 05:37:30 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-09-12 05:37:30 +0000 |
| commit | f578846b34c12c379b079fc95f1b074d1ec27187 (patch) | |
| tree | 9165454676a8599d6919409357809f7983ee8284 /packages/paszlib | |
| parent | e7eb4282fa38ab12a04bdef35f009ff9929fe83c (diff) | |
| download | fpc-f578846b34c12c379b079fc95f1b074d1ec27187.tar.gz | |
* Use WriteBuffer when writing (bug ID 0036068)
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@42975 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/paszlib')
| -rw-r--r-- | packages/paszlib/src/zipper.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/paszlib/src/zipper.pp b/packages/paszlib/src/zipper.pp index 10318eb612..5b886f7eff 100644 --- a/packages/paszlib/src/zipper.pp +++ b/packages/paszlib/src/zipper.pp @@ -1046,7 +1046,7 @@ begin Count:=C.Read(Buf^,FBufferSize); For I:=0 to Count-1 do UpdC32(Buf[i]); - FOutFile.Write(Buf^,Count); + FOutFile.WriteBuffer(Buf^,Count); inc(BytesNow,Count); if BytesNow>NextMark Then begin |