@@ -1,4 +1,5 @@
{$mode objfpc}
+{$inline on}
{$h+}
unit libc;
@@ -1,12 +1,12 @@
-Function __FDELT(d: longint): Integer;
+Function __FDELT(d: longint): Integer;inline;
begin
Result:=d div __NFDBITS;
end;
-Function __FDMASK(d: longint): __fd_mask;
+Function __FDMASK(d: longint): __fd_mask;inline;
Result:=1 shl (d mod __NFDBITS);
@@ -12,7 +12,9 @@ Type
const
NFDBITS = __NFDBITS;
-
+
procedure FD_ZERO(var fdset: _fd_set);
procedure FD_SET(fd: longint; var fdset: _fd_Set);
procedure FD_CLR(fd: longint; var fdset: _fd_set);