paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 18:39:20 +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; Result := FStateMachine <> nil;
if Result then Exit; if Result then Exit;
Result := FAddressInfo <> nil;
if not result then exit;
if FAddressInfo^.StateMachine = nil if FAddressInfo^.StateMachine = nil
then begin then begin
CompilationUnit.BuildLineInfo(FAddressInfo, False); CompilationUnit.BuildLineInfo(FAddressInfo, False);
if FAddressInfo^.StateMachine = nil then Exit; if FAddressInfo^.StateMachine = nil then Exit;
end; end;
Result := FAddressInfo <> nil;
if not result then exit;
// we cannot restore a statemachine to its current state // we cannot restore a statemachine to its current state
// so we shouldn't modify FAddressInfo^.StateMachine // so we shouldn't modify FAddressInfo^.StateMachine
// so use clones to navigate // so use clones to navigate