/[mldonkey]/mldonkey/src/networks/gnutella2/g2Proto.ml
ViewVC logotype

Diff of /mldonkey/src/networks/gnutella2/g2Proto.ml

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

revision 1.8 by spiralvoice, Sun Mar 20 01:41:30 2005 UTC revision 1.9 by spiralvoice, Tue Sep 6 11:24:59 2005 UTC
# Line 262  module Print = struct Line 262  module Print = struct
262            
263      let buf = Buffer.create 100      let buf = Buffer.create 100
264      let print_payload msg =      let print_payload msg =
265        Buffer.clear buf;        Buffer.reset buf;
266        let name =        let name =
267          let module Buffer = Buffer2 in          let module Buffer = Buffer2 in
268          match msg with          match msg with
# Line 417  let buf_uid buf s = match Uid.to_uid s w Line 417  let buf_uid buf s = match Uid.to_uid s w
417                
418  let g2_encode_payload msg =  let g2_encode_payload msg =
419    let module M = G2_LittleEndian in    let module M = G2_LittleEndian in
420    Buffer.clear buf;    Buffer.reset buf;
421    let name =    let name =
422      match msg with      match msg with
423      | TO md4 -> buf_md4 buf md4; "TO"      | TO md4 -> buf_md4 buf md4; "TO"

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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