From 80606b3569f13f6492848043f840fa24b3aacf63 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sun, 5 Dec 2004 16:43:28 +0000
Subject: [PATCH]   * dos.inc renamed to dos_beos.inc

---
 rtl/beos/{dos.inc => dos_beos.inc} | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)
 rename rtl/beos/{dos.inc => dos_beos.inc} (96%)

diff --git a/rtl/beos/dos.inc b/rtl/beos/dos_beos.inc
similarity index 96%
rename from rtl/beos/dos.inc
rename to rtl/beos/dos_beos.inc
index da735855c8..6e7741d4f9 100644
--- a/rtl/beos/dos.inc
+++ b/rtl/beos/dos_beos.inc
@@ -100,9 +100,6 @@ End;
 {******************************************************************************
                                --- Exec ---
 ******************************************************************************}
-var
-  LastDosExitCode: word;
-
 Procedure Exec(const path: pathstr; const comline: comstr);
 var p:string;
     argv:ppchar;
@@ -123,11 +120,6 @@ begin
   LastDosExitCode:=status and $FF; { only keep the lower 8-bits }
 end;
 
-Function DosExitCode: Word;
-Begin
-  DosExitCode:=LastDosExitCode;
-End;
-
 
 function GetTimeZoneString : string;
 begin
@@ -152,7 +144,10 @@ end;
 
 {
  $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,
      but it could crash hard, since there are lots of unimplemented funcs.