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

* fix for 7791, counter vars were unsigned and compared with x<0 and x>0 etc

Browse Source 
git-svn-id: trunk@5355 -
This commit is contained in:
marco 2006-11-13 12:12:35 +00:00
parent ae548087ca
commit ddbbcb875e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fcl/image/fpwritepng.pp
View File

@ -267,7 +267,7 @@ procedure TFPWriterPNG.DetermineHeader (var AHeader : THeaderChunk);
var c : integer; var c : integer;
function CountAlphas : integer; function CountAlphas : integer;
var none, half : boolean; var none, half : boolean;
x,y : longword; x,y : longint; // warning, checks on <0 !
p : integer; p : integer;
c : TFPColor; c : TFPColor;
a : word; a : word;