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

[rte] Exports via dynamic the value [all_statuses], used by Eva.

parent 807f02cc
No related branches found
No related tags found
No related merge requests found
......@@ -147,6 +147,15 @@ let _ignore =
~journalize:false
Visit.get_annotations_exp
let _ignore =
let kf = Kernel_function.ty in
Dynamic.register
~plugin:"RteGen"
"all_statuses"
Datatype.(list (triple string (func2 kf bool unit) (func kf bool)))
~journalize:false
Generator.all_statuses
let main () =
(* reset "rte generated" properties for all functions *)
if Options.Enabled.get () then begin
......
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