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

* Merging revisions r45190 from trunk:

Browse Source 
------------------------------------------------------------------------
    r45190 | michael | 2020-04-30 15:39:07 +0200 (Thu, 30 Apr 2020) | 1 line
    
    * Fix from Ondrej Pokorny to fix reading large TIFFs (bug ID 36998)
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@45194 -
This commit is contained in:
michael 2020-04-30 16:24:00 +00:00
parent 6166daf414
commit 561a02b4e1
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;