diff options
| author | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-06-22 15:59:32 +0000 |
|---|---|---|
| committer | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-06-22 15:59:32 +0000 |
| commit | a679e93ed7c18ba3d3ecfc56150d4e4af18a9176 (patch) | |
| tree | 10aa54bdd890cedf311993eabbbcaa5d0116e586 /packages/paszlib | |
| parent | 9cc8b24be8b1a510d2a3facf85d90e4720f72e1b (diff) | |
| download | fpc-a679e93ed7c18ba3d3ecfc56150d4e4af18a9176.tar.gz | |
* Explicitly redefine TByteArray as zero length to avoid Range Check Errors
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@17797 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/paszlib')
| -rw-r--r-- | packages/paszlib/src/trees.pas | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/packages/paszlib/src/trees.pas b/packages/paszlib/src/trees.pas index 4d3d455e6b..d4b9af7adb 100644 --- a/packages/paszlib/src/trees.pas +++ b/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, |