Remove dead renaming code

Reviewed By: jvillard

Differential Revision: D3346775

fbshipit-source-id: ff620ef
master
Cristiano Calcagno 9 years ago committed by Facebook Github Bot 1
parent 91c25fe636
commit 8639042bc0

@ -2528,17 +2528,6 @@ let prop_normal_vars_to_primed_vars p =
Sil.fav_filter_ident fav Ident.is_normal; Sil.fav_filter_ident fav Ident.is_normal;
exist_quantify fav p exist_quantify fav p
(** Rename all primed variables fresh *)
let prop_rename_primed_fresh (p : normal t) : normal t =
let ids_primed =
let fav = prop_fav p in
let ids = Sil.fav_to_list fav in
IList.filter Ident.is_primed ids in
let ren_sub =
let f i = (i, Sil.Var (Ident.create_fresh Ident.kprimed)) in
Sil.sub_of_list (IList.map f ids_primed) in
prop_ren_sub ren_sub p
(** convert the primed vars to normal vars. *) (** convert the primed vars to normal vars. *)
let prop_primed_vars_to_normal_vars (p : normal t) : normal t = let prop_primed_vars_to_normal_vars (p : normal t) : normal t =
let fav = prop_fav p in let fav = prop_fav p in

@ -398,9 +398,6 @@ val prop_normal_vars_to_primed_vars : normal t -> normal t
(** convert the primed vars to normal vars. *) (** convert the primed vars to normal vars. *)
val prop_primed_vars_to_normal_vars : normal t -> normal t val prop_primed_vars_to_normal_vars : normal t -> normal t
(** Rename all primed variables. *)
val prop_rename_primed_fresh : normal t -> normal t
(** Build an exposed prop from pi *) (** Build an exposed prop from pi *)
val from_pi : pi -> exposed t val from_pi : pi -> exposed t

Loading…
Cancel
Save