paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 06:29:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* restore rawmode only if not redirected

Browse Source
This commit is contained in:
peter 2004-12-26 16:15:44 +00:00
parent 5dfa8ca3d7
commit 90f0593a8d
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/unix/crt.pp
View File

@ -1613,7 +1613,8 @@ Initialization
Finalization Finalization
ttyFlushOutput; ttyFlushOutput;
SetRawMode(False); if not OutputRedir then
SetRawMode(False);
{ remove console buf } { remove console buf }
if Assigned(ConsoleBuf) then if Assigned(ConsoleBuf) then
FreeMem(ConsoleBuf,ScreenHeight*ScreenWidth*2); FreeMem(ConsoleBuf,ScreenHeight*ScreenWidth*2);
@ -1621,7 +1622,10 @@ Finalization
End. End.
{ {
$Log$ $Log$
Revision 1.20 2004-07-20 09:26:04 marco Revision 1.21 2004-12-26 16:15:44 peter
* restore rawmode only if not redirected
Revision 1.20 2004/07/20 09:26:04 marco
* some updates to xy2ansi * some updates to xy2ansi
Revision 1.19 2004/07/09 19:03:35 peter Revision 1.19 2004/07/09 19:03:35 peter