From 0473f430ecb538d42dce3dd500e5f4e9c278bcf6 Mon Sep 17 00:00:00 2001 From: martin Date: Mon, 31 May 2021 14:24:55 +0000 Subject: [PATCH] FpDebug: Less compile warnings git-svn-id: trunk@65160 - --- components/fpdebug/fpdbgdwarffreepascal.pas | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/components/fpdebug/fpdbgdwarffreepascal.pas b/components/fpdebug/fpdbgdwarffreepascal.pas index e54a4deb79..0c7c157d74 100644 --- a/components/fpdebug/fpdbgdwarffreepascal.pas +++ b/components/fpdebug/fpdbgdwarffreepascal.pas @@ -126,9 +126,9 @@ type function GetNextTypeInfoForDataAddress(ATargetType: TFpSymbolDwarfType): TFpSymbolDwarfType; override; function GetDataAddressNext(AValueObj: TFpValueDwarf; var AnAddress: TFpDbgMemLocation; out ADoneWork: Boolean; ATargetType: TFpSymbolDwarfType): Boolean; override; - function GetTypedValueObject(ATypeCast: Boolean; AnOuterType: TFpSymbolDwarfType = nil): TFpValueDwarf; override; function DoReadDataSize(const AValueObj: TFpValue; out ADataSize: TFpDbgValueSize): Boolean; override; public + function GetTypedValueObject(ATypeCast: Boolean; AnOuterType: TFpSymbolDwarfType = nil): TFpValueDwarf; override; property IsInternalPointer: Boolean read GetIsInternalPointer write FIsInternalPointer; // Class (also DynArray, but DynArray is handled without this) end; @@ -155,10 +155,11 @@ type FIsShortString: (issUnknown, issShortString, issStructure); function IsShortString: Boolean; protected - function GetTypedValueObject(ATypeCast: Boolean; AnOuterType: TFpSymbolDwarfType = nil): TFpValueDwarf; override; procedure KindNeeded; override; function GetNestedSymbolCount: Integer; override; //function GetNestedSymbolByName(AIndex: String): TFpSymbol; override; + public + function GetTypedValueObject(ATypeCast: Boolean; AnOuterType: TFpSymbolDwarfType = nil): TFpValueDwarf; override; end; { TFpValueDwarfV2FreePascalShortString } @@ -480,7 +481,7 @@ end; { TFpDwarfFreePascalSymbolScope } var - ParentFpLowerNameInfo, ParentFp2LowerNameInfo, SelfLowerNameInfo: TNameSearchInfo; // case sensitive + ParentFpLowerNameInfo, ParentFp2LowerNameInfo: TNameSearchInfo; // case sensitive function TFpDwarfFreePascalSymbolScope.FindLocalSymbol(const AName: String; const ANameInfo: TNameSearchInfo; InfoEntry: TDwarfInformationEntry; out ADbgValue: TFpValue): Boolean;