Преглед на файлове

* dos.inc renamed to dos_beos.inc

Tomas Hajny преди 21 години
родител
ревизия
80606b3569
променени са 1 файла, в които са добавени 4 реда и са изтрити 9 реда
  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.