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.
44 lines
1.3 KiB
44 lines
1.3 KiB
6 years ago
|
(*
|
||
|
|
* Copyright (c) 2019-present, Facebook, Inc.
|
||
|
|
*
|
||
|
|
* This source code is licensed under the MIT license found in the
|
||
|
|
* LICENSE file in the root directory of this source tree.
|
||
|
|
*)
|
||
|
|
|
||
|
|
open! IStd
|
||
|
|
|
||
|
|
module InvariantVars : module type of AbstractDomain.FiniteSet (Var)
|
||
|
|
|
||
|
|
module VarsInLoop : module type of AbstractDomain.FiniteSet (Var)
|
||
|
|
|
||
|
|
module LoopNodes : module type of AbstractDomain.FiniteSet (Procdesc.Node)
|
||
|
|
|
||
|
|
module VarSet : module type of AbstractDomain.FiniteSet (Var)
|
||
|
|
|
||
|
|
(** Map loop header node -> all nodes in the loop *)
|
||
|
|
module LoopHeadToLoopNodes = Procdesc.NodeMap
|
||
|
|
|
||
|
|
(** Map loop head -> invariant vars in loop *)
|
||
|
|
module LoopHeadToInvVars = Procdesc.NodeMap
|
||
|
|
|
||
|
|
type invariant_map = VarsInLoop.t Procdesc.NodeMap.t
|
||
|
|
|
||
|
|
val get_inv_vars_in_loop :
|
||
|
|
Tenv.t
|
||
|
|
-> ReachingDefs.invariant_map
|
||
|
|
-> is_inv_by_default:bool
|
||
|
|
-> get_callee_purity:( Typ.Procname.t
|
||
|
|
-> PurityDomain.ModifiedParamIndices.t AbstractDomain.Types.top_lifted
|
||
|
|
sexp_option)
|
||
|
|
-> Procdesc.Node.t
|
||
|
|
-> LoopNodes.t
|
||
|
|
-> VarSet.t
|
||
|
|
|
||
|
|
val get_loop_inv_var_map :
|
||
|
|
Tenv.t
|
||
|
|
-> ( Typ.Procname.t
|
||
|
|
-> PurityDomain.ModifiedParamIndices.t AbstractDomain.Types.top_lifted sexp_option)
|
||
|
|
-> ReachingDefs.invariant_map
|
||
|
|
-> LoopNodes.t LoopHeadToInvVars.t
|
||
|
|
-> invariant_map
|