mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 17:49:27 +02:00
* Set the upper bound of TLineArray to max. possible value so that this
unit works correctly with activated range checks
This commit is contained in:
parent
f9d9c8aa0a
commit
65631b0e44
@ -33,7 +33,7 @@ type
|
||||
end;
|
||||
|
||||
PLineArray = ^TLineArray;
|
||||
TLineArray = array[0..0] of TLine;
|
||||
TLineArray = array[0..$7fffffff div SizeOf(TLine)] of TLine;
|
||||
|
||||
const
|
||||
|
||||
@ -261,7 +261,11 @@ end.
|
||||
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.6 2000/01/06 01:20:34 peter
|
||||
|
Loading…
Reference in New Issue
Block a user