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 9e660415 authored by Andrei Paskevich's avatar Andrei Paskevich
Browse files

why3extract: suppress a compilation warning

parent adcea649
......@@ -656,7 +656,6 @@ and k_fun env lps ?(oldies=Mpv.empty) ?(xmap=Mexn.empty) cty e =
let k = Mexn.fold (fun _ ((i,_), xq) k ->
Kseq (k, i, Kstop xq)) xq k in
(* move the postconditions under the VCgen tag *)
(* FIXME: VCgen labels should not be pushed under proxy let *)
let k = if Slab.mem sp_label e.e_label then Ktag (SP, k) else
if Slab.mem wp_label e.e_label then Ktag (WP, k) else k in
let k = bind_oldies oldies (bind_oldies cty.cty_oldies k) in
......
......@@ -138,7 +138,7 @@ let test_extract fmt m =
let rec do_extract_module ?fname m =
test_extract (Format.formatter_of_out_channel stdout) m;
let extract_use m' =
let _extract_use m' =
let fname =
if m'.mod_theory.Theory.th_path = [] then fname else None
in
......
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