paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-14 18:14:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix broken JPEG loading. Issue #40001

Browse Source 
(cherry picked from commit d9f5c47d2a)
This commit is contained in:
Ondrej Pokorny 2022-11-23 10:25:43 +01:00 committed by marcoonthegit
parent d261c00571
commit 172952684c
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/pasjpeg/src/jdmarker.pas
View File

@ -1747,6 +1747,7 @@ begin
datasrc^.next_input_byte := next_input_byte; datasrc^.next_input_byte := next_input_byte;
datasrc^.bytes_in_buffer := bytes_in_buffer; datasrc^.bytes_in_buffer := bytes_in_buffer;
cinfo^.src^.skip_input_data(cinfo, long(Offset-headerlen)); cinfo^.src^.skip_input_data(cinfo, long(Offset-headerlen));
Dec(remaining, long(Offset-headerlen));
next_input_byte := datasrc^.next_input_byte; next_input_byte := datasrc^.next_input_byte;
bytes_in_buffer := datasrc^.bytes_in_buffer; bytes_in_buffer := datasrc^.bytes_in_buffer;
end; end;