/[mldonkey]/mldonkey/src/utils/net/ip_set.ml
ViewVC logotype

Diff of /mldonkey/src/utils/net/ip_set.ml

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

revision 1.12 by spiralvoice, Thu Aug 4 21:43:58 2005 UTC revision 1.13 by spiralvoice, Sat Aug 6 19:46:34 2005 UTC
# Line 1  Line 1 
1    
2  open Printf2  open Printf2
3    open Ip
4    
5  (* prints a new logline with date, module and starts newline *)  (* prints a new logline with date, module and starts newline *)
6  let lprintf_nl () =  let lprintf_nl () =
# Line 76  let rec match_ip_aux bl ip = Line 77  let rec match_ip_aux bl ip =
77            Some br            Some br
78    
79  let match_ip bl ip =  let match_ip bl ip =
80    let m = match_ip_aux bl ip in    let m = if Ip.local_ip ip then None else
81      match_ip_aux bl ip in
82    (match m with    (match m with
83        Some br ->        Some br ->
84          br.blocking_hits <- br.blocking_hits + 1          br.blocking_hits <- br.blocking_hits + 1

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26