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

* fix linux code

Browse Source
This commit is contained in:
pierre 2001-10-02 23:58:51 +00:00
parent 90fb39c656
commit 863c6ba51f
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/wconsole.pas
View File

@ -53,14 +53,14 @@ Begin
GetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),ConsoleMode);
{$endif Win32}
{$ifdef go32v2}
ConsoleMode:=;
ConsoleMode:=0;
{$endif go32v2}
End;
Procedure RestoreConsoleMode(const ConsoleMode : TConsoleMode);
Begin
{$ifdef UNIX}
TCSetAttr(1,TCSANOW,StartTio);
TCSetAttr(1,TCSANOW,ConsoleMode);
{$endif UNIX}
{$ifdef Win32}
SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),ConsoleMode);
@ -73,7 +73,10 @@ end.
{
$Log$
Revision 1.1 2001-10-02 23:40:44 pierre
Revision 1.2 2001-10-02 23:58:51 pierre
* fix linux code
Revision 1.1 2001/10/02 23:40:44 pierre
New unit to preserve console mode
}
}