/[lcore]/trunk/lcoreselect.pas
ViewVC logotype

Diff of /trunk/lcoreselect.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 10 by plugwash, Sun Mar 30 21:39:57 2008 UTC revision 20 by beware, Fri Dec 26 19:17:00 2008 UTC
# Line 31  Line 31 
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,
# Line 392  Line 394 
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;
# Line 402  Line 408 
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.

Legend:
Removed from v.10  
changed lines
  Added in v.20

No admin address has been configured">No admin address has been configured
ViewVC Help
Powered by ViewVC 1.1.22