paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 10:39:18 +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; var Tio:Termios;
begin begin
TCGetAttr(1,Tio); TCGetAttr(0,Tio);
if b then if b then
begin begin
{Standard output now needs #13#10.} {Standard output now needs #13#10.}
@ -138,7 +138,7 @@ begin
{Standard output normally needs just a linefeed.} {Standard output normally needs just a linefeed.}
settextlineending(output,#10); settextlineending(output,#10);
end; end;
TCsetattr(1,TCSANOW,Tio); TCsetattr(0,TCSANOW,Tio);
end; end;
{$ifdef linux} {$ifdef linux}