Maj terminée. Pour consulter la release notes associée voici le lien :
https://about.gitlab.com/releases/2021/07/07/critical-security-release-gitlab-14-0-4-released/

Commit 420977e1 authored by Sylvain Dailler's avatar Sylvain Dailler
Browse files

Patch previous commit.

parent e3f2cb50
...@@ -90,7 +90,7 @@ let create_controller config env ses = ...@@ -90,7 +90,7 @@ let create_controller config env ses =
provers; provers;
c c
let remove_subtree = Session_itp.remove_subtree let remove_subtree c = Session_itp.remove_subtree c.controller_session
(* Get children of any without proofattempts *) (* Get children of any without proofattempts *)
let get_undetached_children_no_pa s any : any list = let get_undetached_children_no_pa s any : any list =
...@@ -615,11 +615,11 @@ let clean_session c ~removed = ...@@ -615,11 +615,11 @@ let clean_session c ~removed =
if pa.Session_itp.proof_obsolete || if pa.Session_itp.proof_obsolete ||
Call_provers.(pr.pr_answer <> Valid) Call_provers.(pr.pr_answer <> Valid)
then then
remove_subtree ~notification ~removed s any) Session_itp.remove_subtree ~notification ~removed s any)
| ATn tn -> | ATn tn ->
let pn = get_trans_parent s tn in let pn = get_trans_parent s tn in
if pn_proved s pn && not (tn_proved s tn) then if pn_proved s pn && not (tn_proved s tn) then
remove_subtree s ~notification ~removed (ATn tn) Session_itp.remove_subtree s ~notification ~removed (ATn tn)
| _ -> ())) () | _ -> ())) ()
(* This function folds on any subelements of given node and tries to mark all (* This function folds on any subelements of given node and tries to mark all
......
...@@ -131,8 +131,8 @@ val add_file : controller -> ?format:Env.fformat -> string -> unit ...@@ -131,8 +131,8 @@ val add_file : controller -> ?format:Env.fformat -> string -> unit
(** [add_fil cont ?fmt fname] parses the source file (** [add_fil cont ?fmt fname] parses the source file
[fname] and add the resulting theories to the session of [cont] *) [fname] and add the resulting theories to the session of [cont] *)
val remove_subtree: controller -> any -> removed:notifier -> val remove_subtree: controller -> notification:notifier -> removed:notifier ->
notification:notifier -> unit any -> unit
(** Mapping to Session_itp.remove_subtree. Used for code using Why3's API *) (** Mapping to Session_itp.remove_subtree. Used for code using Why3's API *)
val get_undetached_children_no_pa: Session_itp.session -> any -> any list val get_undetached_children_no_pa: Session_itp.session -> any -> any list
......
...@@ -1225,7 +1225,7 @@ end ...@@ -1225,7 +1225,7 @@ end
let n = any_from_node_ID nid in let n = any_from_node_ID nid in
begin begin
try try
remove_subtree d.cont.controller_session n Session_itp.remove_subtree d.cont.controller_session n
~notification:(notify_change_proved d.cont) ~notification:(notify_change_proved d.cont)
~removed:(fun x -> ~removed:(fun x ->
let nid = node_ID_from_any x in let nid = node_ID_from_any x 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