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

FpDebug: Fix FindProcSymbol, always search all CompilationUnits

Browse Source 
git-svn-id: trunk@61516 -
This commit is contained in:
martin 2019-07-03 18:26:24 +00:00
parent 610d8c6e98
commit 96ba76e670
1 changed files with 2 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/fpdebug/fpdbgdwarfdataclasses.pas
View File

@ -3254,34 +3254,19 @@ begin
Iter := TMapIterator.Create(CU.FAddressMap); Iter := TMapIterator.Create(CU.FAddressMap);
try try
if Iter.EOM
then begin
if MinMaxSet
then Exit // minmaxset and no procs defined ???
else Continue;
end;
if not Iter.Locate(AAddress) if not Iter.Locate(AAddress)
then begin then begin
if not Iter.BOM if not Iter.BOM
then Iter.Previous; then Iter.Previous;
if Iter.BOM if Iter.BOM
then begin then Continue;
if MinMaxSet
then Exit // minmaxset and no proc @ minpc ???
else Continue;
end;
end; end;
// iter is at the closest defined address before AAddress // iter is at the closest defined address before AAddress
Info := Iter.DataPtr; Info := Iter.DataPtr;
if AAddress > Info^.EndPC if AAddress > Info^.EndPC
then begin then Continue;
if MinMaxSet
then Exit // minmaxset and no proc @ maxpc ???
else Continue;
end;
// TDbgDwarfProcSymbol // TDbgDwarfProcSymbol
Result := Cu.DwarfSymbolClassMap.CreateProcSymbol(CU, Iter.DataPtr, AAddress); Result := Cu.DwarfSymbolClassMap.CreateProcSymbol(CU, Iter.DataPtr, AAddress);