From 561a02b4e13a3849db4a08815fe1d745542eebfe Mon Sep 17 00:00:00 2001 From: michael Date: Thu, 30 Apr 2020 16:24:00 +0000 Subject: [PATCH] * Merging revisions r45190 from trunk: ------------------------------------------------------------------------ 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 - --- packages/fcl-image/src/fpreadtiff.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/packages/fcl-image/src/fpreadtiff.pas b/packages/fcl-image/src/fpreadtiff.pas index 729d7c469e..8be145309f 100644 --- a/packages/fcl-image/src/fpreadtiff.pas +++ b/packages/fcl-image/src/fpreadtiff.pas @@ -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;