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

FpDebug: workaround, when hardcoded int3 is allowed as user breakpoint, don't stop on internal breakrequest. Issue #40910

Browse Source
This commit is contained in:
Martin 2024-04-21 19:36:08 +02:00
parent 7d11cc3fe8
commit 6b5a7e75ea
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/fpdebug/fpdbgwinclasses.pas
View File

@ -140,6 +140,7 @@ type
FIsSuspended: Boolean;
FBreakPointState: TBreakPointState;
FDoNotPollName: Boolean;
FIgnoreNextInt3: Boolean;
FName: String;
FUnwinder: TDbgStackUnwinderX86MultiMethod;
protected
@ -207,6 +208,7 @@ type
FInfo: TCreateProcessDebugInfo;
FProcProcess: TProcessWithRedirect;
FJustStarted, FTerminated: boolean;
FDbgUiRemoteBreakin: TDBGPtr;
FBitness: TBitness;
FThreadNameList: TDbgWinThreadNameList;
function GetFullProcessImageName(AProcessHandle: THandle): string;
@ -1454,6 +1456,8 @@ var
InterceptAtFirst: Boolean;
threadname: String;
t: TDbgThread;
Lib: TDbgLibrary;
FpProc: TFpSymbol;
begin
if AThread <> nil then
TDbgWinThread(AThread).EndSingleStepOverBreakPoint;
@ -1472,6 +1476,11 @@ begin
FJustStarted:=false;
result := deInternalContinue;
end
else
if (AThread <> nil) and (TDbgWinThread(AThread).FIgnoreNextInt3) then begin
result := deInternalContinue; // pause request
TDbgWinThread(AThread).FIgnoreNextInt3 := False;
end
else begin
result := deBreakpoint;
if AThread <> nil then
@ -1522,6 +1531,24 @@ begin
CREATE_THREAD_DEBUG_EVENT: begin
//DumpEvent('CREATE_THREAD_DEBUG_EVENT');
result := deInternalContinue;
if PauseRequested then begin
if FDbgUiRemoteBreakin = 0 then begin
FDbgUiRemoteBreakin := TDBGPtr(-1);
for Lib in LibMap do
if (lowercase(Lib.Name) = 'ntdll.dll') or
(lowercase(copy(Lib.Name, length(Lib.Name)-9, 10)) = '\ntdll.dll')
then begin
FpProc := Lib.SymbolTableInfo.FindProcSymbol('DbgUiRemoteBreakin', True);
if (FpProc <> nil) and (FpProc.Address.Address <> 0) then begin
FDbgUiRemoteBreakin := FpProc.Address.Address;
FpProc.ReleaseReference;
end;
break;
end;
end;
if (FDbgUiRemoteBreakin <> TDBGPtr(-1)) and (TDBGPtr(MDebugEvent.CreateThread.lpStartAddress) = FDbgUiRemoteBreakin) and (AThread <> nil) then
TDbgWinThread(AThread).FIgnoreNextInt3 := True;
end;
end;
CREATE_PROCESS_DEBUG_EVENT: begin
//DumpEvent('CREATE_PROCESS_DEBUG_EVENT');