paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:39:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebugger (pure): Let the kernel close the debug-handle after an application has quit. (bug #25986)

Browse Source 
git-svn-id: trunk@45423 -
This commit is contained in:
joost 2014-06-09 09:33:32 +00:00
parent d6884c8b08
commit 5c3fd8af1d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fpdbgwinclasses.pas
View File

@ -284,7 +284,6 @@ end;
destructor TDbgWinProcess.Destroy; destructor TDbgWinProcess.Destroy;
begin begin
CloseHandle(FInfo.hProcess);
FInfo.hProcess:=0; FInfo.hProcess:=0;
FProcProcess.Free; FProcProcess.Free;
inherited Destroy; inherited Destroy;
@ -853,6 +852,9 @@ begin
EXIT_PROCESS_DEBUG_EVENT: begin EXIT_PROCESS_DEBUG_EVENT: begin
//DumpEvent('EXIT_PROCESS_DEBUG_EVENT'); //DumpEvent('EXIT_PROCESS_DEBUG_EVENT');
SetExitCode(MDebugEvent.ExitProcess.dwExitCode); SetExitCode(MDebugEvent.ExitProcess.dwExitCode);
// Let the kernel close all debug-handles and close-up the
// debuggee.
Windows.ContinueDebugEvent(MDebugEvent.dwProcessId, MDebugEvent.dwThreadId, DBG_CONTINUE);
result := deExitProcess; result := deExitProcess;
end; end;
LOAD_DLL_DEBUG_EVENT: begin LOAD_DLL_DEBUG_EVENT: begin