Nous avons procédé ce jeudi matin 08 avril 2021 à une MAJ de sécurité urgente. Nous sommes passé de la version 13.9.3 à la version 13.9.5 les releases notes correspondantes sont ici:
https://about.gitlab.com/releases/2021/03/17/security-release-gitlab-13-9-4-released/
https://about.gitlab.com/releases/2021/03/31/security-release-gitlab-13-10-1-released/

Commit b8563a15 authored by Andrei Paskevich's avatar Andrei Paskevich

do not export f_map_pos and f_map_neg: traversal functions

like f_map_sign should only be applied from specialized
recursive functions and these funcitons will usually supply
the polarity argument.
parent 37e22067
......@@ -975,9 +975,6 @@ let f_map_sign fnT fnF sign f = f_label_copy f (match f.f_node with
else f_or (f_and f1p f2) (f_and (f_not f1n) f3)
| _ -> f_map fnT (fnF sign) f)
let f_map_pos fnT fnF f = f_map_sign fnT fnF true f
let f_map_neg fnT fnF f = f_map_sign fnT fnF false f
(* safe opening fold *)
let t_branch fn acc b = let _,t = t_open_branch b in fn acc t
......
......@@ -284,9 +284,6 @@ val f_map_sign : (term -> term) -> (bool -> fmla -> fmla) ->
nb: if-then-else and iff are translated if needed *)
val f_map_pos : (term -> term) -> (bool -> fmla -> fmla) -> fmla -> fmla
val f_map_neg : (term -> term) -> (bool -> fmla -> fmla) -> fmla -> fmla
val t_fold : ('a -> term -> 'a) -> ('a -> fmla -> 'a) -> 'a -> term -> 'a
val f_fold : ('a -> term -> 'a) -> ('a -> fmla -> 'a) -> 'a -> fmla -> 'a
......
......@@ -73,7 +73,7 @@ let add_ld axl d = match d with
axl, make_ls_defn ls vl (e_map elim_t elim_f e)
end
let remove_if_decl d = match d.d_node with
let elim d = match d.d_node with
| Dlogic l ->
let axl, l = map_fold_left add_ld [] l in
let d = create_logic_decl l in
......@@ -82,7 +82,7 @@ let remove_if_decl d = match d.d_node with
[decl_map (fun _ -> assert false) elim_f d]
let eliminate_if_term =
Register.store (fun () -> Trans.decl remove_if_decl None)
Register.store (fun () -> Trans.decl elim None)
let () = Register.register_transform "eliminate_if_term" eliminate_if_term
......
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