paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-24 23:48:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

amend * Debugger: Fixes To TWatchResultDat

Browse Source
This commit is contained in:
Martin 2022-08-05 16:18:05 +02:00
parent dd22337fc3
commit 5708b50487
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazdebuggers/lazdebuggerfp/fpdebuggerresultdata.pas
View File

@ -165,7 +165,7 @@ begin
dec(FCurMaxArrayConv);
end;
AnResFld := AnResData.CreateValueHandleResult(CurConv);
AnResFld := AnResData.CreateValueHandlerResult(CurConv);
if (CurConv <> nil) then begin
FInNonConvert := True;
@ -184,7 +184,7 @@ begin
else
AnResFld.CreateError('');
AnResData := AnResData.AddField('', dfvUnknown, []);
AnResData := AnResData.SetDerefData;
end;
finally
CurConv.ReleaseReference;

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

@ -169,7 +169,7 @@ type
);
// returns the intf for the converted result
// Use SetDerefData to get the interface for the NON-converted result
function CreateValueHandleResult(AValueHandler: TLazDbgValueConverterIntf): TLzDbgWatchDataIntf;
function CreateValueHandlerResult(AValueHandler: TLazDbgValueConverterIntf): TLzDbgWatchDataIntf;
procedure CreateError(AVal: String);
// For all Values

4
ide/packages/idedebugger/debugger.pp
View File

@ -726,7 +726,7 @@ type
//AOwnFieldCount: Integer = 0; // Fields declared in this structure (no anchestors)
//ARecurseFieldCount: Integer = 0 // Fields including anchestors
);
function CreateValueHandleResult(AValueHandler: TLazDbgValueConverterIntf): TLzDbgWatchDataIntf;
function CreateValueHandlerResult(AValueHandler: TLazDbgValueConverterIntf): TLzDbgWatchDataIntf;
procedure CreateError(AVal: String); virtual;
@ -3756,7 +3756,7 @@ begin
AfterDataCreated;
end;
function TCurrentResData.CreateValueHandleResult(
function TCurrentResData.CreateValueHandlerResult(
AValueHandler: TLazDbgValueConverterIntf): TLzDbgWatchDataIntf;
begin
BeforeCreateValue;