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

* made ErrOutput/StdErr a true alias of Output/StdOut to save memory

Browse Source 
git-svn-id: branches/z80@45134 -
This commit is contained in:
nickysn 2020-04-26 23:10:08 +00:00
parent cb169980b7
commit fe05a87a27
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/inc/systemh.inc
View File

@ -808,9 +808,14 @@ Var
{$endif FPC_HAS_FEATURE_THREADING}
ThreadID : TThreadID;
{ Standard In- and Output }
{$ifndef FPC_STDERR_IS_ALIAS_FOR_STDOUT}
ErrOutput,
{$endif FPC_STDERR_IS_ALIAS_FOR_STDOUT}
Output,
Input : Text;
{$ifdef FPC_STDERR_IS_ALIAS_FOR_STDOUT}
ErrOutput : Text Absolute Output;
{$endif FPC_STDERR_IS_ALIAS_FOR_STDOUT}
{$ifndef FPC_STDOUT_TRUE_ALIAS}
StdOut,
StdErr : Text;

3
rtl/zxspectrum/system.pp
View File

@ -13,6 +13,7 @@ interface
{ Use Ansi Char for files }
{$define FPC_ANSI_TEXTFILEREC}
{$define FPC_STDOUT_TRUE_ALIAS}
{$define FPC_STDERR_IS_ALIAS_FOR_STDOUT}
{$I systemh.inc}
{$I tnyheaph.inc}
@ -269,7 +270,9 @@ procedure SysInitStdIO;
begin
OpenStdIO(Input,fmInput,StdInputHandle);
OpenStdIO(Output,fmOutput,StdOutputHandle);
{$ifndef FPC_STDERR_IS_ALIAS_FOR_STDOUT}
OpenStdIO(ErrOutput,fmOutput,StdErrorHandle);
{$endif FPC_STDERR_IS_ALIAS_FOR_STDOUT}
{$ifndef FPC_STDOUT_TRUE_ALIAS}
OpenStdIO(StdOut,fmOutput,StdOutputHandle);
OpenStdIO(StdErr,fmOutput,StdErrorHandle);