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

* fixed underflow error in get_interesting_appn() (patch by Marek Mauder

Browse Source 
(Galfar), mantis #15150)

git-svn-id: trunk@14262 -
This commit is contained in:
Jonas Maebe 2009-11-23 21:20:53 +00:00
parent d644fc87a1
commit cd3d324dd5
1 changed files with 20 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1692,6 +1692,9 @@ begin
numtoread := uint(length)
else
numtoread := 0;
if numtoread > 0 then
begin
for i := 0 to numtoread-1 do
begin
{ Read a byte into b[i]. If must suspend, return FALSE. }
@ -1714,6 +1717,7 @@ begin
b[i] := GETJOCTET(next_input_byte^);
Inc(next_input_byte);
end;
end;
Dec(length, numtoread);