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

Debugger: Fix a wrong change in r64527 #077ebbe494.

Browse Source 
git-svn-id: trunk@64563 -
This commit is contained in:
juha 2021-02-13 08:54:07 +00:00
parent 9f27264e00
commit 436b2d3a74
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazdebuggergdbmi/gdbmidebuginstructions.pp
View File

@ -578,7 +578,7 @@ type
Result := ldGdb; Result := ldGdb;
exit; exit;
end; end;
if StartsStr('^done,', AData) {or (AData = '^done')} then begin if StartsStr('^done,', AData) or (AData = '^done') then begin
if FList = nil then if FList = nil then
FList := TGDBMINameValueList.Create(ALineData) FList := TGDBMINameValueList.Create(ALineData)
else else
@ -762,7 +762,7 @@ begin
// "(gdb) " // "(gdb) "
Result := False; Result := False;
if StartsStr('^done,', AData) {or (AData = '^done')} then begin if StartsStr('^done,', AData) or (AData = '^done') then begin
Result := True; Result := True;
if FDone then if FDone then
HandleContentError; HandleContentError;
@ -824,7 +824,7 @@ begin
//OR ^error => keep selected ? //OR ^error => keep selected ?
Result := False; Result := False;
if StartsStr('^done,', AData) {or (AData = '^done')} then begin if StartsStr('^done,', AData) or (AData = '^done') then begin
Result := True; Result := True;
if FDone then if FDone then
HandleContentError; HandleContentError;