From 94b50cf56c23d943bda9b475d66baa2aaec31b4b Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Mon, 18 Jun 2001 14:26:16 +0000
Subject: [PATCH]   * move platform independent constant declarations after
 inclusion of     systemh.inc

---
 rtl/go32v2/system.pp  | 22 ++++++++++++++--------
 rtl/netware/system.pp | 24 ++++++++++++++----------
 rtl/unix/sysunixh.inc | 25 +++++++++++++++----------
 rtl/win32/system.pp   | 24 ++++++++++++++----------
 4 files changed, 57 insertions(+), 38 deletions(-)

diff --git a/rtl/go32v2/system.pp b/rtl/go32v2/system.pp
index 91243ba2ca..e409af9ea7 100644
--- a/rtl/go32v2/system.pp
+++ b/rtl/go32v2/system.pp
@@ -29,6 +29,15 @@ interface
 {$define EXCEPTIONS_IN_SYSTEM}
 {$endif NO_EXCEPTIONS_IN_SYSTEM}
 
+{ include system-independent routine headers }
+
+{$I systemh.inc}
+
+{ include heap support headers }
+
+{$I heaph.inc}
+
+
 {Platform specific information}
 const
  LineEnding = #13#10;
@@ -38,13 +47,6 @@ const
  PathSeparator = ';';
 { FileNameCaseSensitive is defined separately below!!! }
 
-{ include system-independent routine headers }
-
-{$I systemh.inc}
-
-{ include heap support headers }
-
-{$I heaph.inc}
 
 const
 { Default filehandles }
@@ -1545,7 +1547,11 @@ Begin
 End.
 {
   $Log$
-  Revision 1.10  2001-06-13 22:21:53  hajny
+  Revision 1.11  2001-06-18 14:26:16  jonas
+    * move platform independent constant declarations after inclusion of
+      systemh.inc
+
+  Revision 1.10  2001/06/13 22:21:53  hajny
     + platform specific information
 
   Revision 1.9  2001/06/07 21:16:30  peter
diff --git a/rtl/netware/system.pp b/rtl/netware/system.pp
index 748423f741..ddf48fc690 100644
--- a/rtl/netware/system.pp
+++ b/rtl/netware/system.pp
@@ -31,15 +31,6 @@ interface
 {$endif i386}
 
 
-{Platform specific information}
-const
- LineEnding = #13#10;
- LFNSupport = false; { ??? - that's how it was declared in dos.pp! }
- DirectorySeparator = '\';
- DriveSeparator = ':';
- PathSeparator = ';';
-{ FileNameCaseSensitive is defined separately below!!! }
-
 { include system-independent routine headers }
 
 {$I systemh.inc}
@@ -51,6 +42,15 @@ const
 {$DEFINE NEWMM}
 {$I heaph.inc}
 
+{Platform specific information}
+const
+ LineEnding = #13#10;
+ LFNSupport = false; { ??? - that's how it was declared in dos.pp! }
+ DirectorySeparator = '\';
+ DriveSeparator = ':';
+ PathSeparator = ';';
+{ FileNameCaseSensitive is defined separately below!!! }
+
 CONST
   { Default filehandles }
    UnusedHandle    : longint = -1;
@@ -570,7 +570,11 @@ Begin
 End.
 {
   $Log$
-  Revision 1.4  2001-06-13 22:20:11  hajny
+  Revision 1.5  2001-06-18 14:26:16  jonas
+    * move platform independent constant declarations after inclusion of
+      systemh.inc
+
+  Revision 1.4  2001/06/13 22:20:11  hajny
     + platform specific information
 
   Revision 1.3  2001/04/16 18:39:50  florian
diff --git a/rtl/unix/sysunixh.inc b/rtl/unix/sysunixh.inc
index 65c3cbec73..bb38cb8a1e 100644
--- a/rtl/unix/sysunixh.inc
+++ b/rtl/unix/sysunixh.inc
@@ -15,15 +15,6 @@
 
  **********************************************************************}
 
-{Platform specific information}
-const
- LineEnding = #10;
- LFNSupport = true;
- DirectorySeparator = '/';
- DriveSeparator = ':';
- PathSeparator = ':';
- FileNameCaseSensitive = true;
-
 {$ifdef m68k}
 { used for single computations }
 const
@@ -35,6 +26,16 @@ const
 {$I systemh.inc}
 {$I heaph.inc}
 
+{Platform specific information}
+const
+ LineEnding = #10;
+ LFNSupport = true;
+ DirectorySeparator = '/';
+ DriveSeparator = ':';
+ PathSeparator = ':';
+{ FileNameCaseSensitive is defined below! }
+
+
 const
   UnusedHandle    = -1;
   StdInputHandle  = 0;
@@ -53,7 +54,11 @@ var
 
 {
   $Log$
-  Revision 1.8  2001-06-13 22:20:11  hajny
+  Revision 1.9  2001-06-18 14:26:16  jonas
+    * move platform independent constant declarations after inclusion of
+      systemh.inc
+
+  Revision 1.8  2001/06/13 22:20:11  hajny
     + platform specific information
 
   Revision 1.7  2001/04/13 23:49:49  peter
diff --git a/rtl/win32/system.pp b/rtl/win32/system.pp
index a18cb390ca..4745615175 100644
--- a/rtl/win32/system.pp
+++ b/rtl/win32/system.pp
@@ -17,15 +17,6 @@
 unit {$ifdef VER1_0}SysWin32{$else}System{$endif};
 interface
 
-{Platform specific information}
-const
- LineEnding = #13#10;
- LFNSupport = true;
- DirectorySeparator = '\';
- DriveSeparator = ':';
- PathSeparator = ';';
-{ FileNameCaseSensitive is defined separately below!!! }
-
 {$ifdef SYSTEMDEBUG}
   {$define SYSTEMEXCEPTIONDEBUG}
 {$endif SYSTEMDEBUG}
@@ -37,6 +28,15 @@ const
 { include system-independent routine headers }
 {$I systemh.inc}
 
+{Platform specific information}
+const
+ LineEnding = #13#10;
+ LFNSupport = true;
+ DirectorySeparator = '\';
+ DriveSeparator = ':';
+ PathSeparator = ';';
+{ FileNameCaseSensitive is defined separately below!!! }
+
 type
    { the fields of this record are os dependent  }
    { and they shouldn't be used in a program     }
@@ -1563,7 +1563,11 @@ end.
 
 {
   $Log$
-  Revision 1.13  2001-06-13 22:20:11  hajny
+  Revision 1.14  2001-06-18 14:26:16  jonas
+    * move platform independent constant declarations after inclusion of
+      systemh.inc
+
+  Revision 1.13  2001/06/13 22:20:11  hajny
     + platform specific information
 
   Revision 1.12  2001/06/10 17:56:57  hajny