Explorar o código

* 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 %!s(int64=17) %!d(string=hai) anos
pai
achega
bc9e7c5580
Modificáronse 1 ficheiros con 2 adicións e 2 borrados
  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;