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

FpDebug: Remove duplicate ApplyContext calls

Browse Source 
git-svn-id: trunk@61938 -
This commit is contained in:
martin 2019-09-28 19:08:16 +00:00
parent 82f84c23c4
commit df73d42186
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpdebug/fpdbgdwarf.pas
View File

@ -1374,14 +1374,12 @@ begin
then begin then begin
if InfoEntry.IsAddressInStartScope(FAddress) and not InfoEntry.IsArtificial then begin if InfoEntry.IsAddressInStartScope(FAddress) and not InfoEntry.IsArtificial then begin
Result := SymbolToValue(TFpSymbolDwarf.CreateSubClass(AName, InfoEntry)); Result := SymbolToValue(TFpSymbolDwarf.CreateSubClass(AName, InfoEntry));
ApplyContext(Result);
exit; exit;
end; end;
end; end;
InfoEntry.ScopeIndex := StartScopeIdx; InfoEntry.ScopeIndex := StartScopeIdx;
Result := SymbolToValue(TFpSymbolDwarf.CreateSubClass(AName, InfoEntry)); Result := SymbolToValue(TFpSymbolDwarf.CreateSubClass(AName, InfoEntry));
ApplyContext(Result);
exit; exit;
end; end;
end; end;
@ -1390,7 +1388,6 @@ begin
tg := InfoEntry.AbbrevTag; tg := InfoEntry.AbbrevTag;
if (tg = DW_TAG_class_type) or (tg = DW_TAG_structure_type) then begin if (tg = DW_TAG_class_type) or (tg = DW_TAG_structure_type) then begin
if FindSymbolInStructure(AName,PNameUpper, PNameLower, InfoEntry, Result) then begin if FindSymbolInStructure(AName,PNameUpper, PNameLower, InfoEntry, Result) then begin
ApplyContext(Result);
exit; // TODO: check error exit; // TODO: check error
end; end;
//InfoEntry.ScopeIndex := StartScopeIdx; //InfoEntry.ScopeIndex := StartScopeIdx;
@ -1399,7 +1396,6 @@ begin
else else
if (StartScopeIdx = SubRoutine.InformationEntry.ScopeIndex) then begin // searching in subroutine if (StartScopeIdx = SubRoutine.InformationEntry.ScopeIndex) then begin // searching in subroutine
if FindLocalSymbol(AName,PNameUpper, PNameLower, InfoEntry, Result) then begin if FindLocalSymbol(AName,PNameUpper, PNameLower, InfoEntry, Result) then begin
ApplyContext(Result);
exit; // TODO: check error exit; // TODO: check error
end; end;
//InfoEntry.ScopeIndex := StartScopeIdx; //InfoEntry.ScopeIndex := StartScopeIdx;
@ -1410,7 +1406,6 @@ begin
if InfoEntry.GoNamedChildEx(PNameUpper, PNameLower) then begin if InfoEntry.GoNamedChildEx(PNameUpper, PNameLower) then begin
if InfoEntry.IsAddressInStartScope(FAddress) and not InfoEntry.IsArtificial then begin if InfoEntry.IsAddressInStartScope(FAddress) and not InfoEntry.IsArtificial then begin
Result := SymbolToValue(TFpSymbolDwarf.CreateSubClass(AName, InfoEntry)); Result := SymbolToValue(TFpSymbolDwarf.CreateSubClass(AName, InfoEntry));
ApplyContext(Result);
exit; exit;
end; end;
end; end;