paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 12:11:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* exported __FD*

Browse Source 
+ __FD* inlined

git-svn-id: trunk@773 -
This commit is contained in:
florian 2005-07-30 21:14:25 +00:00
parent 614b06c3d4
commit 6ffce79785
3 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/base/libc/libc.pp
View File

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

4
packages/base/libc/sselect.inc
View File

@ -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;

2
packages/base/libc/sselecth.inc
View File

@ -13,6 +13,8 @@ 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);