diff options
| author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-04-26 23:10:08 +0000 |
|---|---|---|
| committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-04-26 23:10:08 +0000 |
| commit | 24017a617da259be9516de491d49878f123b9a25 (patch) | |
| tree | 962f50d01c3686c608c49a9be5765a452edaa2a2 | |
| parent | db147a439989e87eeb7b6c4731f1052379de2a75 (diff) | |
| download | fpc-24017a617da259be9516de491d49878f123b9a25.tar.gz | |
* made ErrOutput/StdErr a true alias of Output/StdOut to save memory
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/z80@45134 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | rtl/inc/systemh.inc | 5 | ||||
| -rw-r--r-- | rtl/zxspectrum/system.pp | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc index 9e9b785ec3..7ccdd3c41c 100644 --- a/rtl/inc/systemh.inc +++ b/rtl/inc/systemh.inc @@ -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; diff --git a/rtl/zxspectrum/system.pp b/rtl/zxspectrum/system.pp index ef4fb8e46b..ef2ce354cf 100644 --- a/rtl/zxspectrum/system.pp +++ b/rtl/zxspectrum/system.pp @@ -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); |