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

[scope] Removes function rm_asserts from deprecated module Db.Value.

parent 03888af3
No related branches found
No related tags found
No related merge requests found
...@@ -355,11 +355,6 @@ module Value = struct ...@@ -355,11 +355,6 @@ module Value = struct
Cvalue.Model.pretty v) Cvalue.Model.pretty v)
*) *)
(* -remove-redundant-alarms feature, applied at the end of an Eva analysis,
fulfilled by the Scope plugin that also depends on Eva. We thus use a
reference here to avoid a cyclic dependency. *)
let rm_asserts = mk_fun "Value.rm_asserts"
let no_results = mk_fun "Value.no_results" let no_results = mk_fun "Value.no_results"
let update_callstack_table ~after stmt callstack v = let update_callstack_table ~after stmt callstack v =
......
...@@ -316,10 +316,6 @@ module Value : sig ...@@ -316,10 +316,6 @@ module Value : sig
on [Record_Value_Callbacks] and [Record_Value_Callbacks_New] on [Record_Value_Callbacks] and [Record_Value_Callbacks_New]
should not force their lazy argument *) should not force their lazy argument *)
(* -remove-redundant-alarms feature, applied at the end of an Eva analysis,
fulfilled by the Scope plugin that also depends on Eva. We thus use a
reference here to avoid a cyclic dependency. *)
val rm_asserts: (unit -> unit) ref
(**/**) (**/**)
(** {3 Internal use only} *) (** {3 Internal use only} *)
......
...@@ -637,9 +637,6 @@ let rm_asserts () = ...@@ -637,9 +637,6 @@ let rm_asserts () =
CA_Map.iter aux to_be_removed CA_Map.iter aux to_be_removed
end end
let () = Db.register Db.Value.rm_asserts rm_asserts [@alert "-db_deprecated"]
let rm_asserts = let rm_asserts =
Dynamic.register Dynamic.register
~comment:"Remove redundant alarms. Used by the Eva plugin." ~comment:"Remove redundant alarms. Used by the Eva plugin."
......
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