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 30b74fca authored by Guillaume Melquiond's avatar Guillaume Melquiond
Browse files

Ensure that native algebraic types (e.g. bool) are not output to Alt-Ergo.

parent b7a84886
......@@ -239,6 +239,10 @@ let print_data_decl info fmt = function
| _, _ -> unsupported
"alt-ergo : algebraic datatype are not supported"
let print_data_decl info fmt ((ts, csl) as p) =
if Mid.mem ts.ts_name info.info_syn then () else
print_data_decl info fmt p
let print_param_decl info fmt ls =
let sac = if Sls.mem ls info.info_ac then "ac " else "" in
fprintf fmt "@[<hov 2>logic %s%a : %a%s%a@]@\n@\n"
......
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