Browse Source

* dos.inc renamed to dos_beos.inc

Tomas Hajny 20 years ago
parent
commit
80606b3569
1 changed files with 4 additions and 9 deletions
  1. 4 9
      rtl/beos/dos_beos.inc

+ 4 - 9
rtl/beos/dos.inc → rtl/beos/dos_beos.inc

@@ -100,9 +100,6 @@ End;
 {******************************************************************************
 {******************************************************************************
                                --- Exec ---
                                --- Exec ---
 ******************************************************************************}
 ******************************************************************************}
-var
-  LastDosExitCode: word;
-
 Procedure Exec(const path: pathstr; const comline: comstr);
 Procedure Exec(const path: pathstr; const comline: comstr);
 var p:string;
 var p:string;
     argv:ppchar;
     argv:ppchar;
@@ -123,11 +120,6 @@ begin
   LastDosExitCode:=status and $FF; { only keep the lower 8-bits }
   LastDosExitCode:=status and $FF; { only keep the lower 8-bits }
 end;
 end;
 
 
-Function DosExitCode: Word;
-Begin
-  DosExitCode:=LastDosExitCode;
-End;
-
 
 
 function GetTimeZoneString : string;
 function GetTimeZoneString : string;
 begin
 begin
@@ -152,7 +144,10 @@ end;
 
 
 {
 {
  $Log$
  $Log$
- Revision 1.2  2003-01-08 22:32:28  marco
+ Revision 1.1  2004-12-05 16:43:40  hajny
+   * dos.inc renamed to dos_beos.inc
+
+ Revision 1.2  2003/01/08 22:32:28  marco
   * Small fixes and quick merge with 1.0.x. At least the compiler builds now,
   * Small fixes and quick merge with 1.0.x. At least the compiler builds now,
      but it could crash hard, since there are lots of unimplemented funcs.
      but it could crash hard, since there are lots of unimplemented funcs.