Forráskód Böngészése

* move platform independent constant declarations after inclusion of
systemh.inc

Jonas Maebe 24 éve
szülő
commit
94b50cf56c
4 módosított fájl, 57 hozzáadás és 38 törlés
  1. 14 8
      rtl/go32v2/system.pp
  2. 14 10
      rtl/netware/system.pp
  3. 15 10
      rtl/unix/sysunixh.inc
  4. 14 10
      rtl/win32/system.pp

+ 14 - 8
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

+ 14 - 10
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

+ 15 - 10
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

+ 14 - 10
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