paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-29 04:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed getting upper byte of "extra field" (patch by Brett, mantis #16887)

Browse Source 
git-svn-id: trunk@15537 -
This commit is contained in:
Jonas Maebe 2010-07-09 20:11:19 +00:00
parent 5abc4bf45d
commit 36e4f3d38b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/paszlib/src/gzio.pas
View File

@ -451,7 +451,7 @@ begin
if ((flags and EXTRA_FIELD) <> 0) then begin { skip the extra field }
len := cardinal(get_byte(s));
len := len + (cardinal(get_byte(s)) shr 8);
len := len + (cardinal(get_byte(s)) shl 8);
{ len is garbage if EOF but the loop below will quit anyway }
while (len <> 0) and (get_byte(s) <> Z_EOF) do Dec(len);
end;
@ -1220,4 +1220,4 @@ begin
gzerror := s^.msg;
end;
end.
end.