Mise à jour terminée. Pour connaître les apports de la version 13.8.4 par rapport à notre ancienne version vous pouvez lire les "Release Notes" suivantes :
https://about.gitlab.com/releases/2021/02/11/security-release-gitlab-13-8-4-released/
https://about.gitlab.com/releases/2021/02/05/gitlab-13-8-3-released/

Commit 5e4507b3 authored by Andrei Paskevich's avatar Andrei Paskevich

Expr: be less zealous on term-to-fmla conversion

parent 1f56973a
...@@ -571,15 +571,13 @@ let rec raw_of_expr prop e = match e.e_node with ...@@ -571,15 +571,13 @@ let rec raw_of_expr prop e = match e.e_node with
pure_of_expr prop e pure_of_expr prop e
| Eif (e0,e1,e2) when is_e_false e1 && is_e_true e2 -> | Eif (e0,e1,e2) when is_e_false e1 && is_e_true e2 ->
t_not (pure_of_expr true e0) t_not (pure_of_expr true e0)
| Eif (e0,e1,e2) when is_e_false e2 -> | Eif (e0,e1,e2) when prop && is_e_false e2 ->
t_and (pure_of_expr true e0) (pure_of_expr true e1) t_and (pure_of_expr true e0) (pure_of_expr true e1)
| Eif (e0,e1,e2) when is_e_true e1 -> | Eif (e0,e1,e2) when prop && is_e_true e1 ->
t_or (pure_of_expr true e0) (pure_of_expr true e2) t_or (pure_of_expr true e0) (pure_of_expr true e2)
| Eif (e0,e1,e2) -> | Eif (e0,e1,e2) ->
let prop = prop || ity_equal e.e_ity ity_bool in
t_if (pure_of_expr true e0) (pure_of_expr prop e1) (pure_of_expr prop e2) t_if (pure_of_expr true e0) (pure_of_expr prop e1) (pure_of_expr prop e2)
| Ecase (d,bl) -> | Ecase (d,bl) ->
let prop = prop || ity_equal e.e_ity ity_bool in
let conv (p,e) = t_close_branch p.pp_pat (pure_of_expr prop e) in let conv (p,e) = t_close_branch p.pp_pat (pure_of_expr prop e) in
t_case (pure_of_expr false d) (List.map conv bl) t_case (pure_of_expr false d) (List.map conv bl)
| Etry _ | Eraise _ | Eabsurd -> raise Exit | Etry _ | Eraise _ | Eabsurd -> raise Exit
......
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