paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 14:38:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: added some GUID to interfaces

Browse Source
This commit is contained in:
Martin 2023-03-30 09:47:16 +02:00
parent c2237e38ed
commit 72c61f3ae8
3 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/debuggerintf/dbgintfdebuggerbase.pp
View File

@ -1563,7 +1563,7 @@ type
}
//TODO: remove TDebuggerIntf.OnEvent
TDebuggerEventLogInterface = interface
TDebuggerEventLogInterface = interface ['{92C1E508-E6EB-444E-8E75-566D3C8E49B0}']
procedure LogCustomEvent(const ACategory: TDBGEventCategory;
const AEventType: TDBGEventType; const AText: String);
procedure LogEventBreakPointHit(const ABreakpoint: TDBGBreakPoint; const ALocation: TDBGLocationRec);

8
components/lazdebuggers/lazdebuggerintf/lazdebuggerintf.pas
View File

@ -62,6 +62,7 @@ type
TDbgDataRequestEvent = procedure(Sender: IDbgDataRequestIntf; Data: TDbgDataRequestEventData) of object;
IDbgDataRequestIntf = interface
['{48D16FDC-8F02-4302-ABAA-4EA68827580D}']
procedure AddFreeNotification(ANotification: TNotifyEvent);
procedure RemoveFreeNotification(ANotification: TNotifyEvent);
@ -168,6 +169,7 @@ type
}
IDbgWatchDataIntf = interface
['{0FE00324-C265-4239-8781-51FFF8CEA31C}']
procedure CreatePrePrinted(AVal: String); // ATypes: TLzDbgWatchDataTypes);
procedure CreateString(AVal: String);// AnEncoding // "pchar data" // shortstring
procedure CreateWideString(AVal: WideString);
@ -238,6 +240,7 @@ type
{ IDbgWatchValueIntf }
IDbgWatchValueIntf = interface(IDbgDataRequestIntf)
['{20A8A0E3-C456-463D-8B33-DC0CF6037D6B}']
function ResData: IDbgWatchDataIntf;
(* ***** Methods for the front-end to provide the request ***** *)
@ -274,11 +277,13 @@ type
IDbgWatchesSupplierIntf = interface;
IDbgWatchesMonitorIntf = interface(specialize IInternalDbgMonitorIntf<IDbgWatchesSupplierIntf>)
['{42A7069E-D5DD-4350-A592-2000F67DC7E9}']
procedure InvalidateWatchValues;
procedure DoStateChange(const AOldState, ANewState: TDBGState); //deprecated;
end;
IDbgWatchesSupplierIntf = interface(specialize IInternalDbgSupplierIntf<IDbgWatchesMonitorIntf>)
['{F893B607-C295-4A3A-8253-FAB3D03C5AD5}']
procedure RequestData(AWatchValue: IDbgWatchValueIntf);
end;
@ -288,6 +293,7 @@ type
{%region ^^^^^ Locals ^^^^^ }
IDbgLocalsListIntf = interface(IDbgDataRequestIntf)
['{B288AD25-7D54-447C-AE9D-32B3E9789BCE}']
function Add(AName: String): IDbgWatchDataIntf;
function GetStackFrame: Integer;
@ -303,11 +309,13 @@ type
IDbgLocalsSupplierIntf = interface;
IDbgLocalsMonitorIntf = interface(specialize IInternalDbgMonitorIntf<IDbgLocalsSupplierIntf>)
['{7EBDD107-E55F-4E3F-9281-5CA0116EA75D}']
procedure InvalidateLocalValues;
procedure DoStateChange(const AOldState, ANewState: TDBGState); //deprecated;
end;
IDbgLocalsSupplierIntf = interface(specialize IInternalDbgSupplierIntf<IDbgLocalsMonitorIntf>)
['{755A287E-4609-4E8B-94CF-08525DC9A082}']
procedure RequestData(ALocalsList: IDbgLocalsListIntf);
end;

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

@ -14,6 +14,7 @@ type
TLazDbgValueConvertRegistryEntryClass = class of TLazDbgValueConvertRegistryEntry;
ILazDbgValueConverterSettingsFrameIntf = interface
['{0A2F548B-0621-4E2C-A94A-8DE5C3DF81B8}']
procedure ReadFrom(AConvertor: ILazDbgValueConverterIntf);
function WriteTo(AConvertor: ILazDbgValueConverterIntf): Boolean;
@ -22,6 +23,7 @@ type
end;
ILazDbgValueConverterIntf = interface
['{FC054A2E-17D3-4616-9F68-20E1169C29E8}']
procedure AddReference;
procedure ReleaseReference;
function CreateCopy: ILazDbgValueConverterIntf;
@ -32,6 +34,7 @@ type
end;
ILazDbgValueConvertSelectorIntf = interface
['{BEF1676E-0404-4F82-80BD-ABA4522A505E}']
procedure AddFreeNotification(ANotification: TNotifyEvent);
procedure RemoveFreeNotification(ANotification: TNotifyEvent);
function GetConverter: ILazDbgValueConverterIntf;
@ -42,6 +45,7 @@ type
{ ILazDbgValueConvertSelectorListIntf }
ILazDbgValueConvertSelectorListIntf = interface
['{7004204B-14ED-4282-A150-81AF71D133E3}']
function Count: Integer;
function Get(Index: Integer): ILazDbgValueConvertSelectorIntf;
property Items[Index: Integer]: ILazDbgValueConvertSelectorIntf read Get; default;