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

FpDebug: Fixed mistake in attempt to solve AV in StateMachineValid

Browse Source
This commit is contained in:
Joost van der Sluis 2022-05-13 22:50:52 +02:00
parent 239b2be664
commit be75a9d85e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpdebug/fpdbgdwarf.pas
View File

@ -5881,15 +5881,15 @@ begin
Result := FStateMachine <> nil;
if Result then Exit;
Result := FAddressInfo <> nil;
if not result then exit;
if FAddressInfo^.StateMachine = nil
then begin
CompilationUnit.BuildLineInfo(FAddressInfo, False);
if FAddressInfo^.StateMachine = nil then Exit;
end;
Result := FAddressInfo <> nil;
if not result then exit;
// we cannot restore a statemachine to its current state
// so we shouldn't modify FAddressInfo^.StateMachine
// so use clones to navigate