paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-28 14:50:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: debugln

Browse Source 
git-svn-id: trunk@62345 -
This commit is contained in:
martin 2019-12-08 00:18:18 +00:00
parent 489625b121
commit a2a811c87c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpdebug/fpdbgcontroller.pas
View File

@ -1124,12 +1124,12 @@ begin
else begin
if not assigned(FCommand) then
begin
DebugLn(FPDBG_COMMANDS, 'Continue process without command.');
DebugLnEnter(FPDBG_COMMANDS, 'Continue process without command.');
FCurrentProcess.Continue(FCurrentProcess, FCurrentThread, False)
end
else
begin
DebugLn(FPDBG_COMMANDS, 'Continue process with command '+FCommand.ClassName);
DebugLnEnter(FPDBG_COMMANDS, 'Continue process with command '+FCommand.ClassName);
FCommand.DoContinue(FCurrentProcess, FCurrentThread);
end;
@ -1140,6 +1140,7 @@ begin
FCommand.Thread := nil;
FreeAndNil(FCurrentThread);
end;
DebugLnExit(FPDBG_COMMANDS);
end;
end;
if not FCurrentProcess.WaitForDebugEvent(AProcessIdentifier, AThreadIdentifier) then