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

fpreadtiff: fixed reading last byte of chunk

Browse Source 
git-svn-id: trunk@22256 -
This commit is contained in:
Mattias Gaertner 2012-08-27 16:54:43 +00:00
parent 33f5de990d
commit e40505a998
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/fcl-image/src/fpreadtiff.pas
View File

@ -2098,7 +2098,7 @@ var
// read two or three bytes
if CurBitLength+SrcPosBit>16 then begin
// read from three bytes
if SrcPos+3>Count then Error('LZW stream overrun');
if SrcPos+3>=Count then Error('LZW stream overrun');
v:=PByte(Buffer)[SrcPos];
inc(SrcPos);
v:=(v shl 8)+PByte(Buffer)[SrcPos];
@ -2107,7 +2107,7 @@ var
v:=v shr (24-CurBitLength-SrcPosBit);
end else begin
// read from two bytes
if SrcPos+2>Count then Error('LZW stream overrun');
if SrcPos+2>=Count then Error('LZW stream overrun');
v:=PByte(Buffer)[SrcPos];
inc(SrcPos);
v:=(v shl 8)+PByte(Buffer)[SrcPos];