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

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

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

revision 1.4 by spiralvoice, Sat Apr 23 11:43:10 2005 UTC revision 1.5 by spiralvoice, Tue Jun 28 23:17:07 2005 UTC
# Line 39  external job_done : 'a job -> bool = "ml Line 39  external job_done : 'a job -> bool = "ml
39  external job_start : 'a job -> Unix.file_descr -> unit = "ml_job_start"  external job_start : 'a job -> Unix.file_descr -> unit = "ml_job_start"
40        
41  let _ =  let _ =
   if BasicSocket.has_threads () then begin  
       lprintf "\nUsing threads\n";  
     end;  
42    BasicSocket.add_infinite_timer 0.1 (fun _ ->    BasicSocket.add_infinite_timer 0.1 (fun _ ->
43  (*      lprintf "test job\n";  *)  (*      lprintf "test job\n";  *)
44        try        try

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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