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

Diff of /trunk/lcoreselect.pas

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

revision 20 by beware, Fri Dec 26 19:17:00 2008 UTC revision 36 by plugwash, Thu Feb 5 21:52:57 2009 UTC
# Line 84  Line 84 
84      end;      end;
85      temptimer := currenttimer;      temptimer := currenttimer;
86      currenttimer := currenttimer.nexttimer;      currenttimer := currenttimer.nexttimer;
     if temptimer.released then temptimer.free;  
87    end;    end;
88  end;  end;
89    
# Line 135  Line 134 
134      end;      end;
135    end;    end;
136    
   if asinreleaseflag then begin  
     asinreleaseflag := false;  
     currentsocket := firstasin;  
     while assigned(currentsocket) do begin  
       tempsocket := currentsocket;  
       currentsocket := currentsocket.nextasin;  
       if tempsocket.released then begin  
         tempsocket.free;  
       end;  
     end;  
   end;  
137    {    {
138    !!! issues:    !!! issues:
139    - sockets which are released may not be freed because theyre never processed by the loop    - sockets which are released may not be freed because theyre never processed by the loop
# Line 295  Line 283 
283    repeat    repeat
284    
285      //the message loop will exit if all lasio's and ltimer's and lsignal's are destroyed      //the message loop will exit if all lasio's and ltimer's and lsignal's are destroyed
     if (not assigned(firstasin)) and (not assigned(firsttimer)) {$ifndef nosignal} and (not assigned(firstsignal)){$endif} then exit;  
     {fd_zero(FDSR);  
     fd_zero(FDSW);  
     currentsocket := firstasin;  
     if not assigned(currentsocket) then exit; //the message loop will exit if all lsockets are destroyed  
   
     repeat  
       if (not currentsocket.released) and (currentsocket.state<>wsclosed) then fd_set(currentsocket.fdhandlein,fdsr);  
       if (not currentsocket.released) and (currentsocket.state=wsconnecting) then fd_set(currentsocket.fdhandleout,fdsw);  
       if currentsocket is tlsocket then begin  
          if (not currentsocket.released) and (currentsocket.state=wsconnected) and(tlsocket(currentsocket).sendq <> '') then fd_set(currentsocket.fdhandleout,fdsw);  
       end;  
       tempsocket := currentsocket;  
       currentsocket := currentsocket.nextasin;  
       if tempsocket.released then begin  
         tempsocket.free;  
       end;  
     until not assigned(currentsocket);  
     }  
286      processtasks;      processtasks;
287      //currenttask := nil;      //currenttask := nil;
288      {beware}      {beware}

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

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