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 =
provers;
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 *)
let get_undetached_children_no_pa s any : any list =
......@@ -615,11 +615,11 @@ let clean_session c ~removed =
if pa.Session_itp.proof_obsolete ||
Call_provers.(pr.pr_answer <> Valid)
then
remove_subtree ~notification ~removed s any)
Session_itp.remove_subtree ~notification ~removed s any)
| ATn tn ->
let pn = get_trans_parent s tn in
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
......
......@@ -131,8 +131,8 @@ val add_file : controller -> ?format:Env.fformat -> string -> unit
(** [add_fil cont ?fmt fname] parses the source file
[fname] and add the resulting theories to the session of [cont] *)
val remove_subtree: controller -> any -> removed:notifier ->
notification:notifier -> unit
val remove_subtree: controller -> notification:notifier -> removed:notifier ->
any -> unit
(** 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
......
......@@ -1225,7 +1225,7 @@ end
let n = any_from_node_ID nid in
begin
try
remove_subtree d.cont.controller_session n
Session_itp.remove_subtree d.cont.controller_session n
~notification:(notify_change_proved d.cont)
~removed:(fun x ->
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