paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 10:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: add flag dafHasArtifical - only read value, if present

Browse Source
This commit is contained in:
Martin 2023-03-21 09:37:29 +01:00
parent 3bff86dc23
commit c5057d55ed
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/fpdebug/fpdbgdwarfdataclasses.pas
View File

@ -146,6 +146,7 @@ type
TDwarfAbbrevFlag = (
dafHasChildren,
dafHasName,
dafHasArtifical,
dafHasLowAddr,
dafHasStartScope,
dafHasAbstractOrigin
@ -1600,6 +1601,9 @@ begin
if attrib = DW_AT_name then
Include(f, dafHasName)
else
if attrib = DW_AT_artificial then
Include(f, dafHasArtifical)
else
if attrib = DW_AT_low_pc then
Include(f, dafHasLowAddr)
else
@ -2911,7 +2915,7 @@ begin
Continue;
end;
if ASkipArtificial then begin
if ASkipArtificial and (dafHasArtifical in FAbbrev^.flags) then begin
if ReadValue(DW_AT_artificial, Val) and (Val <> 0) then begin
GoNext;
Continue;
@ -3424,7 +3428,8 @@ function TDwarfInformationEntry.IsArtificial: Boolean;
var
Val: Integer;
begin
Result := ReadValue(DW_AT_artificial, Val);
Result := dafHasArtifical in FAbbrev^.flags;
if Result then Result := ReadValue(DW_AT_artificial, Val);
if Result then Result := Val <> 0;
end;