let add_annotation a =
Cil.registerAttribute a Cil.AttrType;
if not (Logic_env.is_logic_type security_name) then begin
Logic_env.add_builtin_logic_type security_name security_type
end;
if not (Logic_env.is_logic_function a) then begin
Logic_builtin.add { bl_name = a; bl_params = []; bl_labels = [];
bl_type = Some (Ltype (security_type, []));
bl_profile = [];
}
end