diff --git a/debugger/gdbmidebugger.pp b/debugger/gdbmidebugger.pp index d675265854..081683ba2a 100644 --- a/debugger/gdbmidebugger.pp +++ b/debugger/gdbmidebugger.pp @@ -6184,7 +6184,7 @@ func="??" NameEnd := PosEx('$', func, i + 4); if NameEnd > 0 then NameEnd := NameEnd - (i + 4) - else NameEnd := MaxInt; + else NameEnd := length(func) + 1; fn := copy(func, i + 4, NameEnd); // function i := pos('$_$', cl);