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

Diff of /trunk/lcoreselect.pas

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

revision 82 by plugwash, Sat Feb 20 13:48:27 2010 UTC revision 94 by beware, Mon Feb 21 21:40:05 2011 UTC
# Line 64  Line 64 
64    
65  procedure processtimers;inline;  procedure processtimers;inline;
66  var  var
67    tv           ,tvnow     : ttimeval ;    tvnow     : ttimeval ;
68    currenttimer            : tltimer   ;    currenttimer            : tltimer   ;
69    temptimer               : tltimer  ;    temptimer               : tltimer  ;
70    
# Line 90  Line 90 
90  procedure processasios(var fdsr,fdsw:fdset);//inline;  procedure processasios(var fdsr,fdsw:fdset);//inline;
91  var  var
92    currentsocket : tlasio  ;    currentsocket : tlasio  ;
   tempsocket    : tlasio  ;  
93    socketcount   : integer ; // for debugging perposes :)    socketcount   : integer ; // for debugging perposes :)
94    dw,bt:integer;    dw,bt:integer;
95      currentfdword:fdword;
96    fd : integer;    fd : integer;
97  begin  begin
98    //writeln('entering processasios');    //writeln('entering processasios');
# Line 104  Line 104 
104    
105    {------- test optimised loop}    {------- test optimised loop}
106    socketcount := 0;    socketcount := 0;
107    for dw := (maxs shr 5) downto 0 do if (fdsr[dw] or fdsw[dw]) <> 0 then begin    for dw := (maxs shr fdwordshift) downto 0 do if (fdsr[dw] or fdsw[dw]) <> 0 then begin
108      for bt := 0 to 31 do if (fdsr[dw] or fdsw[dw]) and (1 shl bt) <> 0 then begin      currentfdword := (fdsr[dw] or fdsw[dw]);
109        for bt := fdwordmaxbit downto 0 do if currentfdword and (1 shl bt) <> 0 then begin
110        inc(socketcount);        inc(socketcount);
111        fd := dw shl 5 or bt;        fd := dw shl fdwordshift or bt;
112        //writeln('reversing fd ',fd);        //writeln('reversing fd ',fd);
113        currentsocket := fdreverse[fd];        currentsocket := fdreverse[fd];
114        {if not assigned(currentsocket) then raise exception.create('currentsocket not assigned');        {if not assigned(currentsocket) then raise exception.create('currentsocket not assigned');

Legend:
Removed from v.82  
changed lines
  Added in v.94

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