Browse Source

* CompareWord and CompareDWord fixed for building with <2.3.1

git-svn-id: trunk@9087 -
florian 18 years ago
parent
commit
b59fdbeb93
1 changed files with 2 additions and 2 deletions
  1. 2 2
      rtl/inc/generic.inc

+ 2 - 2
rtl/inc/generic.inc

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