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

LazDebuggerIntf: fix #40762

Browse Source
This commit is contained in:
Martin 2024-02-14 18:02:30 +01:00
parent b1d880be64
commit 021178a42a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazdebuggers/lazdebuggerintf/lazdebuggertemplate.pas
View File

@ -76,7 +76,7 @@ type
= class(_BASE) = class(_BASE)
strict private strict private
FSupplier: _SUPPLIER_INTF; FSupplier: _SUPPLIER_INTF;
private protected
procedure SetSupplier(ASupplier: _SUPPLIER_INTF); procedure SetSupplier(ASupplier: _SUPPLIER_INTF);
procedure RemoveSupplier(ASupplier: _SUPPLIER_INTF); procedure RemoveSupplier(ASupplier: _SUPPLIER_INTF);
protected protected
@ -97,7 +97,7 @@ type
= class(_BASE) = class(_BASE)
strict private strict private
FMonitor: _MONITOR_INTF; FMonitor: _MONITOR_INTF;
private protected
procedure SetMonitor(AMonitor: _MONITOR_INTF); procedure SetMonitor(AMonitor: _MONITOR_INTF);
protected protected
procedure DoNewMonitor; virtual; procedure DoNewMonitor; virtual;