paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 12:59:15 +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

2
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.}