/[mldonkey]/mldonkey/src/networks/donkey/donkeyProtoClient.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyProtoClient.ml

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

revision 1.29 by spiralvoice, Sat Nov 19 17:19:45 2005 UTC revision 1.30 by spiralvoice, Mon Dec 5 18:37:34 2005 UTC
# Line 25  open Md4 Line 25  open Md4
25  open CommonTypes  open CommonTypes
26  open LittleEndian  open LittleEndian
27  open CommonGlobals  open CommonGlobals
28    open CommonOptions
29    
30  open DonkeyOptions  open DonkeyOptions
31  open DonkeyTypes  open DonkeyTypes
# Line 1172  let rec parse_emule_packet emule opcode Line 1173  let rec parse_emule_packet emule opcode
1173    
1174      | 0x93 (* 147 *) ->      | 0x93 (* 147 *) ->
1175          if String.length s < 16 then begin          if String.length s < 16 then begin
1176            lprintf_nl "EmuleMultiPacketAnswer: incomplete request";            if !verbose then lprintf_nl "EmuleMultiPacketAnswer: incomplete request";
1177            raise Not_found            raise Not_found
1178          end;          end;
1179          let md4 = get_md4 s 1 in          let md4 = get_md4 s 1 in

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

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