paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 05:58:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Return errors when the debugger can't start.

Browse Source 
From 190b5e77a7
This commit is contained in:
Martin 2024-05-09 14:50:47 +02:00
parent 9e4dc74ca5
commit c67be2ea44
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fpdbgcontroller.pas
View File

@ -1631,12 +1631,14 @@ begin
if assigned(FMainProcess) then
begin
DebugLn(DBG_WARNINGS, 'The debuggee is already running');
FLastError := CreateError(fpInternalErr, ['The debugger is already running']);
Exit;
end;
if FExecutableFilename = '' then
begin
DebugLn(DBG_WARNINGS, 'No filename given to execute.');
FLastError := CreateError(fpInternalErr, ['No filename given to execute.']);
Exit;
end;
@ -1652,6 +1654,7 @@ begin
begin
result := false;
DebugLn(DBG_WARNINGS, 'Error - No support registered for debug target');
FLastError := CreateError(fpInternalErr, ['Unknown target for file: ' + FExecutableFilename]);
Exit;
end;
@ -1663,6 +1666,7 @@ begin
begin
Result := false;
DebugLn(DBG_WARNINGS, 'Error - could not create TDbgProcess');
FLastError := CreateError(fpInternalErr, ['could not create TDbgProcess']);
Exit;
end;