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

win32 interface: fixed compiler warning about mixed sign calculations

Browse Source 
git-svn-id: trunk@15624 -
This commit is contained in:
vincents 2008-06-30 09:04:58 +00:00
parent 1a4769094a
commit 9e94fa854d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32lclintf.inc
View File

@ -531,7 +531,7 @@ begin
DataSize := (Windows.MulDiv(ADesc.BitsPerPixel, ADesc.Width, 8) + 3) and not 3;
Align := DataSize and 3;
if Align <> 0
then DataSize := DataSize + (4 - Align);
then DataSize := DataSize + PtrUInt(4 - Align);
DataSize := DataSize * ADesc.Height;
if DataSize > ARawImage.DataSize
then DataSize := ARawImage.DataSize;