paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-15 23:50:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed CompareDWord after r8827 (compiler warnings should not be ignored :).

Browse Source 
git-svn-id: trunk@9038 -
This commit is contained in:
yury 2007-11-01 13:42:01 +00:00
parent ad5ce1adf4
commit 5e9dd6cd4c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/generic.inc
View File

@ -491,7 +491,7 @@ function CompareDWord(Const buf1,buf2;len:SizeInt):SizeInt;
var
aligncount : sizeint;
psrc,pdest,pend : pdword;
b : ptruint;
b : ptrint;
begin
b:=0;
psrc:=@buf1;
@ -543,7 +543,7 @@ begin
if ((PtrUInt(pdest) and 3) or (PtrUInt(psrc) and 3))<>0 then
while psrc<pend do
begin
b:=(ptruint(unaligned(psrc^))-ptruint(unaligned(pdest^)));
b:=(ptrint(unaligned(psrc^))-ptrint(unaligned(pdest^)));
if b<>0 then
begin
if b<0 then
@ -558,7 +558,7 @@ begin
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
while psrc<pend do
begin
b:=(ptruint(psrc^)-ptruint(pdest^));
b:=(ptrint(psrc^)-ptrint(pdest^));
if b<>0 then
begin
if b<0 then