You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
66 lines
1.7 KiB
66 lines
1.7 KiB
(*
|
|
* Copyright (c) 2013 - present Facebook, Inc.
|
|
* All rights reserved.
|
|
*
|
|
* This source code is licensed under the BSD style license found in the
|
|
* LICENSE file in the root directory of this source tree. An additional grant
|
|
* of patent rights can be found in the PATENTS file in the same directory.
|
|
*)
|
|
|
|
open! Utils
|
|
|
|
(** Environment for temporary identifiers used in instructions.
|
|
Lazy implementation: only created when actually used. *)
|
|
|
|
|
|
type t = (Exp.t Ident.IdentHash.t) Lazy.t
|
|
|
|
let create_ proc_desc =
|
|
let map = Ident.IdentHash.create 1 in
|
|
let do_instr _ = function
|
|
| Sil.Load (id, e, _, _) ->
|
|
Ident.IdentHash.add map id e
|
|
| _ -> () in
|
|
Procdesc.iter_instrs do_instr proc_desc;
|
|
map
|
|
|
|
(* lazy implementation, only create when used *)
|
|
let create proc_desc =
|
|
let map = lazy (create_ proc_desc) in
|
|
map
|
|
|
|
(* create an idenv for another procedure *)
|
|
let create_from_idenv _ proc_desc =
|
|
let map = lazy (create_ proc_desc) in
|
|
map
|
|
|
|
let lookup map_ id =
|
|
let map = Lazy.force map_ in
|
|
try
|
|
Some (Ident.IdentHash.find map id)
|
|
with Not_found -> None
|
|
|
|
let expand_expr idenv e = match e with
|
|
| Exp.Var id ->
|
|
(match lookup idenv id with
|
|
| Some e' -> e'
|
|
| None -> e)
|
|
| _ -> e
|
|
|
|
let expand_expr_temps idenv node _exp =
|
|
let exp = expand_expr idenv _exp in
|
|
match exp with
|
|
| Exp.Lvar pvar when Pvar.is_frontend_tmp pvar ->
|
|
(match Errdesc.find_program_variable_assignment node pvar with
|
|
| None -> exp
|
|
| Some (_, id) ->
|
|
expand_expr idenv (Exp.Var id))
|
|
| _ -> exp
|
|
|
|
(** Return true if the expression is a temporary variable introduced by the front-end. *)
|
|
let exp_is_temp idenv e =
|
|
match expand_expr idenv e with
|
|
| Exp.Lvar pvar ->
|
|
Pvar.is_frontend_tmp pvar
|
|
| _ -> false
|