paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 11:50:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* inlined few procs. Didn't inline makeraw since that triggers inline WITH bug.

Browse Source 
git-svn-id: trunk@1221 -
This commit is contained in:
marco 2005-09-28 20:59:20 +00:00
parent 430cb886e3
commit 73e81ac45a
6 changed files with 20 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/darwin/termio.pp
View File

@ -17,6 +17,7 @@
unit termio;
interface
{$inline on}
Uses BaseUnix; // load base unix typing

2
rtl/freebsd/termio.pp
View File

@ -17,7 +17,7 @@
unit termio;
interface
{$inline on}
Uses BaseUnix; // load base unix typing
// load types + consts

1
rtl/linux/termio.pp
View File

@ -17,6 +17,7 @@
unit termio;
interface
{$inline on}
Uses BaseUnix; // load base unix typing

1
rtl/netbsd/termio.pp
View File

@ -17,6 +17,7 @@
unit termio;
interface
{$inline on}
Uses BaseUnix; // load base unix typing

1
rtl/openbsd/termio.pp
View File

@ -17,6 +17,7 @@
unit termio;
interface
{$inline on}
Uses BaseUnix; // load base unix typing

29
rtl/unix/termiosh.inc
View File

@ -13,19 +13,20 @@
***********************************************************************}
Function TCGetAttr (fd:cint;var tios:TermIOS):cint;
Function TCGetAttr (fd:cint;var tios:TermIOS):cint; inline;
Function TCSetAttr (fd:cint;OptAct:cint;const tios:TermIOS):cint;
Procedure CFSetISpeed (var tios:TermIOS;speed:Cardinal);
Procedure CFSetOSpeed (var tios:TermIOS;speed:Cardinal);
Procedure CFMakeRaw (var tios:TermIOS);
Function TCSendBreak (fd,duration:cint):cint;
Function TCSetPGrp (fd,id:cint) :cint;
Function TCGetPGrp (fd:cint;var id:cint):cint;
Function TCFlush (fd,qsel:cint):cint;
Function TCDrain (fd:cint) :cint;
Function TCFlow (fd,act:cint) :cint;
Function IsATTY (Handle:cint) :cint;
Function IsATTY (var f:text) :cint;
function TTYname (Handle:cint):string;
function TTYname (var F:Text) :string;
Procedure CFSetISpeed (var tios:TermIOS;speed:Cardinal); inline;
Procedure CFSetOSpeed (var tios:TermIOS;speed:Cardinal); inline;
Procedure CFMakeRaw (var tios:TermIOS);
Function TCSendBreak (fd,duration:cint):cint; inline;
Function TCSetPGrp (fd,id:cint) :cint; inline;
Function TCGetPGrp (fd:cint;var id:cint):cint; inline;
Function TCFlush (fd,qsel:cint):cint; inline;
Function TCDrain (fd:cint) :cint;inline;
Function TCFlow (fd,act:cint) :cint;inline;
Function IsATTY (Handle:cint) :cint;
Function IsATTY (var f:text) :cint; inline;
function TTYname (Handle:cint):string;
function TTYname (var F:Text) :string;