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

* use stdin instead of stdout to switch the console to raw mode; this fixes

Browse Source 
keyboard input in OpenBSD

git-svn-id: trunk@41678 -
This commit is contained in:
nickysn 2019-03-11 18:08:21 +00:00
parent 387b966b1b
commit 7c910ee9ca
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-console/src/unix/keyboard.pp
View File

@ -124,7 +124,7 @@ procedure SetRawMode(b:boolean);
var Tio:Termios;
begin
TCGetAttr(1,Tio);
TCGetAttr(0,Tio);
if b then
begin
{Standard output now needs #13#10.}
@ -138,7 +138,7 @@ begin
{Standard output normally needs just a linefeed.}
settextlineending(output,#10);
end;
TCsetattr(1,TCSANOW,Tio);
TCsetattr(0,TCSANOW,Tio);
end;
{$ifdef linux}