From 46b6598b8caafbbf70b72b14d9b44700f701bd25 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Thu, 5 Aug 1999 07:37:27 +0000
Subject: [PATCH]   * 'solution' for a compiler problem

---
 rtl/os2/os2def.pas | 43 +++++++++++++++++++++++++++++++++++++++----
 1 file changed, 39 insertions(+), 4 deletions(-)

diff --git a/rtl/os2/os2def.pas b/rtl/os2/os2def.pas
index ea90b71c77..837905e20d 100644
--- a/rtl/os2/os2def.pas
+++ b/rtl/os2/os2def.pas
@@ -1,10 +1,39 @@
 {****************************************************************************
 
-		   Copyright (c) 1993,94,99 by FK, RB
-		  
+    $Id$
+
+              Copyright (c) 1993,94 by Florian Klaempfl
+                  Copyright (c) 1999 by Ramon Bosque
+
+ The Free Pascal runtime library is distributed under the Library GNU Public
+ License v2. So is this unit. The Library GNU Public License requires you to
+ distribute the source code of this unit with any product that uses it.
+ Because the EMX library isn't under the LGPL, we grant you an exception to
+ this, and that is, when you compile a program with the Free Pascal compiler,
+ you do not need to ship source code with that program, AS LONG AS YOU ARE
+ USING UNMODIFIED CODE! If you modify this code, you MUST change the next
+ line:
+
+ <This an official, unmodified FPK Pascal source code file.>
+
+ Send us your modified files, we can work together if you want!
+
+ FPK-Pascal is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ Library GNU General Public License for more details.
+
+ You should have received a copy of the Library GNU General Public License
+ along with Free Pascal; see the file COPYING.LIB.  If not, write to
+ the Free Software Foundation, 59 Temple Place - Suite 330,
+ Boston, MA 02111-1307, USA.
+
  ****************************************************************************}
 unit os2def;
 
+{Warning: This code is alfa. Future versions of this unit will propably
+ not be compatible.}
+
 interface
 
 const
@@ -111,8 +140,6 @@ const
 
        PDRIVDATA = ^DRIVDATA;
 
-       PDEVOPENDATA = PDevOpenStruc;
-
        DEVOPENSTRUC = record
 	  pszLogAddress : pchar;
 	  pszDriverName : pchar;
@@ -127,6 +154,8 @@ const
 
        PDEVOPENSTRUC = ^DEVOPENSTRUC;
 
+       PDEVOPENDATA = PDevOpenStruc;
+
        PRINTDEST = record
 	  cb : cardinal;
 	  lType : longint;
@@ -248,3 +277,9 @@ const
   implementation
   
 end.
+{
+  $Log$
+  Revision 1.6  1999-08-05 07:37:27  hajny
+    * 'solution' for a compiler problem
+
+}