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

git-svn-id: trunk@9038 -

rtl/inc/generic.inc

@@ -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