ソースを参照

* Fixed size of arguments buffer.

git-svn-id: branches/unicodertl@12190 -
yury 17 年 前
コミット
c05dc89e8f
1 ファイル変更1 行追加1 行削除
  1. 1 1
      rtl/win32/system.pp

+ 1 - 1
rtl/win32/system.pp

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