paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 04:18:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

decrease restarts_to_go only if restart is enabled (solves runtime error if compiled with range checks)

Browse Source
This commit is contained in:
Ondrej Pokorny 2025-03-28 10:18:39 +01:00 committed by Michael Van Canneyt
parent 0d988f2c96
commit ec5b4d458e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/pasjpeg/src/jdhuff.pas
View File

@ -1240,7 +1240,8 @@ begin
end;
{ Account for restart interval (no-op if not using restarts) }
Dec(entropy^.restarts_to_go);
if (cinfo^.restart_interval <> 0) then
Dec(entropy^.restarts_to_go);
decode_mcu := TRUE;
end;