diff --git a/components/lazdebuggers/lazdebuggerfp/fpdebuggerresultdata.pas b/components/lazdebuggers/lazdebuggerfp/fpdebuggerresultdata.pas index d88ff9cc86..a34aeb3285 100644 --- a/components/lazdebuggers/lazdebuggerfp/fpdebuggerresultdata.pas +++ b/components/lazdebuggers/lazdebuggerfp/fpdebuggerresultdata.pas @@ -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; diff --git a/components/lazdebuggers/lazdebuggerintf/lazdebuggerintf.pas b/components/lazdebuggers/lazdebuggerintf/lazdebuggerintf.pas index 2f59c24972..0aeda62c87 100644 --- a/components/lazdebuggers/lazdebuggerintf/lazdebuggerintf.pas +++ b/components/lazdebuggers/lazdebuggerintf/lazdebuggerintf.pas @@ -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 diff --git a/ide/packages/idedebugger/debugger.pp b/ide/packages/idedebugger/debugger.pp index a3fd27868f..918ee8e77b 100644 --- a/ide/packages/idedebugger/debugger.pp +++ b/ide/packages/idedebugger/debugger.pp @@ -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;