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

* fix memory corruption in Setup_arguments

Browse Source 
git-svn-id: trunk@7012 -
This commit is contained in:
pierre 2007-03-27 19:56:58 +00:00
parent fdc692a5ca
commit 44c567cf46
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/go32v2/system.pp
View File

@ -171,7 +171,7 @@ var
useproxy : boolean;
hp : ppchar;
doscmd : string[129]; { Dos commandline copied from PSP, max is 128 chars +1 for terminating zero }
arglen,
arglen,cmdlen,
count : longint;
argstart,
pc,arg : pchar;
@ -231,12 +231,13 @@ begin
move(dos_argv0^,argv[count]^,argv0len+1);
inc(count);
{ setup cmdline variable }
cmdline:=Getmem(argv0len+length(doscmd)+2);
cmdlen:=argv0len+length(doscmd)+2;
cmdline:=Getmem(cmdlen);
move(dos_argv0^,cmdline^,argv0len);
cmdline[argv0len]:=' ';
inc(argv0len);
move(doscmd[1],cmdline[argv0len],length(doscmd));
cmdline[argv0len+length(doscmd)+1]:=#0;
cmdline[cmdlen-1]:=#0;
{ parse dos commandline }
pc:=@doscmd[1];
while pc^<>#0 do