paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 02:31:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed occassional crash during InitArguments

Browse Source 
git-svn-id: trunk@2112 -
This commit is contained in:
Tomas Hajny 2006-01-01 23:28:25 +00:00
parent 6d3ae16267
commit 6d96ee4819
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/os2/system.pas
View File

@ -526,16 +526,10 @@ begin
PC := PChar (PIB^.Cmd) + ArgLen; PC := PChar (PIB^.Cmd) + ArgLen;
(* ArgLen contains size of command line arguments including leading space. *) (* ArgLen contains size of command line arguments including leading space. *)
ArgLen := StrLen (PC); ArgLen := Succ (StrLen (PC));
(* Just to make sure the leading space is there for all OS/2 versions... *)
if PC^ <> ' ' then
begin
CmdLine [ArgVLen] := ' ';
Inc (ArgVLen);
end;
SysReallocMem (CmdLine, ArgVLen + ArgLen); SysReallocMem (CmdLine, ArgVLen + ArgLen);
(* Ending #0 after program name gets overwritten with space from PIB^.Cmd. *)
Move (PC^, CmdLine [ArgVLen], Succ (ArgLen)); Move (PC^, CmdLine [ArgVLen], Succ (ArgLen));
(* ArgV has space for 8 parameters from the first allocation. *) (* ArgV has space for 8 parameters from the first allocation. *)