From be41f296a0e0e25a31f13488be4fb37b5a99c0cc Mon Sep 17 00:00:00 2001
From: Mattias Gaertner <nc-gaertnma@netcologne.de>
Date: Sat, 25 Aug 2012 09:18:10 +0000
Subject: [PATCH] fpreadtiff: fixed checking for code 4096 before add instead
 of after last add, bug #22558

git-svn-id: trunk@22238 -
---
 packages/fcl-image/src/fpreadtiff.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-image/src/fpreadtiff.pas b/packages/fcl-image/src/fpreadtiff.pas
index 6d30ed1faa..cfabb0ec41 100644
--- a/packages/fcl-image/src/fpreadtiff.pas
+++ b/packages/fcl-image/src/fpreadtiff.pas
@@ -2181,6 +2181,8 @@ var
     p: PByte;
   begin
     //WriteLn('AddStringToTable Code=',Code,' FCFCode=',AddFirstCharFromCode,' TableCount=',TableCount,' TableCapacity=',TableCapacity);
+    if TableCount=4096-259 then
+      Error('LZW too many codes');
     // grow table
     if TableCount>=TableCapacity then begin
       TableCapacity:=TableCapacity*2+128;
@@ -2223,7 +2225,6 @@ var
     inc(TableCount);
     case TableCount+259 of
     512,1024,2048: inc(CurBitLength);
-    4096: Error('LZW too many codes');
     end;
   end;