paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 01:49:20 +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; zPosfArray = array[0..(maxint div SizeOf(Posf))-1] of Posf;
pzPosfArray = ^zPosfArray; 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 { 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.} 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 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) } { First normalized length for each code (0 = MIN_MATCH) }
base_length : array[0..LENGTH_CODES-1] of integer = ( 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, 0, 1, 2, 3, 4, 5, 6, 7, 8, 10, 12, 14, 16, 20, 24, 28, 32, 40, 48, 56,