mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-23 01:06:00 +02:00
fpdebug: fix building line info. Issue #0013989 Patch by Joost van der Sluis
git-svn-id: trunk@39564 -
This commit is contained in:
parent
940f0cba78
commit
034537a23f
@ -1264,6 +1264,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
if FLineInfo.StateMachine.Ended then Exit;
|
if FLineInfo.StateMachine.Ended then Exit;
|
||||||
|
|
||||||
|
BuildAddressMap;
|
||||||
Iter := TMapIterator.Create(FAddressMap);
|
Iter := TMapIterator.Create(FAddressMap);
|
||||||
|
|
||||||
while FLineInfo.StateMachine.NextLine do
|
while FLineInfo.StateMachine.NextLine do
|
||||||
|
Loading…
Reference in New Issue
Block a user