paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 06:23:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

gdbmi debugger: fix for parsing args in fpc mangled names

Browse Source 
git-svn-id: trunk@47535 -
This commit is contained in:
martin 2015-01-26 23:04:43 +00:00
parent fc081bce45
commit de12a42ac8
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -6806,10 +6806,9 @@ func="??"
if copy(func, i + 4, 3) = '$$_' then
inc(i, 3);
NameEnd := PosEx('$', func, i + 4);
if NameEnd > 0
then NameEnd := NameEnd - (i + 4)
else NameEnd := length(func) + 1;
fn := copy(func, i + 4, NameEnd); // function
if NameEnd <= 0
then NameEnd := length(func) + 1;
fn := copy(func, i + 4, NameEnd - (i + 4)); // function
i := pos('$_$', cl);
if i > 1 then begin