/[mojave]/metaprl/library/oidtable.ml
ViewVC logotype

Diff of /metaprl/library/oidtable.ml

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

revision 2921 by nogin, Fri Oct 22 01:07:59 1999 UTC revision 2922 by lolorigo, Thu Mar 16 19:52:02 2000 UTC
# Line 78  Line 78 
78      ()      ()
79    
80  let commit ot stamp oid i =  let commit ot stamp oid i =
81    (* print_string "commit "; print_object_id oid; print_int (hash oid); print_newline(); *)    (*print_string "commit "; print_object_id oid; print_int (hash oid); print_newline(); *)
82    let tent = find ot oid  in    let tent = find ot oid  in
83      tent_commit tent stamp i      tent_commit tent stamp i
84    
# Line 90  Line 90 
90  (*34567890123456789012345678901234567890123456789012345 *)  (*34567890123456789012345678901234567890123456789012345 *)
91    
92  let insert ot st oid i v =  let insert ot st oid i v =
93    (* print_string "Insert ";  print_object_id oid; print_int (hash oid); print_newline(); *)    (*print_string "Insert ";  print_object_id oid; print_int (hash oid); print_newline(); *)
94    let tent = (try (find ot oid)    let tent = (try (find ot oid)
95                with Not_found -> let ntent = new_tent () in (add ot oid ntent); ntent) in                with Not_found -> let ntent = new_tent () in (add ot oid ntent); ntent) in
96      (tent_insert tent st i oid v)      (tent_insert tent st i oid v)

Legend:
Removed from v.2921  
changed lines
  Added in v.2922

  ViewVC Help
Powered by ViewVC 1.1.26