paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-07 10:32:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Show "self" in locals window. Fpc encodes it as "this", so FpDebug must replace the name. Issue #39907 and part of issue #40000

Browse Source
This commit is contained in:
Martin 2023-02-04 13:00:19 +01:00
parent f7686f03f1
commit 60d221f23a
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/fpdebug/fpdbgdwarffreepascal.pas
View File

@ -279,6 +279,12 @@ type
end; end;
{%EndRegion } {%EndRegion }
{ TFpSymbolDwarfFreePascalDataParameter }
TFpSymbolDwarfFreePascalDataParameter = class(TFpSymbolDwarfDataParameter)
procedure NameNeeded; override;
end;
implementation implementation
uses uses
@ -406,6 +412,7 @@ begin
DW_TAG_class_type: Result := TFpSymbolDwarfFreePascalTypeStructure; DW_TAG_class_type: Result := TFpSymbolDwarfFreePascalTypeStructure;
DW_TAG_array_type: Result := TFpSymbolDwarfFreePascalSymbolTypeArray; DW_TAG_array_type: Result := TFpSymbolDwarfFreePascalSymbolTypeArray;
DW_TAG_subprogram: Result := TFpSymbolDwarfFreePascalDataProc; DW_TAG_subprogram: Result := TFpSymbolDwarfFreePascalDataProc;
DW_TAG_formal_parameter: Result := TFpSymbolDwarfFreePascalDataParameter;
else Result := inherited GetDwarfSymbolClass(ATag); else Result := inherited GetDwarfSymbolClass(ATag);
end; end;
end; end;
@ -1911,6 +1918,15 @@ begin
{$EndIf} {$EndIf}
end; end;
{ TFpSymbolDwarfFreePascalDataParameter }
procedure TFpSymbolDwarfFreePascalDataParameter.NameNeeded;
begin
inherited NameNeeded;
if InformationEntry.IsArtificial and (Name = 'this') then
SetName('self');
end;
initialization initialization
DwarfSymbolClassMapList.AddMap(TFpDwarfFreePascalSymbolClassMapDwarf2); DwarfSymbolClassMapList.AddMap(TFpDwarfFreePascalSymbolClassMapDwarf2);
DwarfSymbolClassMapList.AddMap(TFpDwarfFreePascalSymbolClassMapDwarf3); DwarfSymbolClassMapList.AddMap(TFpDwarfFreePascalSymbolClassMapDwarf3);