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

* increased very low (64k) TBits limit to +/- 2GB, like most datastructures.

Browse Source 
Artifact of TP times? Mantis 12431. Further increasing (e.g. for 64-bit)
     needs cleanup (ptr(u)int?) first.

git-svn-id: trunk@12443 -
This commit is contained in:
marco 2008-12-27 21:15:30 +00:00
parent f0c236b992
commit 658dc2d8cd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/classes/classesh.inc
View File

@ -301,9 +301,9 @@ type
const const
BITSHIFT = 5; BITSHIFT = 5;
MASK = 31; {for longs that are 32-bit in size} MASK = 31; {for longs that are 32-bit in size}
MaxBitRec = $FFFF Div (SizeOf(longint)); // to further increase, signed integer limits have to be researched.
MaxBitRec = $7FFFFFFF Div (SizeOf(longint));
MaxBitFlags = MaxBitRec * 32; MaxBitFlags = MaxBitRec * 32;
type type
TBitArray = array[0..MaxBitRec - 1] of cardinal; TBitArray = array[0..MaxBitRec - 1] of cardinal;