/[mldonkey]/mldonkey/src/im/imProtocol.ml
ViewVC logotype

Diff of /mldonkey/src/im/imProtocol.ml

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

revision 1.3 by spiralvoice, Wed Mar 2 20:37:09 2005 UTC revision 1.4 by spiralvoice, Mon Oct 10 16:22:25 2005 UTC
# Line 58  let dummy_protocol_impl = { Line 58  let dummy_protocol_impl = {
58        
59  let dummy_protocol = as_protocol dummy_protocol_impl    let dummy_protocol = as_protocol dummy_protocol_impl  
60    
61  module Hnum = Weak2.Make(struct  module Hnum = Weak.Make(struct
62        type t = protocol        type t = protocol
63        let hash protocol = Hashtbl.hash (protocol_num protocol)        let hash protocol = Hashtbl.hash (protocol_num protocol)
64                
65        let equal x y  = (protocol_num x) = (protocol_num y)        let equal x y  = (protocol_num x) = (protocol_num y)
66      end)      end)
67    
68  module Hname = Weak2.Make(struct  module Hname = Weak.Make(struct
69        type t = protocol        type t = protocol
70        let hash protocol = Hashtbl.hash (protocol_name protocol)        let hash protocol = Hashtbl.hash (protocol_name protocol)
71                

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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