31 |
function getfdsrmaster : fdset; {$ifdef useinline}inline;{$endif} |
function getfdsrmaster : fdset; {$ifdef useinline}inline;{$endif} |
32 |
function getfdswmaster : fdset; {$ifdef useinline}inline;{$endif} |
function getfdswmaster : fdset; {$ifdef useinline}inline;{$endif} |
33 |
|
|
34 |
|
procedure lcoreinit; |
35 |
|
|
36 |
implementation |
implementation |
37 |
uses |
uses |
38 |
lcore,sysutils, |
lcore,sysutils, |
394 |
fdreverse[fd] := reverseto; |
fdreverse[fd] := reverseto; |
395 |
end; |
end; |
396 |
|
|
397 |
|
var |
398 |
|
inited:boolean; |
399 |
|
|
400 |
|
procedure lcoreinit; |
401 |
begin |
begin |
402 |
|
if inited then exit; |
403 |
|
inited := true; |
404 |
eventcore := tselecteventcore.create; |
eventcore := tselecteventcore.create; |
405 |
|
|
406 |
absoloutemaxs := absoloutemaxs_select; |
absoloutemaxs := absoloutemaxs_select; |
408 |
maxs := 0; |
maxs := 0; |
409 |
fd_zero(fdsrmaster); |
fd_zero(fdsrmaster); |
410 |
fd_zero(fdswmaster); |
fd_zero(fdswmaster); |
411 |
|
end; |
412 |
|
|
413 |
end. |
end. |