2
0
Эх сурвалжийг харах

* fixed syntax errors in r11708 (and it wasn't tested in the nightly
Sparc regressions tests because Solaris is an FPC_USE_LIBC platform,
and these use memset rather than the generic fillchar)

git-svn-id: trunk@11711 -

Jonas Maebe 17 жил өмнө
parent
commit
bc9e7c5580
1 өөрчлөгдсөн 2 нэмэгдсэн , 2 устгасан
  1. 2 2
      rtl/inc/generic.inc

+ 2 - 2
rtl/inc/generic.inc

@@ -127,8 +127,8 @@ begin
       if sizeof(ptruint)=8 then
         v:=(v shl 32) or v;
       { Align on native pointer size }
-      pend:=pbyte(align(pdest,sizeof(PtrUInt));
-      dec(count,pend-dest);
+      pend:=pbyte(align(pdest,sizeof(PtrUInt)));
+      dec(count,pend-pdest);
       while pdest<pend do
         begin
           pdest^:=value;