Browse Source

* exported __FD*
+ __FD* inlined

git-svn-id: trunk@773 -

florian 20 years ago
parent
commit
6ffce79785
3 changed files with 6 additions and 3 deletions
  1. 1 0
      packages/base/libc/libc.pp
  2. 2 2
      packages/base/libc/sselect.inc
  3. 3 1
      packages/base/libc/sselecth.inc

+ 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);