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

DBG: fixed parsing sets for debug-inspector

Browse Source 
git-svn-id: trunk@37885 -
This commit is contained in:
martin 2012-07-06 01:14:41 +00:00
parent 35da2faa8c
commit 09c3e91542
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
debugger/gdbmidebugger.pp
View File

@ -11627,22 +11627,25 @@ var
Procedure SkipToEndOfField(EndAtComma: Boolean = False);
var
i: Integer;
i, j: Integer;
begin
// skip forward, past the next ",", but do NOT skip the closing "}"
i := 1;
j := 0;
while (StartPtr <= EndPtr) and (i > 0) do begin
case StartPtr^ of
'{': inc(i);
'}': if i = 1
then break // do not skip }
else dec(i);
'[': inc(j);
']': dec(j);
'''': begin
inc(StartPtr);
while (StartPtr <= EndPtr) and (StartPtr^ <> '''') do inc(StartPtr);
end;
',': if (i = 1) then begin
if EndAtComma then break;
',': if (i = 1) and (j < 1) then begin
if EndAtComma then break; // Do not increase StartPtr;
i := 0;
end;
end;