paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 11:51:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler: don't treat array[..] of dynamic array as a 2 dimension array

Browse Source 
git-svn-id: trunk@24522 -
This commit is contained in:
paul 2013-05-17 01:08:27 +00:00
parent 6695c8578f
commit b333ef582b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ncgrtti.pas
View File

@ -604,7 +604,10 @@ implementation
write_rtti_reference(curdef.rangedef,rt);
inc(dimcount);
totalcount:=totalcount*curdef.elecount;
if assigned(curdef.elementdef)and(curdef.elementdef.typ=arraydef) then
{ get the next static array }
if assigned(curdef.elementdef) and
(curdef.elementdef.typ=arraydef) and
not(ado_IsDynamicArray in tarraydef(curdef.elementdef).arrayoptions) then
curdef:=tarraydef(curdef.elementdef)
else
break;