* Explicitly redefine TByteArray as zero length to avoid Range Check Errors

git-svn-id: trunk@17797 -

packages/paszlib/src/trees.pas

@@ -141,6 +141,8 @@ type
 
   zPosfArray = array[0..(maxint div SizeOf(Posf))-1] of Posf;
   pzPosfArray = ^zPosfArray;
+  Tbytearray=array[0..0] of byte;
+  Pbytearray=^Tbytearray;
 
 { A Pos is an index in the character window. We use short instead of integer to
   save space in the various tables. IPos is used only for parameter passing.}
@@ -509,7 +511,7 @@ const
 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 28
 );
 
-  
+
 { First normalized length for each code (0 = MIN_MATCH) }
   base_length : array[0..LENGTH_CODES-1] of integer = (
 0, 1, 2, 3, 4, 5, 6, 7, 8, 10, 12, 14, 16, 20, 24, 28, 32, 40, 48, 56,