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

+ sLineBreak and misc. stuff for Kylix compatiblity

Browse Source
This commit is contained in:
florian 2001-03-21 23:29:40 +00:00
parent 1ce6935ed1
commit 1f91d1d88e
6 changed files with 41 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/go32v2/system.pp
View File

@ -46,6 +46,9 @@ const
FileNameCaseSensitive : boolean = false;
sLineBreak : string[2] = #13#10;
DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF;
{ Default memory segments (Tp7 compatibility) }
seg0040 = $0040;
segA000 = $A000;
@ -1417,7 +1420,10 @@ Begin
End.
{
$Log$
Revision 1.6 2001-03-21 21:08:20 hajny
Revision 1.7 2001-03-21 23:29:40 florian
+ sLineBreak and misc. stuff for Kylix compatiblity
Revision 1.6 2001/03/21 21:08:20 hajny
* GetDir fixed
Revision 1.5 2001/03/16 20:09:58 hajny

12
rtl/inc/systemh.inc
View File

@ -53,6 +53,7 @@ Type
Word = 0..65535;
dword = cardinal;
longword = cardinal;
Integer = smallint;
{ at least declare Turbo Pascal real types }
{$ifdef i386}
@ -111,6 +112,7 @@ Type
PWord = ^word;
PDWord = ^DWord;
PLongint = ^Longint;
TTextLineBreakStyle = (tlbsLF,tlbsCRLF,tlbsCR);
{$ifdef HASWIDECHAR}
PWideChar = ^WideChar;
@ -128,9 +130,6 @@ const
maxLongint = $7fffffff;
maxSmallint = 32767;
{ Integer type definition }
type
Integer = smallint;
const
maxint = maxsmallint;
@ -176,7 +175,7 @@ var
ExitCode : Word;
StackBottom,
LowestStack,
RandSeed : Cardinal;
RandSeed : Cardinal;
{ Delphi compatible }
IsLibrary,IsMultiThreaded,IsConsole : boolean;
{$ifdef MT}
@ -488,7 +487,10 @@ const
{
$Log$
Revision 1.16 2001-01-24 21:47:18 florian
Revision 1.17 2001-03-21 23:29:40 florian
+ sLineBreak and misc. stuff for Kylix compatiblity
Revision 1.16 2001/01/24 21:47:18 florian
+ more MT stuff added
Revision 1.15 2000/12/16 15:56:19 jonas

15
rtl/inc/text.inc
View File

@ -439,21 +439,13 @@ end;
Procedure Writeln_End(var f:TextRec);[Public,Alias:'FPC_WRITELN_END'];
const
{$IFDEF SHORT_LINEBREAK}
eollen=1;
eol : array[0..0] of char=(#10);
{$ELSE SHORT_LINEBREAK}
eollen=2;
eol : array[0..1] of char=(#13,#10);
{$ENDIF SHORT_LINEBREAK}
begin
If InOutRes <> 0 then exit;
case f.mode of
fmOutput { fmAppend gets changed to fmOutPut in do_open (JM) }:
begin
{ Write EOL }
WriteBuffer(f,eol,eollen);
WriteBuffer(f,(@sLineBreak+1)^,length(sLineBreak));
{ Flush }
if f.FlushFunc<>nil then
FileFunc(f.FlushFunc)(f);
@ -1039,7 +1031,10 @@ end;
{
$Log$
Revision 1.4 2000-11-23 13:14:02 jonas
Revision 1.5 2001-03-21 23:29:40 florian
+ sLineBreak and misc. stuff for Kylix compatiblity
Revision 1.4 2000/11/23 13:14:02 jonas
* fix for web bug 1210 from Peter (merged)
Revision 1.3 2000/07/14 10:33:10 michael

9
rtl/os2/system.pas
View File

@ -129,12 +129,14 @@ const UnusedHandle=$ffff;
FileNameCaseSensitive : boolean = false;
sLineBreak : string[2] = #13#10;
var
{ C-compatible arguments and environment }
argc : longint;external name '_argc';
argv : ppchar;external name '_argv';
envp : ppchar;external name '_environ';
DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF;
implementation
@ -954,7 +956,10 @@ begin
end.
{
$Log$
Revision 1.10 2001-03-21 21:08:20 hajny
Revision 1.11 2001-03-21 23:29:40 florian
+ sLineBreak and misc. stuff for Kylix compatiblity
Revision 1.10 2001/03/21 21:08:20 hajny
* GetDir fixed
Revision 1.9 2001/03/10 09:57:51 hajny

4
rtl/unix/sysunixh.inc
View File

@ -16,7 +16,11 @@ const
StdOutputHandle = 1;
StdErrorHandle = 2;
sLineBreak : string[2] = #10;
var
argc : longint;
argv : ppchar;
envp : ppchar;
DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsLF;

15
rtl/win32/system.pp
View File

@ -57,6 +57,12 @@ const
FileNameCaseSensitive : boolean = true;
sLineBreak : string[2] = #13#10;
DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF;
{ Thread count for DLL }
Thread_count : longint = 0;
type
TStartupInfo=packed record
cb : longint;
@ -91,9 +97,7 @@ var
cmdshow : longint;
DLLreason,DLLparam:longint;
Win32StackTop : Dword;
{ Thread count for DLL }
const
Thread_count : longint = 0;
type
TDLL_Process_Entry_Hook = function (dllparam : longint) : longbool;
TDLL_Entry_Hook = procedure (dllparam : longint);
@ -1430,7 +1434,10 @@ end.
{
$Log$
Revision 1.8 2001-03-21 21:08:20 hajny
Revision 1.9 2001-03-21 23:29:40 florian
+ sLineBreak and misc. stuff for Kylix compatiblity
Revision 1.8 2001/03/21 21:08:20 hajny
* GetDir fixed
Revision 1.7 2001/03/16 20:09:58 hajny