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

* patch from Dmitry for bug #7604, fixing the CRC problems.

Browse Source 
git-svn-id: trunk@15864 -
This commit is contained in:
marco 2010-08-21 04:33:51 +00:00
parent 6f1dfa1353
commit 7119ebd599
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/unzip/src/unzip51g.pp
View File

@ -2410,8 +2410,18 @@ BEGIN
originalcrc := b AND $FFFF;
dumpbits ( 16 );
needbits ( 16 );
originalcrc := ( b AND $FFFF ) SHL 16;
originalcrc := originalcrc OR LongWord(( b AND $FFFF ) SHL 16);
dumpbits ( 16 );
IF originalcrc = $08074b50 THEN BEGIN
{ skiping possible $08074b50 data descriptor signature. see PKWARE APPNOTE.txt }
needbits ( 16 );
originalcrc := b AND $FFFF;
dumpbits ( 16 );
needbits ( 16 );
originalcrc := originalcrc OR LongWord(( b AND $FFFF ) SHL 16);
dumpbits ( 16 );
END;
END;
close ( infile );