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

* return doserror=2 if path is empty in exec()

Browse Source
This commit is contained in:
peter 2005-03-15 16:53:52 +00:00
parent 8f2fa89b3d
commit df057f7550
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/unix/dos.pp
View File

@ -310,6 +310,11 @@ var
// The Error-Checking in the previous Version failed, since halt($7F) gives an WaitPid-status of $7F00 // The Error-Checking in the previous Version failed, since halt($7F) gives an WaitPid-status of $7F00
Begin Begin
LastDosExitCode:=0; LastDosExitCode:=0;
if Path='' then
begin
doserror:=2;
exit;
end;
pid:=fpFork; pid:=fpFork;
if pid=0 then if pid=0 then
begin begin
@ -887,7 +892,10 @@ End.
{ {
$Log$ $Log$
Revision 1.45 2005-02-14 17:13:31 peter Revision 1.46 2005-03-15 16:53:52 peter
* return doserror=2 if path is empty in exec()
Revision 1.45 2005/02/14 17:13:31 peter
* truncate log * truncate log
Revision 1.44 2005/02/13 20:01:38 peter Revision 1.44 2005/02/13 20:01:38 peter