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 |
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 |