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

FpDebug: Trigger "Changed" after adding dis-assembled ranges. Fixes scrolling down in frontend.

Browse Source
This commit is contained in:
Martin 2022-02-09 14:47:51 +01:00
parent 766bc1a877
commit d7b9ebb6dc
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -541,6 +541,8 @@ type
{ TFPDBGDisassembler }
TFPDBGDisassembler = class(TDBGDisassembler)
private
FInPrepare: boolean;
protected
function PrepareEntries(AnAddr: TDbgPtr; ALinesBefore, ALinesAfter: Integer): boolean; override;
end;
@ -1904,9 +1906,11 @@ var
AOffset: longint;
begin
Result := False;
if (Debugger = nil) or not(Debugger.State = dsPause) then
if (Debugger = nil) or not(Debugger.State = dsPause) or FInPrepare then
exit;
FInPrepare := True;
try
ADisassembler := TFpDebugDebugger(Debugger).FDbgController.CurrentProcess.Disassembler;
Sym:=nil;
ASrcFileLine:=0;
@ -2091,6 +2095,7 @@ begin
ARange.RangeEndAddr:=ALastAddr;
ARange.LastEntryEndAddr:={%H-}TDBGPtr(p);
EntryRanges.AddRange(ARange);
Changed;
result := true;
end
else
@ -2098,6 +2103,9 @@ begin
result := false;
ARange.Free;
end;
finally
FInPrepare := False;
end;
end;
{ TFPRegisters }