* platform specific constants moved after systemh.inc, BeOS omission corrected

rtl/amiga/system.pas

@@ -31,6 +31,10 @@ unit {$ifdef VER1_0}sysamiga{$else}{$ifdef VER0_99}sysamiga{$ELSE}system{$endif}
 
   interface
 
+    {$I systemh.inc}
+
+    {$I heaph.inc}
+
 {Platform specific information}
 const
  LineEnding = #10;
@@ -45,10 +49,6 @@ const
     { used for single computations }
     const BIAS4 = $7f-1;
 
-    {$I systemh.inc}
-
-    {$I heaph.inc}
-
 const
   UnusedHandle    : longint = -1;
   StdInputHandle  : longint = 0;
@@ -1825,7 +1825,10 @@ end.
 
 {
   $Log$
-  Revision 1.2  2001-06-13 22:22:59  hajny
+  Revision 1.3  2001-06-19 20:46:07  hajny
+    * platform specific constants moved after systemh.inc, BeOS omission corrected
+
+  Revision 1.2  2001/06/13 22:22:59  hajny
     + platform specific information
 
   Revision 1.1  2001/03/16 20:01:47  hajny

rtl/atari/system.pas

@@ -28,6 +28,10 @@ unit {$ifdef VER1_0}sysatari{$else}{$ifdef VER0_99}sysatari{$ELSE}system{$endif}
 
   interface
 
+    {$I systemh.inc}
+
+    {$I heaph.inc}
+
 {Platform specific information}
 const
  LineEnding = #10;
@@ -41,10 +45,6 @@ const
     { used for single computations }
     const BIAS4 = $7f-1;
 
-    {$I systemh.inc}
-
-    {$I heaph.inc}
-
 const
   UnusedHandle    = $ffff;
   StdInputHandle  = 0;
@@ -757,7 +757,10 @@ end.
 
 {
   $Log$
-  Revision 1.2  2001-06-13 22:22:59  hajny
+  Revision 1.3  2001-06-19 20:46:07  hajny
+    * platform specific constants moved after systemh.inc, BeOS omission corrected
+
+  Revision 1.2  2001/06/13 22:22:59  hajny
     + platform specific information
 
   Revision 1.1  2001/03/16 20:01:47  hajny

rtl/beos/dos.pp

@@ -30,7 +30,6 @@ type
 
 
 Const
-  LFNSUPPORT=True;
 
   {Bitmasks for CPU Flags}
   fcarry     = $0001;
@@ -503,7 +502,10 @@ End;
 
 {
   $Log$
-  Revision 1.1  2001-06-02 19:26:03  peter
+  Revision 1.2  2001-06-19 20:46:07  hajny
+    * platform specific constants moved after systemh.inc, BeOS omission corrected
+
+  Revision 1.1  2001/06/02 19:26:03  peter
     * BeOS target!
 
   Revision 1.5  2000/01/07 16:41:29  daniel

rtl/beos/system.pp

@@ -23,15 +23,6 @@ unit System;
 
 interface
 
-{Platform specific information}
-const
- LineEnding = #10;
- LFNSupport = true;
- DirectorySeparator = '/';
- DriveSeparator = ':';
- PathSeparator = ':';
- FileNameCaseSensitive = true;
-
 { include system-independent routine headers }
 
 {$I systemh.inc}
@@ -40,10 +31,19 @@ const
 
 {$I heaph.inc}
 
+{Platform specific information}
+const
+ LineEnding = #10;
+ LFNSupport = true;
+ DirectorySeparator = '/';
+ DriveSeparator = ':';
+ PathSeparator = ':';
+{ FileNameCaseSensitive is defined separately below!!! }
+
 const
   FileNameCaseSensitive : boolean = true;
 
-  sLineBreak : string[1] = #10;
+  sLineBreak : string[1] = LineEnding;
   DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsLF;
 
 var
@@ -522,7 +522,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.2  2001-06-13 22:20:10  hajny
+  Revision 1.3  2001-06-19 20:46:07  hajny
+    * platform specific constants moved after systemh.inc, BeOS omission corrected
+
+  Revision 1.2  2001/06/13 22:20:10  hajny
     + platform specific information
 
   Revision 1.1  2001/06/02 19:26:03  peter

rtl/go32v1/system.pp

@@ -15,6 +15,14 @@
 unit system;
 interface
 
+{ include system-independent routine headers }
+
+{$I systemh.inc}
+
+{ include heap support headers }
+
+{$I heaph.inc}
+
 {Platform specific information}
 const
  LineEnding = #13#10;
@@ -24,14 +32,6 @@ const
  PathSeparator = ';';
  FileNameCaseSensitive = false;
 
-{ include system-independent routine headers }
-
-{$I systemh.inc}
-
-{ include heap support headers }
-
-{$I heaph.inc}
-
 const
 { Default filehandles }
   UnusedHandle    = $ffff;
@@ -628,7 +628,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.5  2001-06-13 22:22:59  hajny
+  Revision 1.6  2001-06-19 20:46:07  hajny
+    * platform specific constants moved after systemh.inc, BeOS omission corrected
+
+  Revision 1.5  2001/06/13 22:22:59  hajny
     + platform specific information
 
   Revision 1.4  2001/03/21 21:08:20  hajny

rtl/os2/system.pas

@@ -50,15 +50,6 @@ Coding style:
 
 interface
 
-{Platform specific information}
-const
- LineEnding = #13#10;
-{ LFNSupport is defined separately below!!! }
- DirectorySeparator = '\';
- DriveSeparator = ':';
- PathSeparator = ';';
-{ FileNameCaseSensitive is defined separately below!!! }
-
 {Link the startup code.}
 {$l prt1.oo2}
 
@@ -90,6 +81,15 @@ type
 
 {$I heaph.inc}
 
+{Platform specific information}
+const
+ LineEnding = #13#10;
+{ LFNSupport is defined separately below!!! }
+ DirectorySeparator = '\';
+ DriveSeparator = ':';
+ PathSeparator = ';';
+{ FileNameCaseSensitive is defined separately below!!! }
+
 type    Tos=(osDOS,osOS2,osDPMI);
 
 var     os_mode:Tos;
@@ -1066,7 +1066,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.14  2001-06-13 22:21:53  hajny
+  Revision 1.15  2001-06-19 20:46:07  hajny
+    * platform specific constants moved after systemh.inc, BeOS omission corrected
+
+  Revision 1.14  2001/06/13 22:21:53  hajny
     + platform specific information
 
   Revision 1.13  2001/05/20 18:40:32  hajny

rtl/template/system.pp

@@ -21,6 +21,14 @@ unit system;
 
 interface
 
+{ include system-independent routine headers }
+
+{$I systemh.inc}
+
+{ include heap support headers }
+
+{$I heaph.inc}
+
 {Platform specific information}
 const
  LineEnding = #13#10;
@@ -30,13 +38,19 @@ const
  PathSeparator = ';';
  FileNameCaseSensitive = false;
 
-{ include system-independent routine headers }
+const
+  UnusedHandle    = -1;
+  StdInputHandle  = 0;
+  StdOutputHandle = 1;
+  StdErrorHandle  = 2;
 
-{$I systemh.inc}
+  sLineBreak : string[1] = LineEnding;
+  DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsLF;
 
-{ include heap support headers }
-
-{$I heaph.inc}
+var
+  argc : longint;
+  argv : ppchar;
+  envp : ppchar;
 
 implementation
 
@@ -285,7 +299,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.5  2001-06-13 22:21:53  hajny
+  Revision 1.6  2001-06-19 20:46:56  hajny
+    * platform specific constants moved after systemh.inc, BeOS omission corrected
+
+  Revision 1.5  2001/06/13 22:21:53  hajny
     + platform specific information
 
   Revision 1.4  2001/03/25 11:06:35  hajny