Pārlūkot izejas kodu

* exported __FD*
+ __FD* inlined

git-svn-id: trunk@773 -

florian 20 gadi atpakaļ
vecāks
revīzija
6ffce79785

+ 1 - 0
packages/base/libc/libc.pp

@@ -1,4 +1,5 @@
 {$mode objfpc}
 {$mode objfpc}
+{$inline on}
 {$h+}
 {$h+}
 unit libc;
 unit libc;
 
 

+ 2 - 2
packages/base/libc/sselect.inc

@@ -1,12 +1,12 @@
 
 
-Function __FDELT(d: longint): Integer;
+Function __FDELT(d: longint): Integer;inline;
 
 
 begin
 begin
   Result:=d div __NFDBITS;
   Result:=d div __NFDBITS;
 end;
 end;
 
 
 
 
-Function __FDMASK(d: longint): __fd_mask;
+Function __FDMASK(d: longint): __fd_mask;inline;
 begin
 begin
   Result:=1 shl (d mod __NFDBITS);
   Result:=1 shl (d mod __NFDBITS);
 end;
 end;

+ 3 - 1
packages/base/libc/sselecth.inc

@@ -12,7 +12,9 @@ Type
 
 
 const
 const
   NFDBITS = __NFDBITS;
   NFDBITS = __NFDBITS;
-
+  
+Function __FDELT(d: longint): Integer;inline;
+Function __FDMASK(d: longint): __fd_mask;inline;
 procedure FD_ZERO(var fdset: _fd_set);
 procedure FD_ZERO(var fdset: _fd_set);
 procedure FD_SET(fd: longint; var fdset: _fd_Set);
 procedure FD_SET(fd: longint; var fdset: _fd_Set);
 procedure FD_CLR(fd: longint; var fdset: _fd_set);
 procedure FD_CLR(fd: longint; var fdset: _fd_set);