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

* fixed range check errors

Browse Source 
git-svn-id: trunk@12707 -
This commit is contained in:
Jonas Maebe 2009-02-07 21:50:22 +00:00
parent 05fcdceb6d
commit 31f3d1ead1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-base/src/ascii85.pp
View File

@ -182,11 +182,11 @@ begin
if aDecodedCount >= 1 then begin
BufferByte(aValue shr (24 - (0 * 8)));
if aDecodedCount >= 2 then begin
BufferByte(aValue shr (24 - (1 * 8)));
BufferByte((aValue shr (24 - (1 * 8))) and $ff);
if aDecodedCount >= 3 then begin
BufferByte(aValue shr (24 - (2 * 8)));
BufferByte((aValue shr (24 - (2 * 8))) and $ff);
if aDecodedCount >= 4 then begin
BufferByte(aValue shr (24 - (3 * 8)));
BufferByte((aValue shr (24 - (3 * 8))) and $ff);
if aDecodedCount >= 5 then begin
raise EConvertError.Create('not enough decoded data (internal error).');
end;