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 a1d7fd72 authored by François Bobot's avatar François Bobot
Browse files

Core : restreint the type in order to prevent ourselves from miss-spelling,

like the last commit
parent 293d9dd7
......@@ -328,8 +328,8 @@ and expr =
(* term and fmla equality *)
let t_equal = (==)
let f_equal = (==)
let t_equal : term -> term -> bool = (==)
let f_equal : fmla -> fmla -> bool = (==)
let t_hash t = t.t_tag
let f_hash f = f.f_tag
......@@ -1702,7 +1702,7 @@ exception NoMatch
let rec t_match s t1 t2 =
if t_equal t1 t2 then s else
if not (t_equal t1.t_ty t2.t_ty) then raise NoMatch else
if not (ty_equal t1.t_ty t2.t_ty) then raise NoMatch else
match t1.t_node, t2.t_node with
| Tconst c1, Tconst c2 when c1 = c2 -> s
| Tvar v1, _ ->
......
......@@ -68,8 +68,8 @@ module Mts = Tsym.M
module Hts = Tsym.H
module Wts = Tsym.W
let ts_equal = (==)
let ty_equal = (==)
let ts_equal : tysymbol -> tysymbol -> bool = (==)
let ty_equal : ty -> ty -> bool = (==)
let ts_hash ts = id_hash ts.ts_name
let ty_hash ty = Hashweak.tag_hash ty.ty_tag
......
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