1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
{ %norun } unit tw9076; {$mode objfpc} interface type pfdset = pointer; function __Select(N: Longint; ReadFds: PFDSet; WriteFds: PFDSet; ExceptFds: PFDSet): Longint; inline; implementation function __Select(N: Longint; ReadFds: PFDSet; WriteFds: PFDSet; ExceptFds: PFDSet): Longint; begin try result := 2 except Result := -1 end end; end.