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

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

Browse Source 
git-svn-id: trunk@2272 -
This commit is contained in:
Tomas Hajny 2006-01-12 23:17:51 +00:00
parent b74ac03ead
commit b853d45cd8
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);