From 658dc2d8cd13e2cb4c6b68e54e9cf04884ffb7c0 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sat, 27 Dec 2008 21:15:30 +0000
Subject: [PATCH]  * 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 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/objpas/classes/classesh.inc b/rtl/objpas/classes/classesh.inc
index 50f41fd61b..d8fde3dca6 100644
--- a/rtl/objpas/classes/classesh.inc
+++ b/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;