2024-12-12 16:37:36 +01:00
|
|
|
open Analysis
|
|
|
|
|
|
|
|
|
|
module Variable : sig
|
|
|
|
|
type t
|
|
|
|
|
val pp : out_channel -> t -> unit
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
module RISCCfg = CfgRISC.RISCCfg
|
|
|
|
|
|
|
|
|
|
module DVCfg : Dataflow.C with type elt = CfgRISC.RISCSimpleStatements.t
|
|
|
|
|
and type internal = Variable.t
|
|
|
|
|
|
|
|
|
|
val compute_defined_variables : RISCCfg.t -> DVCfg.t
|
|
|
|
|
|
|
|
|
|
val compute_cfg : DVCfg.t -> RISCCfg.t
|
2024-12-16 05:15:33 +01:00
|
|
|
|
|
|
|
|
val check_defined_variables : DVCfg.t -> bool
|
|
|
|
|
|
|
|
|
|
val undefined_variables : DVCfg.t -> Variable.t list
|