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

debugger: replace \\, \t etc in debugger output strings

Browse Source 
git-svn-id: trunk@11118 -
This commit is contained in:
vincents 2007-05-09 22:00:08 +00:00
parent a4af89298d
commit 75734cdf1d
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
debugger/gdbmidebugger.pp
View File

@ -1218,11 +1218,21 @@ begin
// scan till end
while idx <= len do
begin
if S[idx] = ''''
then begin
Inc(idx);
if idx > len then Break;
if S[idx] <> '''' then Break;
case S[idx] of
'''' : begin
Inc(idx);
if idx > len then Break;
if S[idx] <> '''' then Break;
end;
'\' : begin
Inc(idx);
if idx > len then Break;
case S[idx] of
't': S[idx] := #9;
'n': S[idx] := #10;
'r': S[idx] := #13;
end;
end;
end;
Inc(n);
Result[n] := S[idx];