Ver código fonte

* 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 anos atrás
pai
commit
bc9e7c5580
1 arquivos alterados com 2 adições e 2 exclusões
  1. 2 2
      rtl/inc/generic.inc

+ 2 - 2
rtl/inc/generic.inc

@@ -127,8 +127,8 @@ begin
       if sizeof(ptruint)=8 then
       if sizeof(ptruint)=8 then
         v:=(v shl 32) or v;
         v:=(v shl 32) or v;
       { Align on native pointer size }
       { 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
       while pdest<pend do
         begin
         begin
           pdest^:=value;
           pdest^:=value;