paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 07:07:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

* allocate an extra byte for argv[0]

Browse Source
This commit is contained in:
peter 1999-10-22 14:47:19 +00:00
parent 863f35e72b
commit 4bf41d3afb
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/win32/syswin32.pp
View File

@ -680,7 +680,7 @@ begin
repeat
Inc(Arglen);
until (cmdline[Arglen]=#0);
getmem(argsbuf[count],arglen);
getmem(argsbuf[count],arglen+1);
move(cmdline^,argsbuf[count]^,arglen);
{ Now skip the first one }
cmdline:=GetCommandLine;
@ -1010,7 +1010,10 @@ end.
{
$Log$
Revision 1.45 1999-10-03 19:39:05 peter
Revision 1.46 1999-10-22 14:47:19 peter
* allocate an extra byte for argv[0]
Revision 1.45 1999/10/03 19:39:05 peter
* fixed argv[0] length
Revision 1.44 1999/09/10 15:40:35 peter