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

* Fix from Ondrej Pokorny to fix reading large TIFFs (bug ID 36998)

Browse Source 
git-svn-id: trunk@45190 -
This commit is contained in:
michael 2020-04-30 13:39:07 +00:00
parent 07e2d4e4c5
commit 42bfe6d45f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-image/src/fpreadtiff.pas
View File

@ -2373,7 +2373,7 @@ begin
if OldCode <> NoCode then
AddStringToTable(OldCode,Code);
OldCode:=Code;
end else if (Code=TableCount+258) and (OldCode <> NoCode) then begin
end else if {(Code=TableCount+258) and} (OldCode <> NoCode) then begin
WriteStringFromCode(OldCode,true);
AddStringToTable(OldCode,OldCode);
OldCode:=Code;