paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:49:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Set the upper bound of TLineArray to max. possible value so that this

Browse Source 
unit works correctly with activated range checks
This commit is contained in:
sg 2000-01-08 12:08:58 +00:00
parent f9d9c8aa0a
commit 65631b0e44
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fcl/shedit/doc_text.pp
View File

@ -33,7 +33,7 @@ type
end; end;
PLineArray = ^TLineArray; PLineArray = ^TLineArray;
TLineArray = array[0..0] of TLine; TLineArray = array[0..$7fffffff div SizeOf(TLine)] of TLine;
const const
@ -261,7 +261,11 @@ end.
{ {
$Log$ $Log$
Revision 1.7 2000-01-07 01:24:34 peter Revision 1.8 2000-01-08 12:08:58 sg
* Set the upper bound of TLineArray to max. possible value so that this
unit works correctly with activated range checks
Revision 1.7 2000/01/07 01:24:34 peter
* updated copyright to 2000 * updated copyright to 2000
Revision 1.6 2000/01/06 01:20:34 peter Revision 1.6 2000/01/06 01:20:34 peter