Attention une mise à jour du service Gitlab va être effectuée le mardi 30 novembre entre 17h30 et 18h00. 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. Cette mise à jour intermédiaire en version 14.0.12 nous permettra de rapidement pouvoir mettre à votre disposition une version plus récente.

Commit d08252f7 authored by Andrei Paskevich's avatar Andrei Paskevich
Browse files

accept several definitions of the same meta if the signatures are the same

(thus, e.g., both alt-ergo and smt printers can register "AC")
parent ee3a0d4d
......@@ -109,11 +109,12 @@ exception MetaTypeMismatch of string * meta_arg_type * meta_arg_type
let meta_table = Hashtbl.create 17
let register_meta s al =
if Hashtbl.mem meta_table s then raise (KnownMeta s);
Hashtbl.add meta_table s al
try let al' = Hashtbl.find meta_table s in
if al <> al' then raise (KnownMeta s)
with Not_found -> Hashtbl.add meta_table s al
let lookup_meta s =
try Hashtbl.find meta_table s
try Hashtbl.find meta_table s
with Not_found -> raise (UnknownMeta s)
let list_meta () = Hashtbl.fold (fun k _ acc -> k::acc) meta_table []
......
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