paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 18:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: remove empty code

Browse Source
This commit is contained in:
Martin 2022-05-16 16:48:43 +02:00
parent 3ea0e03d3b
commit f190c1ff0b
1 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/fpdebug/fpdbgdwarf.pas
View File

@ -398,9 +398,6 @@ type
{ TFpValueDwarfStructBase } { TFpValueDwarfStructBase }
TFpValueDwarfStructBase = class(TFpValueDwarf) TFpValueDwarfStructBase = class(TFpValueDwarf)
protected
function GetMember(AIndex: Int64): TFpValue; override;
function GetMemberByName(const AIndex: String): TFpValue; override;
end; end;
TFpValueDwarfStruct = class(TFpValueDwarfStructBase) TFpValueDwarfStruct = class(TFpValueDwarfStructBase)
@ -1085,20 +1082,6 @@ begin
EvaluatedFields := EvaluatedFields + [sfiAddress]; EvaluatedFields := EvaluatedFields + [sfiAddress];
end; end;
{ TFpValueDwarfStructBase }
function TFpValueDwarfStructBase.GetMember(AIndex: Int64): TFpValue;
begin
Result := inherited GetMember(AIndex);
end;
function TFpValueDwarfStructBase.GetMemberByName(const AIndex: String
): TFpValue;
begin
Result := inherited GetMemberByName(AIndex);
end;
{ TFpValueDwarfSubroutine } { TFpValueDwarfSubroutine }
function TFpValueDwarfSubroutine.IsValidTypeCast: Boolean; function TFpValueDwarfSubroutine.IsValidTypeCast: Boolean;