packages/libc/src/types.inc


1
2
3
4
5
6
7
8
9
10
11

Function __FDELT(d: longint): Integer;

begin
  Result:=d div __NFDBITS;
end;


Function __FDMASK(d: longint): __fd_mask;
begin
  Result:=1 shl (d mod __NFDBITS);
end;