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

* small fix for NIL arg ptr in first executeprocess

Browse Source
This commit is contained in:
marco 2004-04-20 18:24:32 +00:00
parent e750e24f3b
commit 3896b0fe05
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/unix/sysutils.pp
View File

@ -507,7 +507,13 @@ Begin
CommandLine:=ComLine; CommandLine:=ComLine;
cmdline2:=StringtoPPChar(CommandLine,1); cmdline2:=StringtoPPChar(CommandLine,1);
cmdline2^:=pchar(Path); cmdline2^:=pchar(Path);
end; end
else
begin
getmem(cmdline2,2*sizeof(pchar));
cmdline2^:=pchar(Path);
cmdline2[1]:=nil;
end;
{$else} {$else}
if Pos ('"', Path) = 0 then if Pos ('"', Path) = 0 then
CommandLine := '"' + Path + '"' CommandLine := '"' + Path + '"'
@ -629,7 +635,10 @@ end.
{ {
$Log$ $Log$
Revision 1.37 2004-03-04 22:15:16 marco Revision 1.38 2004-04-20 18:24:32 marco
* small fix for NIL arg ptr in first executeprocess
Revision 1.37 2004/03/04 22:15:16 marco
* UnixType changes. Please report problems to me. * UnixType changes. Please report problems to me.
Revision 1.36 2004/02/13 10:50:23 marco Revision 1.36 2004/02/13 10:50:23 marco