--- Merging r36343 into '.':

U    packages/rtl-objpas/src/inc/variants.pp
--- Recording mergeinfo for merge of r36343 into '.':
 U   .

# revisions: 36343

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

packages/rtl-objpas/src/inc/variants.pp

@@ -3897,7 +3897,7 @@ begin
 
     index:=RequestedVarType-CMinVarType;
     if index>=L then
-      SetLength(customvarianttypes,L+1);
+      SetLength(customvarianttypes,index+1);
     if Assigned(customvarianttypes[index]) then
     begin
       if customvarianttypes[index]=InvalidCustomVariantType then