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

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

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

revision 1.6 by spiralvoice, Mon Jun 20 18:38:49 2005 UTC revision 1.7 by spiralvoice, Tue Jul 12 23:11:41 2005 UTC
# Line 77  let buf_sha1 buf s = Buffer.add_string b Line 77  let buf_sha1 buf s = Buffer.add_string b
77  let get_sha1 s pos =  let get_sha1 s pos =
78    try Sha1.direct_of_string (String.sub s pos 20)      try Sha1.direct_of_string (String.sub s pos 20)  
79    with e ->    with e ->
80        lprintf "exception in get_sha1 %d s=%s\n" pos (String.escaped s);  (*      lprintf "exception in get_sha1 %d s=%s\n" pos (String.escaped s); *)
81        raise e        raise e
82                
83  let buf_md4 buf s = Buffer.add_string buf (Md4.direct_to_string s)  let buf_md4 buf s = Buffer.add_string buf (Md4.direct_to_string s)
# Line 85  let buf_md4 buf s = Buffer.add_string bu Line 85  let buf_md4 buf s = Buffer.add_string bu
85  let get_md4 s pos =  let get_md4 s pos =
86    try Md4.direct_of_string (String.sub s pos 16)      try Md4.direct_of_string (String.sub s pos 16)  
87    with e ->    with e ->
88      lprintf "exception in get_md4 %d s=%s\n" pos (String.escaped s);  (*    lprintf "exception in get_md4 %d s=%s\n" pos (String.escaped s); *)
89      raise e      raise e
90    
91                

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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