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

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

Browse Source
This commit is contained in:
Tomas Hajny 2001-06-19 20:46:07 +00:00
parent c31447c70a
commit 0b672785fb
7 changed files with 82 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/amiga/system.pas
View File

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

13
rtl/atari/system.pas
View File

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

6
rtl/beos/dos.pp
View File

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

25
rtl/beos/system.pp
View File

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

21
rtl/go32v1/system.pp
View File

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

23
rtl/os2/system.pas
View File

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

29
rtl/template/system.pp
View File

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