paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-15 22:40:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

*debugger: Strip CR/FL from expressions. Fixes #16232

Browse Source 
git-svn-id: trunk@24559 -
This commit is contained in:
marc 2010-04-10 17:26:28 +00:00
parent 0d3e9fcffe
commit e2275307da
1 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
debugger/gdbmidebugger.pp
View File

@ -2483,6 +2483,30 @@ function TGDBMIDebugger.GDBEvaluate(const AExpression: String; var AResult: Stri
end;
end;
function StripExprNewlines(const ASource: String): String;
var
len: Integer;
srcPtr, dstPtr: PChar;
begin
len := Length(ASource);
SetLength(Result, len);
if len = 0 then Exit;
srcPtr := @ASource[1];
dstPtr := @Result[1];
while len > 0 do
begin
case srcPtr^ of
#0:;
#10, #13: dstPtr^ := ' ';
else
dstPtr^ := srcPtr^;
end;
Dec(len);
Inc(srcPtr);
Inc(dstPtr);
end;
end;
var
R, Rtmp: TGDBMIExecResult;
S: String;
@ -2496,7 +2520,8 @@ var
begin
AResult:='';
ATypeInfo:=nil;
S := AExpression;
S := StripExprNewlines(AExpression);
if S = '' then Exit(false);
if S[1] = '!'