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

atari: enable FPC_STDOUT_TRUE_ALIAS and groom some of the other defines

Browse Source 
git-svn-id: trunk@38198 -
This commit is contained in:
Károly Balogh 2018-02-10 23:01:54 +00:00
parent 444d032607
commit 3d16d38f10
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/atari/system.pp
View File

@ -18,7 +18,8 @@ unit System;
interface
{$define FPC_HAS_ANSI_TEXTFILEREC}
{$define FPC_STDOUT_TRUE_ALIAS}
{$define FPC_ANSI_TEXTFILEREC}
{$define FPC_ATARI_USE_TINYHEAP}
{$ifdef FPC_ATARI_USE_TINYHEAP}
@ -143,10 +144,11 @@ procedure SysInitStdIO;
begin
OpenStdIO(Input,fmInput,StdInputHandle);
OpenStdIO(Output,fmOutput,StdOutputHandle);
OpenStdIO(StdOut,fmOutput,StdOutputHandle);
OpenStdIO(StdErr,fmOutput,StdErrorHandle);
OpenStdIO(ErrOutput,fmOutput,StdErrorHandle);
{$ifndef FPC_STDOUT_TRUE_ALIAS}
OpenStdIO(StdOut,fmOutput,StdOutputHandle);
OpenStdIO(StdErr,fmOutput,StdErrorHandle);
{$endif FPC_STDOUT_TRUE_ALIAS}
end;
function CheckInitialStkLen (StkLen: SizeUInt): SizeUInt;
@ -164,7 +166,9 @@ begin
InitHeap;
{$endif FPC_ATARI_USE_TINYHEAP}
SysInitExceptions;
{$ifdef FPC_HAS_FEATURE_UNICODESTRINGS}
InitUnicodeStringManager;
{$endif FPC_HAS_FEATURE_UNICODESTRINGS}
{ Setup stdin, stdout and stderr }
SysInitStdIO;
{ Reset IO Error }
@ -173,5 +177,5 @@ begin
SysInitParamsAndEnv;
{$ifdef FPC_HAS_FEATURE_THREADING}
InitSystemThreads;
{$endif}
{$endif FPC_HAS_FEATURE_THREADING}
end.