--- Merging r30622 into '.':

U    rtl/objpas/classes/classesh.inc
--- Recording mergeinfo for merge of r30622 into '.':
 U   .

# revisions: 30622

git-svn-id: branches/fixes_3_0@31126 -

rtl/objpas/classes/classesh.inc

@@ -392,6 +392,7 @@ type
       { functions and properties to match TBits class }
       procedure SetBit(bit : longint; value : Boolean);
       procedure SetSize(value : longint);
+   Protected   
       procedure CheckBitIndex (Bit : longint;CurrentSize : Boolean);
    public
       { Public declarations }