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

  keyboard input in OpenBSD

git-svn-id: trunk@41678 -

packages/rtl-console/src/unix/keyboard.pp

@@ -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}