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

Merged revisions 2272 via svnmerge from

Browse Source 
http://peter@svn.freepascal.org/svn/fpc/trunk

........
r2272 | hajny | 2006-01-13 00:17:51 +0100 (Fri, 13 Jan 2006) | 1 line

  * fix for buggy ParamStr(0) / web bug #4666 as provided by Salvatore Licciardi (and in comp.lang.pascal.misc - maybe by Salvatore too?)
........

git-svn-id: branches/fixes_2_0@2452 -
This commit is contained in:
peter 2006-02-06 07:16:34 +00:00
parent b5f467e776
commit 42ce5a3edd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/go32v2/system.pp
View File

@ -227,8 +227,8 @@ begin
{$EndIf }
{ create argv[0] }
argv0len:=strlen(dos_argv0);
allocarg(count,argv0len);
move(dos_argv0^,argv[count]^,argv0len);
allocarg(count,argv0len+1);
move(dos_argv0^,argv[count]^,argv0len+1);
inc(count);
{ setup cmdline variable }
cmdline:=Getmem(argv0len+length(doscmd)+2);