paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 16:56:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBG: Assembler-View: Fixed crash after resting (destroy) debugger

Browse Source 
git-svn-id: trunk@28257 -
This commit is contained in:
martin 2010-11-15 22:51:36 +00:00
parent 8e1f7a799e
commit fc0fb43e9d
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
debugger/assemblerdlg.pp
View File

@ -76,6 +76,7 @@ type
procedure ClearLineMap(AState: TAsmDlgLineMapState = lmsUnknown);
procedure DisassemblerChanged(Sender: TObject);
procedure SetDisassembler(const AValue: TIDEDisassembler);
procedure SetDebugger(const AValue: TDebugger);
function FormatLine(ALine: TAsmDlgLineEntry; W: Integer): String;
procedure UpdateLineData;
procedure UpdateLineDataEx(ALineMap: TAsmDlgLineEntries;
@ -144,6 +145,18 @@ begin
end;
end;
procedure TAssemblerDlg.SetDebugger(const AValue: TDebugger);
begin
if FDebugger = AValue
then exit;
if FDebugger <> nil
then FDebugger.RemoveNotifyEvent(dnrDestroy, @DoDebuggerDestroyed);
FDebugger := AValue;
if FDebugger <> nil
then FDebugger.AddNotifyEvent(dnrDestroy, @DoDebuggerDestroyed);
end;
constructor TAssemblerDlg.Create(AOwner: TComponent);
begin
FGutterWidth := 32;
@ -163,6 +176,7 @@ end;
destructor TAssemblerDlg.Destroy;
begin
SetDisassembler(nil);
SetDebugger(nil);
FDisassemblerNotification.OnChange := nil;
FDisassemblerNotification.ReleaseReference;
inherited Destroy;
@ -440,14 +454,7 @@ end;
procedure TAssemblerDlg.SetLocation(ADebugger: TDebugger; const AAddr: TDBGPtr);
begin
if FDebugger <> ADebugger
then begin
if FDebugger <> nil
then FDebugger.RemoveNotifyEvent(dnrDestroy, @DoDebuggerDestroyed);
FDebugger := ADebugger;
if FDebugger <> nil
then FDebugger.AddNotifyEvent(dnrDestroy, @DoDebuggerDestroyed);
end;
SetDebugger(ADebugger);
FTopLine := -(FLineCount div 2);
FSelectLine := 0;
FSelectionEndLine := 0;