paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 15:31:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Revert 17797

Browse Source 
git-svn-id: trunk@17802 -
This commit is contained in:
pierre 2011-06-22 21:07:09 +00:00
parent c5eb5eb240
commit 965b57d7b8
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -141,8 +141,6 @@ 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.}
@ -511,7 +509,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,