瀏覽代碼

Merged revisions 9087 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

........
r9087 | florian | 2007-11-03 00:33:57 +0100 (Sat, 03 Nov 2007) | 2 lines

* CompareWord and CompareDWord fixed for building with <2.3.1
........

git-svn-id: branches/fixes_2_2@9089 -

florian 18 年之前
父節點
當前提交
ed7f79030c
共有 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