Skip to content
Snippets Groups Projects
Commit 9684a40f authored by David Bühler's avatar David Bühler
Browse files

[from] Renames force_compute_all_calldeps into compute_all_calldeps.

parent 9c04bfcf
No related branches found
No related tags found
No related merge requests found
...@@ -186,7 +186,7 @@ let () = ...@@ -186,7 +186,7 @@ let () =
let iter = Tbl.iter let iter = Tbl.iter
let find = Tbl.find let find = Tbl.find
let force_compute_all_calldeps () = let compute_all_calldeps () =
if not (Tbl.is_computed ()) then begin if not (Tbl.is_computed ()) then begin
if Eva.Analysis.is_computed () then if Eva.Analysis.is_computed () then
Project.clear Project.clear
......
...@@ -24,6 +24,6 @@ ...@@ -24,6 +24,6 @@
while the value analysis runs, and the results are usually much more while the value analysis runs, and the results are usually much more
precise than the functionwise results. *) precise than the functionwise results. *)
val force_compute_all_calldeps : unit -> unit val compute_all_calldeps : unit -> unit
val iter : (Cil_types.kinstr -> Function_Froms.froms -> unit) -> unit val iter : (Cil_types.kinstr -> Function_Froms.froms -> unit) -> unit
val find : Cil_types.kinstr -> Function_Froms.froms val find : Cil_types.kinstr -> Function_Froms.froms
...@@ -34,7 +34,7 @@ let access zone mem = Function_Froms.Memory.find mem zone ...@@ -34,7 +34,7 @@ let access zone mem = Function_Froms.Memory.find mem zone
let display fmt = From_register.display (Some fmt) let display fmt = From_register.display (Some fmt)
let force_compute_all_calldeps = Callwise.force_compute_all_calldeps let compute_all_calldeps = Callwise.compute_all_calldeps
module Callwise = struct module Callwise = struct
let iter = Callwise.iter let iter = Callwise.iter
let find = Callwise.find let find = Callwise.find
......
...@@ -26,7 +26,7 @@ val self : State.t ...@@ -26,7 +26,7 @@ val self : State.t
val is_computed : kernel_function -> bool val is_computed : kernel_function -> bool
val compute : kernel_function -> unit val compute : kernel_function -> unit
val compute_all : unit -> unit val compute_all : unit -> unit
val force_compute_all_calldeps : unit -> unit val compute_all_calldeps : unit -> unit
val get : Cil_types.kernel_function -> Function_Froms.froms val get : Cil_types.kernel_function -> Function_Froms.froms
val access : Locations.Zone.t -> Function_Froms.Memory.t -> Locations.Zone.t val access : Locations.Zone.t -> Function_Froms.Memory.t -> Locations.Zone.t
val pretty : Format.formatter -> kernel_function -> unit val pretty : Format.formatter -> kernel_function -> unit
......
...@@ -154,7 +154,7 @@ let main () = ...@@ -154,7 +154,7 @@ let main () =
if From_parameters.ForceCallDeps.get () then if From_parameters.ForceCallDeps.get () then
From_parameters.ForceCallDeps.output From_parameters.ForceCallDeps.output
(fun () -> (fun () ->
Callwise.force_compute_all_calldeps (); Callwise.compute_all_calldeps ();
if not_quiet then print_calldeps (); if not_quiet then print_calldeps ();
) )
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment