paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:59:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix error shown in png testsuite "basn6a16". Was a regression by r41838 #8a1c1b7263. Issue #25055, patch from ocean.

Browse Source 
git-svn-id: trunk@46241 -
This commit is contained in:
juha 2014-09-15 16:04:58 +00:00
parent 6acfc0801e
commit 24997db694
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/intfgraphics.pas
View File

@ -1535,15 +1535,6 @@ var
PrecMask: QWord; PrecMask: QWord;
EightBytes: QWord; EightBytes: QWord;
begin begin
if Prec=16
then begin
// fast update
P:=@(TheData[Position.Byte]);
inc(P,6-Shift shr 3);
PWORD(P)^:=Bits;
Exit;
end;
P:=@(TheData[Position.Byte]); P:=@(TheData[Position.Byte]);
PrecMask:=(Qword(1) shl Prec)-1; PrecMask:=(Qword(1) shl Prec)-1;
Bits:=Bits shr (16-Prec); Bits:=Bits shr (16-Prec);