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

FpDbg: little speed up in line numbers

Browse Source 
git-svn-id: trunk@42902 -
This commit is contained in:
martin 2013-09-20 12:24:50 +00:00
parent 4706e9b222
commit cfa76765be
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/fpdebug/fpdbgdwarf.pas
View File

@ -1488,6 +1488,7 @@ var
idx: Integer;
LineMap: PDWarfLineMap;
Line: Cardinal;
CurrentFileName: String;
begin
if not ADoAll
then begin
@ -1498,6 +1499,7 @@ begin
BuildAddressMap;
Iter := TMapIterator.Create(FAddressMap);
idx := -1;
while FLineInfo.StateMachine.NextLine do
begin
@ -1507,15 +1509,18 @@ begin
Continue;
end;
idx := FLineNumberMap.IndexOf(FLineInfo.StateMachine.FileName);
if idx = -1
then begin
LineMap := New(PDWarfLineMap);
LineMap^.Init;
FLineNumberMap.AddObject(FLineInfo.StateMachine.FileName, TObject(LineMap));
end
else begin
LineMap := PDWarfLineMap(FLineNumberMap.Objects[idx]);
if (idx < 0) or (CurrentFileName <> FLineInfo.StateMachine.FileName) then begin
idx := FLineNumberMap.IndexOf(FLineInfo.StateMachine.FileName);
if idx = -1
then begin
LineMap := New(PDWarfLineMap);
LineMap^.Init;
FLineNumberMap.AddObject(FLineInfo.StateMachine.FileName, TObject(LineMap));
end
else begin
LineMap := PDWarfLineMap(FLineNumberMap.Objects[idx]);
end;
CurrentFileName := FLineInfo.StateMachine.FileName;
end;
LineMap^.SetAddressForLine(Line, FLineInfo.StateMachine.Address);