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

FpDebugger (pure): Show a message when starting the debuggee has failed. With some special attention to the case that someone tries to debug a 64 bit application with a 32 bit debugger.

Browse Source 
git-svn-id: trunk@45432 -
This commit is contained in:
joost 2014-06-09 16:29:25 +00:00
parent 431bbc727f
commit 0016101b7f
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/fpdebug/fpdbgwinclasses.pas
View File

@ -454,6 +454,7 @@ class function TDbgWinProcess.StartInstance(AFileName: string; AParams,
var
AProcess: TProcess;
begin
result := nil;
AProcess := TProcess.Create(nil);
try
AProcess.Options:=[poDebugProcess, poNewProcessGroup];
@ -464,12 +465,21 @@ begin
AProcess.Execute;
result := TDbgWinProcess.Create(AFileName, AProcess.ProcessID, AProcess.ThreadID, AOnLog);
TDbgWinProcess(result).FProcProcess := AProcess;
except
AProcess.Free;
raise;
on E: Exception do
begin
{$ifdef cpui386}
if (E is EProcess) and (GetLastError=50) then
begin
AOnLog(Format('Failed to start process "%s". Note that on Windows it is not possible to debug a 64-bit application with a 32-bit debugger.'+sLineBreak+'Errormessage: "%s".',[AFileName, E.Message]), dllInfo);
end
else
{$endif i386}
AOnLog(Format('Failed to start process "%s". Errormessage: "%s".',[AFileName, E.Message]), dllInfo);
AProcess.Free;
end;
end;
TDbgWinProcess(result).FProcProcess := AProcess;
end;