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

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

git-svn-id: trunk@12443 -

rtl/objpas/classes/classesh.inc

@@ -301,9 +301,9 @@ type
 const
    BITSHIFT = 5;
    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;
-
 type
    TBitArray = array[0..MaxBitRec - 1] of cardinal;