paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 13:59:29 +02: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;
{$IFOPT I+} {$I-} {$define IOcheck} {$ENDIF}
Assign (s^.gzfile, s^.path);
Assign (s^.gzfile, path);
{$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)
else
Reset (s^.gzfile,1);
@ -494,7 +494,7 @@ begin
end;
end;
if (s^.path <> '') then begin
if s^.path <> '' then begin
{$I-}
close(s^.gzfile);
{$I+}