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

Debugger GDBMI, prevent endless loop

Browse Source 
git-svn-id: trunk@48427 -
This commit is contained in:
martin 2015-03-20 00:32:58 +00:00
parent bdb8739939
commit 9dffe82111
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -10980,7 +10980,7 @@ begin
WStr := WStr + OneChar;
CurLocation := CurLocation + 2;
end;
until (OneChar = #0);
until (OneChar = #0) or (Length(WStr) > DebuggerProperties.MaxDisplayLengthForString);
Result := UTF16ToUTF8(WStr);
end;