/[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 83 by beware, Sat Feb 20 18:33:54 2010 UTC
# Line 93  Line 93 
93    tempsocket    : tlasio  ;    tempsocket    : tlasio  ;
94    socketcount   : integer ; // for debugging perposes :)    socketcount   : integer ; // for debugging perposes :)
95    dw,bt:integer;    dw,bt:integer;
96      currentfdword:fdword;
97    fd : integer;    fd : integer;
98  begin  begin
99    //writeln('entering processasios');    //writeln('entering processasios');
# Line 104  Line 105 
105    
106    {------- test optimised loop}    {------- test optimised loop}
107    socketcount := 0;    socketcount := 0;
108    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
109      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]);
110        for bt := fdwordmaxbit downto 0 do if currentfdword and (1 shl bt) <> 0 then begin
111        inc(socketcount);        inc(socketcount);
112        fd := dw shl 5 or bt;        fd := dw shl fdwordshift or bt;
113        //writeln('reversing fd ',fd);        //writeln('reversing fd ',fd);
114        currentsocket := fdreverse[fd];        currentsocket := fdreverse[fd];
115        {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.83

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