paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 12:29:25 +02: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;
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.}
@ -511,7 +509,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,