paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 07:40:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

Remove redundant check of FStatus

Browse Source
This commit is contained in:
ccrause 2021-07-19 21:52:12 +02:00
parent c0f05c8dc6
commit 68d50adedf
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/fpdebug/fpdbgavrclasses.pas
View File

@ -924,13 +924,8 @@ begin
end;
until FStatus <> 0;
if FStatus <> 0 then
begin
if FStatus in [SIGINT, SIGTRAP] then
begin
RestoreTempBreakInstructionCodes;
end;
end;
if FStatus in [SIGINT, SIGTRAP] then
RestoreTempBreakInstructionCodes;
result := FStatus <> 0;
end;