Attention une mise à jour du service Gitlab va être effectuée le mardi 18 janvier (et non lundi 17 comme annoncé précédemment) entre 18h00 et 18h30. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes.

Commit dc39e01f authored by Jean-Christophe Filliâtre's avatar Jean-Christophe Filliâtre
Browse files

fixed checksums

parent 73425da5
......@@ -174,14 +174,13 @@ module Checksum = struct
let option e b = function None -> char b 'n' | Some x -> char b 's'; e b x
let list e b l = char b '['; List.iter (e b) l; char b ']'
(* let ident_printer = Ident.create_ident_printer [] *)
(* let ident b id = string b (Ident.id_unique ident_printer id) *)
let hident = Ident.Hid.create 17
let ident =
let ident, clear_ident =
let hident = Ident.Hid.create 17 in
let c = ref 0 in
fun b id ->
(fun b id ->
int b (try Ident.Hid.find hident id
with Not_found -> incr c; Ident.Hid.add hident id !c; !c)
with Not_found -> incr c; Ident.Hid.add hident id !c; !c)),
(fun () -> Ident.Hid.clear hident; c := 0)
let const b c =
let buf = Buffer.create 17 in
......@@ -319,9 +318,8 @@ module Checksum = struct
let task t =
let b = Buffer.create 8192 in
(* Ident.forget_all ident_printer; *)
Task.task_iter (tdecl b) t;
Ident.Hid.clear hident;
clear_ident ();
let s = Buffer.contents b in
Digest.to_hex (Digest.string s)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment