let compute () =
(* compute RTE annotations, whether Enabled is set or not *)
Ast.compute () ;
let include_function kf =
let fsel = FunctionSelection.get () in
Datatype.String.Set.is_empty fsel
|| let name = Kernel_function.get_name kf in
Datatype.String.Set.mem name fsel
in
Globals.Functions.iter
(fun kf ->
if include_function kf then begin
match kf.fundec with
| Declaration _ -> ()
| Definition _ -> !Db.RteGen.annotate_kf kf
end)