فهرست منبع

* CompareWord and CompareDWord fixed for building with <2.3.1

git-svn-id: trunk@9087 -
florian 18 سال پیش
والد
کامیت
b59fdbeb93
1فایلهای تغییر یافته به همراه2 افزوده شده و 2 حذف شده
  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