paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 10:16:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: Fix parsing class with nested record / array of record / newer gdb

Browse Source 
git-svn-id: trunk@43318 -
This commit is contained in:
martin 2013-10-24 21:32:12 +00:00
parent 60810fa307
commit 37802bc55d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debugger/gdbtypeinfo.pp
View File

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