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

fpdebug: fixed TDbgWinProcess.Continue if aThread invalid return false

Browse Source 
git-svn-id: branches/fixes_1_6@50886 -
This commit is contained in:
mattias 2015-12-17 22:08:34 +00:00
parent e61af96817
commit 06659f7de1
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fpdbgclasses.pp
View File

@ -1245,9 +1245,9 @@ end;
destructor TDbgThread.Destroy;
begin
FProcess.ThreadDestroyed(Self);
FRegisterValueList.Free;
FreeAndNil(FRegisterValueList);
ClearCallStack;
FCallStackEntryList.Free;
FreeAndNil(FCallStackEntryList);
inherited;
end;

10
components/fpdebug/fpdbgwinclasses.pas
View File

@ -489,9 +489,10 @@ function TDbgWinProcess.Continue(AProcess: TDbgProcess; AThread: TDbgThread;
begin
if assigned(AThread) then
begin
if not FThreadMap.HasId(AThread.ID) then
if not FThreadMap.HasId(AThread.ID) then begin
AThread.Free;
else begin
exit(false);
end else begin
AThread.NextIsSingleStep:=SingleStep;
if SingleStep or assigned(FCurrentBreakpoint) then
TDbgWinThread(AThread).SetSingleStep;
@ -504,9 +505,8 @@ begin
EXCEPTION_SINGLE_STEP: begin
Windows.ContinueDebugEvent(MDebugEvent.dwProcessId, MDebugEvent.dwThreadId, DBG_CONTINUE);
end
else begin
Windows.ContinueDebugEvent(MDebugEvent.dwProcessId, MDebugEvent.dwThreadId, DBG_EXCEPTION_NOT_HANDLED);
end;
else
Windows.ContinueDebugEvent(MDebugEvent.dwProcessId, MDebugEvent.dwThreadId, DBG_EXCEPTION_NOT_HANDLED);
end;
result := true;
end;