/[mldonkey]/mldonkey/src/daemon/common/commonSwarming2.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonSwarming2.ml

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

revision 1.14 by spiralvoice, Mon Aug 8 16:47:30 2005 UTC revision 1.15 by spiralvoice, Tue Aug 9 10:52:02 2005 UTC
# Line 2341  let received (up : uploader) (file_begin Line 2341  let received (up : uploader) (file_begin
2341                        string_len < string_length then begin                        string_len < string_length then begin
2342                          if !verbose_hidden_errors then                          if !verbose_hidden_errors then
2343                          begin                          begin
2344                          lprintf_nl () "BAD WRITE for range %Ld-%Ld (string_pos %d)"                          lprintf_nl () "BAD WRITE in %s for range %Ld-%Ld (string_pos %d)"
2345                            r.range_begin r.range_end string_pos;                            (file_best_name t.t_file) r.range_begin r.range_end string_pos;
2346                          lprintf_nl () "  received: file_pos:%Ld string:%d %d"                          lprintf_nl () "  received: file_pos:%Ld string:%d %d"
2347                            file_begin string_begin string_len;                            file_begin string_begin string_len;
2348                          lprintf_nl () "  ranges:";                          lprintf_nl () "  ranges:";
# Line 2829  it is verified as soon as possible. *) Line 2829  it is verified as soon as possible. *)
2829        in        in
2830        if !verbose then lprintf_nl () "Downloaded after present %Ld" (downloaded t);        if !verbose then lprintf_nl () "Downloaded after present %Ld" (downloaded t);
2831    
2832    (*
2833        if !verbose then lprintf_nl () "Loading absent...";        if !verbose then lprintf_nl () "Loading absent...";
2834        (try        (try
2835            set_absent t            set_absent t
# Line 2839  it is verified as soon as possible. *) Line 2840  it is verified as soon as possible. *)
2840                (Printexc2.to_string e);                (Printexc2.to_string e);
2841        );        );
2842        if !verbose then lprintf_nl () "Downloaded after absent %Ld" (downloaded t);        if !verbose then lprintf_nl () "Downloaded after absent %Ld" (downloaded t);
2843    *)
2844        (try        (try
2845            let d = get_value "file_downloaded" value_to_int64 in            let d = get_value "file_downloaded" value_to_int64 in
2846    

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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