Forráskód Böngészése

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

git-svn-id: trunk@1221 -
marco 20 éve
szülő
commit
73e81ac45a

+ 1 - 0
rtl/darwin/termio.pp

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

+ 1 - 1
rtl/freebsd/termio.pp

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

+ 1 - 0
rtl/linux/termio.pp

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

+ 1 - 0
rtl/netbsd/termio.pp

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

+ 1 - 0
rtl/openbsd/termio.pp

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

+ 14 - 13
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;
+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;
+function  TTYname     (var F:Text) :string;