Ver código fonte

* dos.inc renamed to dos_beos.inc

Tomas Hajny 21 anos atrás
pai
commit
80606b3569
1 arquivos alterados com 4 adições e 9 exclusões
  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.