paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 11:53:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #7814: use path instead of s^.path toprevent truncation.

Browse Source 
git-svn-id: trunk@5358 -
This commit is contained in:
daniel 2006-11-13 18:52:37 +00:00
parent ddcb1616b6
commit 056ee3c865
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/base/paszlib/gzio.pas
View File

@ -215,9 +215,9 @@ begin
s^.stream.avail_out := Z_BUFSIZE; s^.stream.avail_out := Z_BUFSIZE;
{$IFOPT I+} {$I-} {$define IOcheck} {$ENDIF} {$IFOPT I+} {$I-} {$define IOcheck} {$ENDIF}
Assign (s^.gzfile, s^.path); Assign (s^.gzfile, path);
{$ifdef unix} {$ifdef unix}
if (fpstat(s^.path,info)<0) and (s^.mode='w') then if (fpstat(path,info)<0) and (s^.mode='w') then
ReWrite (s^.gzfile,1) ReWrite (s^.gzfile,1)
else else
Reset (s^.gzfile,1); Reset (s^.gzfile,1);
@ -494,7 +494,7 @@ begin
end; end;
end; end;
if (s^.path <> '') then begin if s^.path <> '' then begin
{$I-} {$I-}
close(s^.gzfile); close(s^.gzfile);
{$I+} {$I+}