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

* make StdOut/StdErr optionally a true alias of Output/ErrOutput, so they share the same underlying TextRec. this reduces data segment usage on small systems by more than 1K.

Browse Source 
git-svn-id: trunk@38196 -
This commit is contained in:
Károly Balogh 2018-02-10 22:45:51 +00:00
parent 980c689d37
commit 07513150e0
2 changed files with 12 additions and 1 deletions

2
rtl/inc/system.inc
View File

@ -1012,10 +1012,12 @@ begin
Flush(Output);
if Textrec(ErrOutput).Mode=fmOutput then
Flush(ErrOutput);
{$ifndef FPC_STDOUT_TRUE_ALIAS}
if Textrec(stdout).Mode=fmOutput then
Flush(stdout);
if Textrec(StdErr).Mode=fmOutput then
Flush(StdErr);
{$endif FPC_STDOUT_TRUE_ALIAS}
end;
{$endif FPC_HAS_FEATURE_CONSOLEIO}

11
rtl/inc/systemh.inc
View File

@ -766,9 +766,18 @@ Var
{ Standard In- and Output }
ErrOutput,
Output,
Input,
Input : Text;
{$ifndef FPC_STDOUT_TRUE_ALIAS}
StdOut,
StdErr : Text;
{$else FPC_STDOUT_TRUE_ALIAS}
{ Optionally, make StdOut and StdErr a true alias of Output
and ErrOutput. This is benefical on small systems where the
data segment size is limited, as it lessens the RTL's data
size by a bit more than 1K. }
StdOut : Text Absolute Output;
StdErr : Text Absolute ErrOutput;
{$endif FPC_STDOUT_TRUE_ALIAS}
InOutRes : Word;
{ Stack checking }
StackBottom : Pointer;