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

* 64bit fix

Browse Source
This commit is contained in:
peter 2004-05-02 21:12:55 +00:00
parent 7f5711e17f
commit 7559d7050e
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/fpimgcmn.pp
View File

@ -112,7 +112,7 @@ begin
begin begin
t := (byte(result) xor d^); t := (byte(result) xor d^);
result := CRCtable[t] xor (result shr 8); result := CRCtable[t] xor (result shr 8);
inc (longword(d)); inc (d);
end; end;
end; end;