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

IDE: clean up

Browse Source 
git-svn-id: trunk@48195 -
This commit is contained in:
mattias 2015-03-10 11:23:51 +00:00
parent 37ced37749
commit a7775e6cc5
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/debugmanager.pas
View File

@ -80,7 +80,7 @@ type
procedure mnuAddBpDataAtCursor(Sender: TObject); procedure mnuAddBpDataAtCursor(Sender: TObject);
// Debugger events // Debugger events
procedure DebuggerBreakPointHit(ADebugger: TDebuggerIntf; ABreakPoint: TBaseBreakPoint; var ACanContinue: Boolean); procedure DebuggerBreakPointHit({%H-}ADebugger: TDebuggerIntf; ABreakPoint: TBaseBreakPoint; var {%H-}ACanContinue: Boolean);
procedure DebuggerBeforeChangeState(ADebugger: TDebuggerIntf; AOldState: TDBGState); procedure DebuggerBeforeChangeState(ADebugger: TDebuggerIntf; AOldState: TDBGState);
procedure DebuggerChangeState(ADebugger: TDebuggerIntf; OldState: TDBGState); procedure DebuggerChangeState(ADebugger: TDebuggerIntf; OldState: TDBGState);
procedure DebuggerCurrentLine(Sender: TObject; const ALocation: TDBGLocationRec); procedure DebuggerCurrentLine(Sender: TObject; const ALocation: TDBGLocationRec);
@ -305,8 +305,6 @@ type
procedure Update(Item: TCollectionItem); override; procedure Update(Item: TCollectionItem); override;
end; end;
TDBGEventCategories = set of TDBGEventCategory;
{ TProjectExceptions } { TProjectExceptions }
procedure TProjectExceptions.SetIgnoreAll(const AValue: Boolean); procedure TProjectExceptions.SetIgnoreAll(const AValue: Boolean);
@ -435,6 +433,7 @@ begin
[lisHitCount, Hitcount, [lisHitCount, Hitcount,
lisAction, GetBreakPointActionsDescription(Self), lisAction, GetBreakPointActionsDescription(Self),
lisCondition, Expression]); lisCondition, Expression]);
if SenderMark<>nil then ;
end; end;
procedure TManagedBreakPoint.OnSourceMarkCreatePopupMenu( procedure TManagedBreakPoint.OnSourceMarkCreatePopupMenu(
@ -446,6 +445,7 @@ begin
AddMenuItem(lisEnableBreakPoint, True, @OnToggleEnableMenuItemClick); AddMenuItem(lisEnableBreakPoint, True, @OnToggleEnableMenuItemClick);
AddMenuItem(lisDeleteBreakPoint, True, @OnDeleteMenuItemClick); AddMenuItem(lisDeleteBreakPoint, True, @OnDeleteMenuItemClick);
AddMenuItem(lisViewBreakPointProperties, True, @OnViewPropertiesMenuItemClick); AddMenuItem(lisViewBreakPointProperties, True, @OnViewPropertiesMenuItemClick);
if SenderMark<>nil then ;
end; end;
procedure TManagedBreakPoint.DoChanged; procedure TManagedBreakPoint.DoChanged;
@ -782,6 +782,7 @@ end;
function TDebugManager.DoProjectClose(Sender: TObject; AProject: TLazProject): TModalResult; function TDebugManager.DoProjectClose(Sender: TObject; AProject: TLazProject): TModalResult;
begin begin
if AProject<>Project1 then exit;
ResetDebugger; ResetDebugger;
Result := mrOK; Result := mrOK;
end; end;
@ -1082,6 +1083,7 @@ var
begin begin
if Destroying or (MainIDE=nil) or (MainIDE.ToolStatus=itExiting) if Destroying or (MainIDE=nil) or (MainIDE.ToolStatus=itExiting)
then exit; then exit;
if AOldState=dsNone then ;
assert((ADebugger=FDebugger) and (ADebugger<>nil), 'TDebugManager.OnDebuggerChangeState'); assert((ADebugger=FDebugger) and (ADebugger<>nil), 'TDebugManager.OnDebuggerChangeState');
FInStateChange := True; FInStateChange := True;