소스 검색

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

peter 20 년 전
부모
커밋
df057f7550
1개의 변경된 파일9개의 추가작업 그리고 1개의 파일을 삭제
  1. 9 1
      rtl/unix/dos.pp

+ 9 - 1
rtl/unix/dos.pp

@@ -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