module PdgMarks:sig
..end
This module provides elements to mapped information (here called 'marks') to PDG elements and propagate it along the dependencies.
Some more functions are defined in the PDG pluggin itself
(in pdg/marks
):
the signatures of these public functions can be found in file Pdg.mli
type
select_elem =
| |
SelNode of |
(* | zone is Some z only for nodes that
represent call output in case we want to
select less than the whole OutCall | *) |
| |
SelIn of |
type'tm
select =(select_elem * 'tm) list
type 'tm
pdg_select_info =
| |
SelList of |
| |
SelTopMarks of |
t_select
associated with its pdg when dealing
with several functions at one time.type'tm
pdg_select =(PdgTypes.Pdg.t * 'tm pdg_select_info) list
type'tm
info_caller_inputs =(PdgIndex.Signature.in_key * 'tm) list
type'tm
info_called_outputs =(Cil_types.stmt * (PdgIndex.Signature.out_key * 'tm) list) list
stmt
are the calls to consider.type'tm
info_inter ='tm info_caller_inputs * 'tm info_called_outputs
val mk_select_node : ?z_opt:Locations.Zone.t option -> PdgTypes.Node.t -> select_elem
val mk_select_undef_zone : Locations.Zone.t -> select_elem
val add_to_select : ('a * 'b) list -> 'a -> 'b -> ('a * 'b) list
val add_node_to_select : (select_elem * 'a) list ->
PdgTypes.Node.t * Locations.Zone.t option ->
'a -> (select_elem * 'a) list
val add_undef_in_to_select : (select_elem * 'a) list ->
Locations.Zone.t option -> 'a -> (select_elem * 'a) list
module type Mark =sig
..end
module type Fct =sig
..end
module F_Fct:
Mark
),
we have that, after the marks propagation,
the mark of a node are always smaller than the sum of the marks of its
dependencies.
module type Proj =sig
..end
type'mark
m2m =select_elem -> 'mark -> 'mark option
type'mark
call_m2m =Cil_types.stmt option -> PdgTypes.Pdg.t -> 'mark m2m
module type Config =sig
..end