diff options
| author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-02 21:58:37 +0000 |
|---|---|---|
| committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-02 21:58:37 +0000 |
| commit | 9fb285d3ec8e55173023f25d9d5b4b73c4a350f5 (patch) | |
| tree | 17539a762e8965db6f602f4469523e14e61a56e0 /packages/paszlib | |
| parent | afb4ae43fe7431f7b61669dede783635004c5b8a (diff) | |
| download | fpc-9fb285d3ec8e55173023f25d9d5b4b73c4a350f5.tar.gz | |
* rearranged the append/rewrite slightly
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14012 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/paszlib')
| -rw-r--r-- | packages/paszlib/src/gzio.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/packages/paszlib/src/gzio.pas b/packages/paszlib/src/gzio.pas index 72ae0e0d55..72b342c0fe 100644 --- a/packages/paszlib/src/gzio.pas +++ b/packages/paszlib/src/gzio.pas @@ -229,7 +229,7 @@ begin {$endif} doseek:=false; - if not exists or (s^.mode='w') then + if ((s^.mode='a') and not exists) or (s^.mode='w') then ReWrite (s^.gzfile,1) else begin @@ -247,7 +247,7 @@ begin // append binary file. if doseek then seek(s^.gzfile,filesize(s^.gzfile)); - s^.mode='w'; // difference append<->write doesn't matter anymore + s^.mode:='w'; // difference append<->write doesn't matter anymore if writing then begin { Write a very simple .gz header } {$IFNDEF NO_DEFLATE} gzheader [0] := gz_magic [0]; |