From 37802bc55daf85707e9ca633fa50f3f66558a380 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Thu, 24 Oct 2013 21:32:12 +0000
Subject: [PATCH] Debugger: Fix parsing class with nested record / array of
 record / newer gdb

git-svn-id: trunk@43318 -
---
 debugger/gdbtypeinfo.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/debugger/gdbtypeinfo.pp b/debugger/gdbtypeinfo.pp
index b618c55fc5..c2ffad0b7b 100644
--- a/debugger/gdbtypeinfo.pp
+++ b/debugger/gdbtypeinfo.pp
@@ -2391,8 +2391,8 @@ var
           j := 1;
           while true do begin
             while (j <= l) and (S2[j] in ['^','(', ' ']) do inc(j);
-            if (lowercase(copy(S2, j, 7)) = 'array [') then begin
-              inc(j, 8+3);
+            if (lowercase(copy(S2, j, 6)) = 'array ') then begin
+              inc(j, 5+3);
               while (j <= l) and
                     not ( (S2[j-3] = ' ') and (S2[j-2] in ['o','O']) and (S2[j-1] in ['f','F']) and (S2[j] = ' ') )
               do