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

FpDebugger (pure): Show error-message on failure to start debuggee

Browse Source 
git-svn-id: trunk@45848 -
This commit is contained in:
joost 2014-07-12 21:05:22 +00:00
parent 769fbc3cde
commit 8397b21039
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpdebug/fpdbgdarwinclasses.pas
View File

@ -623,12 +623,14 @@ begin
sleep(100);
result := TDbgDarwinProcess.Create(AFileName, Pid, -1, AOnLog);
TDbgDarwinProcess(result).FProcProcess := AProcess;
except
AProcess.Free;
raise;
on E: Exception do
begin
AOnLog(Format('Failed to start process "%s". Errormessage: "%s".',[AFileName, E.Message]), dllInfo);
AProcess.Free;
end;
end;
TDbgDarwinProcess(result).FProcProcess := AProcess;
end;
function TDbgDarwinProcess.ReadData(const AAdress: TDbgPtr;

10
components/fpdebug/fpdbglinuxclasses.pas
View File

@ -504,12 +504,14 @@ begin
sleep(100);
result := TDbgLinuxProcess.Create(AFileName, Pid, -1, AOnLog);
TDbgLinuxProcess(result).FProcProcess := AProcess;
except
AProcess.Free;
raise;
on E: Exception do
begin
AOnLog(Format('Failed to start process "%s". Errormessage: "%s".',[AFileName, E.Message]), dllInfo);
AProcess.Free;
end;
end;
TDbgLinuxProcess(result).FProcProcess := AProcess;
end;
function TDbgLinuxProcess.ReadData(const AAdress: TDbgPtr;