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

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

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

revision 1.29 by spiralvoice, Tue Aug 9 10:52:02 2005 UTC revision 1.30 by spiralvoice, Sun Oct 16 20:42:54 2005 UTC
# Line 17  Line 17 
17      Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA      Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
18  *)  *)
19    
20    open Int64ops
21  open CommonGlobals  open CommonGlobals
22  open Printf2  open Printf2
23  open Md4  open Md4
# Line 221  let check_shared_files () = Line 222  let check_shared_files () =
222                  raise Not_found;                  raise Not_found;
223                end;                end;
224              computation := true;              computation := true;
225              let end_pos = Int64.add sh.shared_pos block_size in              let end_pos = sh.shared_pos ++ block_size in
226              let end_pos = if end_pos > sh.shared_size then sh.shared_size              let end_pos = if end_pos > sh.shared_size then sh.shared_size
227                else end_pos in                else end_pos in
228              let len = Int64.sub end_pos sh.shared_pos in              let len = end_pos -- sh.shared_pos in
229  (*          lprintf "compute next md4"; lprint_newline (); *)  (*          lprintf "compute next md4"; lprint_newline (); *)
230    
231              M.compute_md4 (Unix32.filename sh.shared_fd) sh.shared_pos len              M.compute_md4 (Unix32.filename sh.shared_fd) sh.shared_pos len

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