paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 20:39:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r36343 into '.':

Browse Source 
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 -
This commit is contained in:
marco 2017-05-28 18:19:33 +00:00
parent d34dcf1c60
commit ae0e1255bb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl-objpas/src/inc/variants.pp
View File

@ -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