diff --git a/rtl/darwin/termio.pp b/rtl/darwin/termio.pp index ebd1913c32..f27a034d3c 100644 --- a/rtl/darwin/termio.pp +++ b/rtl/darwin/termio.pp @@ -17,6 +17,7 @@ unit termio; interface +{$inline on} Uses BaseUnix; // load base unix typing diff --git a/rtl/freebsd/termio.pp b/rtl/freebsd/termio.pp index ebd1913c32..707bd0da10 100644 --- a/rtl/freebsd/termio.pp +++ b/rtl/freebsd/termio.pp @@ -17,7 +17,7 @@ unit termio; interface - +{$inline on} Uses BaseUnix; // load base unix typing // load types + consts diff --git a/rtl/linux/termio.pp b/rtl/linux/termio.pp index ebd1913c32..f27a034d3c 100644 --- a/rtl/linux/termio.pp +++ b/rtl/linux/termio.pp @@ -17,6 +17,7 @@ unit termio; interface +{$inline on} Uses BaseUnix; // load base unix typing diff --git a/rtl/netbsd/termio.pp b/rtl/netbsd/termio.pp index ebd1913c32..f27a034d3c 100644 --- a/rtl/netbsd/termio.pp +++ b/rtl/netbsd/termio.pp @@ -17,6 +17,7 @@ unit termio; interface +{$inline on} Uses BaseUnix; // load base unix typing diff --git a/rtl/openbsd/termio.pp b/rtl/openbsd/termio.pp index ebd1913c32..f27a034d3c 100644 --- a/rtl/openbsd/termio.pp +++ b/rtl/openbsd/termio.pp @@ -17,6 +17,7 @@ unit termio; interface +{$inline on} Uses BaseUnix; // load base unix typing diff --git a/rtl/unix/termiosh.inc b/rtl/unix/termiosh.inc index f8ff4a35c7..74c39b9a17 100644 --- a/rtl/unix/termiosh.inc +++ b/rtl/unix/termiosh.inc @@ -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;