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:"; |
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 |
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 |
|
|