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

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

Browse Source 
git-svn-id: trunk@17797 -
This commit is contained in:
pierre 2011-06-22 15:59:32 +00:00
parent 256c58d670
commit 9c11ee5544
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/paszlib/src/trees.pas
View File

@ -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,