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

FpDebug: More use of name hashes

Browse Source 
git-svn-id: trunk@63816 -
This commit is contained in:
martin 2020-08-23 12:52:32 +00:00
parent f34d943098
commit b63067892d
2 changed files with 2 additions and 0 deletions

1
components/fpdebug/fpdbgdwarf.pas
View File

@ -1448,6 +1448,7 @@ begin
Continue;
end;
if InfoEntry.InfoScope.Current^.NameHash = NameInfo.NameHash then
if InfoEntry.ReadName(InfoName) and not InfoEntry.IsArtificial
then begin
if (CompareUtf8BothCase(PChar(NameInfo.NameUpper), PChar(NameInfo.NameLower), InfoName)) then begin

1
components/fpdebug/fpdbgdwarfdataclasses.pas
View File

@ -344,6 +344,7 @@ type
function Clone: TDwarfInformationEntry;
property AbbrevTag: Cardinal read GetAbbrevTag;
property InfoScope: TDwarfScopeInfo read FScope;
function ReadValue(const AnAttribData: TDwarfAttribData; out AValue: Integer): Boolean; inline;
function ReadValue(const AnAttribData: TDwarfAttribData; out AValue: Int64): Boolean; inline;