paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:29:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* move platform independent constant declarations after inclusion of

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/go32v2/system.pp
View File

@ -29,6 +29,15 @@ interface
{$define EXCEPTIONS_IN_SYSTEM} {$define EXCEPTIONS_IN_SYSTEM}
{$endif NO_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} {Platform specific information}
const const
LineEnding = #13#10; LineEnding = #13#10;
@ -38,13 +47,6 @@ const
PathSeparator = ';'; PathSeparator = ';';
{ FileNameCaseSensitive is defined separately below!!! } { FileNameCaseSensitive is defined separately below!!! }
{ include system-independent routine headers }
{$I systemh.inc}
{ include heap support headers }
{$I heaph.inc}
const const
{ Default filehandles } { Default filehandles }
@ -1545,7 +1547,11 @@ Begin
End. End.
{ {
$Log$ $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 + platform specific information
Revision 1.9 2001/06/07 21:16:30 peter Revision 1.9 2001/06/07 21:16:30 peter

24
rtl/netware/system.pp
View File

@ -31,15 +31,6 @@ interface
{$endif i386} {$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 } { include system-independent routine headers }
{$I systemh.inc} {$I systemh.inc}
@ -51,6 +42,15 @@ const
{$DEFINE NEWMM} {$DEFINE NEWMM}
{$I heaph.inc} {$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 CONST
{ Default filehandles } { Default filehandles }
UnusedHandle : longint = -1; UnusedHandle : longint = -1;
@ -570,7 +570,11 @@ Begin
End. End.
{ {
$Log$ $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 + platform specific information
Revision 1.3 2001/04/16 18:39:50 florian Revision 1.3 2001/04/16 18:39:50 florian

25
rtl/unix/sysunixh.inc
View File

@ -15,15 +15,6 @@
**********************************************************************} **********************************************************************}
{Platform specific information}
const
LineEnding = #10;
LFNSupport = true;
DirectorySeparator = '/';
DriveSeparator = ':';
PathSeparator = ':';
FileNameCaseSensitive = true;
{$ifdef m68k} {$ifdef m68k}
{ used for single computations } { used for single computations }
const const
@ -35,6 +26,16 @@ const
{$I systemh.inc} {$I systemh.inc}
{$I heaph.inc} {$I heaph.inc}
{Platform specific information}
const
LineEnding = #10;
LFNSupport = true;
DirectorySeparator = '/';
DriveSeparator = ':';
PathSeparator = ':';
{ FileNameCaseSensitive is defined below! }
const const
UnusedHandle = -1; UnusedHandle = -1;
StdInputHandle = 0; StdInputHandle = 0;
@ -53,7 +54,11 @@ var
{ {
$Log$ $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 + platform specific information
Revision 1.7 2001/04/13 23:49:49 peter Revision 1.7 2001/04/13 23:49:49 peter

24
rtl/win32/system.pp
View File

@ -17,15 +17,6 @@
unit {$ifdef VER1_0}SysWin32{$else}System{$endif}; unit {$ifdef VER1_0}SysWin32{$else}System{$endif};
interface interface
{Platform specific information}
const
LineEnding = #13#10;
LFNSupport = true;
DirectorySeparator = '\';
DriveSeparator = ':';
PathSeparator = ';';
{ FileNameCaseSensitive is defined separately below!!! }
{$ifdef SYSTEMDEBUG} {$ifdef SYSTEMDEBUG}
{$define SYSTEMEXCEPTIONDEBUG} {$define SYSTEMEXCEPTIONDEBUG}
{$endif SYSTEMDEBUG} {$endif SYSTEMDEBUG}
@ -37,6 +28,15 @@ const
{ include system-independent routine headers } { include system-independent routine headers }
{$I systemh.inc} {$I systemh.inc}
{Platform specific information}
const
LineEnding = #13#10;
LFNSupport = true;
DirectorySeparator = '\';
DriveSeparator = ':';
PathSeparator = ';';
{ FileNameCaseSensitive is defined separately below!!! }
type type
{ the fields of this record are os dependent } { the fields of this record are os dependent }
{ and they shouldn't be used in a program } { and they shouldn't be used in a program }
@ -1563,7 +1563,11 @@ end.
{ {
$Log$ $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 + platform specific information
Revision 1.12 2001/06/10 17:56:57 hajny Revision 1.12 2001/06/10 17:56:57 hajny