From b333ef582ba5eb0da32cba0028cc7a2e6b203c89 Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Fri, 17 May 2013 01:08:27 +0000
Subject: [PATCH] compiler: don't treat array[..] of dynamic array as a 2
 dimension array

git-svn-id: trunk@24522 -
---
 compiler/ncgrtti.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/compiler/ncgrtti.pas b/compiler/ncgrtti.pas
index 483f81db4c..13b2e968df 100644
--- a/compiler/ncgrtti.pas
+++ b/compiler/ncgrtti.pas
@@ -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;