Sfoglia il codice sorgente

* CompareWord and CompareDWord fixed for building with <2.3.1

git-svn-id: trunk@9087 -
florian 18 anni fa
parent
commit
b59fdbeb93
1 ha cambiato i file con 2 aggiunte e 2 eliminazioni
  1. 2 2
      rtl/inc/generic.inc

+ 2 - 2
rtl/inc/generic.inc

@@ -446,7 +446,7 @@ begin
           inc(pptruint(psrc));
           inc(pptruint(psrc));
         end;
         end;
     end;
     end;
-  if (len <= high(ptruint) div 2) and
+  if (len <= high(ptrint)) and
      (psrc+len >= psrc) then
      (psrc+len >= psrc) then
     pend:=psrc+len
     pend:=psrc+len
   else
   else
@@ -528,7 +528,7 @@ begin
           inc(pptruint(psrc));
           inc(pptruint(psrc));
         end;
         end;
     end;
     end;
-  if (len <= high(ptruint) div 4) and
+  if (len <= high(ptrint) div 2) and
      (psrc+len >= psrc) then
      (psrc+len >= psrc) then
     pend:=psrc+len
     pend:=psrc+len
   else
   else