瀏覽代碼

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

git-svn-id: trunk@1221 -
marco 20 年之前
父節點
當前提交
73e81ac45a
共有 6 個文件被更改,包括 19 次插入14 次删除
  1. 1 0
      rtl/darwin/termio.pp
  2. 1 1
      rtl/freebsd/termio.pp
  3. 1 0
      rtl/linux/termio.pp
  4. 1 0
      rtl/netbsd/termio.pp
  5. 1 0
      rtl/openbsd/termio.pp
  6. 14 13
      rtl/unix/termiosh.inc

+ 1 - 0
rtl/darwin/termio.pp

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

+ 1 - 1
rtl/freebsd/termio.pp

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

+ 1 - 0
rtl/linux/termio.pp

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

+ 1 - 0
rtl/netbsd/termio.pp

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

+ 1 - 0
rtl/openbsd/termio.pp

@@ -17,6 +17,7 @@
 unit termio;
 unit termio;
 
 
 interface
 interface
+{$inline on}
 
 
 Uses BaseUnix;          // load base unix typing
 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;
 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     (Handle:cint):string;
-function  TTYname     (var F:Text) :string;
+function  TTYname     (var F:Text) :string;