paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-27 20:11:43 +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); dec(FCurMaxArrayConv);
end; end;
AnResFld := AnResData.CreateValueHandleResult(CurConv); AnResFld := AnResData.CreateValueHandlerResult(CurConv);
if (CurConv <> nil) then begin if (CurConv <> nil) then begin
FInNonConvert := True; FInNonConvert := True;
@ -184,7 +184,7 @@ begin
else else
AnResFld.CreateError(''); AnResFld.CreateError('');
AnResData := AnResData.AddField('', dfvUnknown, []); AnResData := AnResData.SetDerefData;
end; end;
finally finally
CurConv.ReleaseReference; CurConv.ReleaseReference;

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

@ -169,7 +169,7 @@ type
); );
// returns the intf for the converted result // returns the intf for the converted result
// Use SetDerefData to get the interface for the NON-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); procedure CreateError(AVal: String);
// For all Values // 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) //AOwnFieldCount: Integer = 0; // Fields declared in this structure (no anchestors)
//ARecurseFieldCount: Integer = 0 // Fields including anchestors //ARecurseFieldCount: Integer = 0 // Fields including anchestors
); );
function CreateValueHandleResult(AValueHandler: TLazDbgValueConverterIntf): TLzDbgWatchDataIntf; function CreateValueHandlerResult(AValueHandler: TLazDbgValueConverterIntf): TLzDbgWatchDataIntf;
procedure CreateError(AVal: String); virtual; procedure CreateError(AVal: String); virtual;
@ -3756,7 +3756,7 @@ begin
AfterDataCreated; AfterDataCreated;
end; end;
function TCurrentResData.CreateValueHandleResult( function TCurrentResData.CreateValueHandlerResult(
AValueHandler: TLazDbgValueConverterIntf): TLzDbgWatchDataIntf; AValueHandler: TLazDbgValueConverterIntf): TLzDbgWatchDataIntf;
begin begin
BeforeCreateValue; BeforeCreateValue;