19 lines
383 B
OCaml
19 lines
383 B
OCaml
|
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_live_variables : RISCCfg.t -> DVCfg.t
|
||
|
|
|
||
|
|
val optimize_cfg : DVCfg.t -> DVCfg.t
|
||
|
|
|
||
|
|
val compute_cfg : DVCfg.t -> RISCCfg.t
|