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

fpdebug: fixed crash

Browse Source
This commit is contained in:
mattias 2022-11-22 02:36:49 +01:00
parent 5ee7f1a519
commit 5e1326dab3
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgdwarfdataclasses.pas
View File

@ -4647,6 +4647,7 @@ begin
while FLineInfo.StateMachine.NextLine do while FLineInfo.StateMachine.NextLine do
begin begin
Line := FLineInfo.StateMachine.Line; Line := FLineInfo.StateMachine.Line;
LineMap:=nil;
if (idx < 0) or (CurrentFileName <> FLineInfo.StateMachine.FileName) then begin if (idx < 0) or (CurrentFileName <> FLineInfo.StateMachine.FileName) then begin
idx := FLineNumberMap.IndexOf(FLineInfo.StateMachine.FileName); idx := FLineNumberMap.IndexOf(FLineInfo.StateMachine.FileName);
@ -4665,6 +4666,7 @@ begin
addr := FLineInfo.StateMachine.Address; addr := FLineInfo.StateMachine.Address;
if (not FLineInfo.StateMachine.EndSequence) and (FLineInfo.StateMachine.IsStmt) if (not FLineInfo.StateMachine.EndSequence) and (FLineInfo.StateMachine.IsStmt)
and (Line > 0) and (Line > 0)
and (LineMap<>nil)
then then
LineMap^.SetAddressForLine(Line, addr); LineMap^.SetAddressForLine(Line, addr);