* move platform independent constant declarations after inclusion of

systemh.inc
This commit is contained in:
Jonas Maebe 2001-06-18 14:26:16 +00:00
parent e47f7d2bb3
commit 94b50cf56c
4 changed files with 57 additions and 38 deletions

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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