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

git-svn-id: branches/z80@45134 -

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;

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);