Explorar el Código

* Fixed size of arguments buffer.

git-svn-id: branches/unicodertl@12190 -
yury hace 17 años
padre
commit
c05dc89e8f
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  1. 1 1
      rtl/win32/system.pp

+ 1 - 1
rtl/win32/system.pp

@@ -256,7 +256,7 @@ begin
       Inc(Fargc);
       Inc(Fargc);
    end;
    end;
    // Truncate buffers
    // Truncate buffers
-   SysReAllocMem(FArgs, dst - FArgs);
+   SysReAllocMem(FArgs, pointer(dst) - pointer(FArgs));
    SysReAllocMem(Fargv, Fargc*SizeOf(pointer));
    SysReAllocMem(Fargv, Fargc*SizeOf(pointer));
 end;
 end;