paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 09:07:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* corrected random memory corruption during argument setup

Browse Source 
git-svn-id: trunk@29539 -
This commit is contained in:
Tomas Hajny 2015-01-24 00:25:35 +00:00
parent 7292e64e04
commit 2f92aa8d48
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/os2/system.pas
View File

@ -1055,7 +1055,7 @@ begin
(* ArgLen contains size of command line arguments including leading space. *)
ArgLen := Succ (StrLen (PC));
SysReallocMem (CmdLine, ArgVLen + ArgLen);
SysReallocMem (CmdLine, ArgVLen + Succ (ArgLen));
Move (PC^, CmdLine [ArgVLen], Succ (ArgLen));