paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 18:39:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

GdbmiDebugger: Revert one StrLIComp optimization.

Browse Source 
git-svn-id: trunk@64785 -
This commit is contained in:
juha 2021-03-11 20:26:46 +00:00
parent 1c2402a14a
commit c050ef9fca
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/gdbmiserverdebugger.pas
View File

@ -427,7 +427,7 @@ begin
if (ALine[1] = '&') and (ALine[2] = '"') then if (ALine[1] = '&') and (ALine[2] = '"') then
i := 3; i := 3;
if (not AnInLogWarning) if (not AnInLogWarning)
and (StrLIComp(LogDisconnect, @ALine[i], Length(LogDisconnect)) = 0) then begin and (LowerCase(Copy(ALine, i, Length(LogDisconnect))) = LogDisconnect) then begin
AHandled := True; AHandled := True;
AForceStop := True; AForceStop := True;
AStoppedParams := ''; AStoppedParams := '';