diff --git a/src/plugins/markdown-report/sarif_gen.ml b/src/plugins/markdown-report/sarif_gen.ml index ef5886c13c4abb32c06c2833bdb7a13a3c7d4f77..df7eba964893c84d1e2eb46b96ef32c3c21c7e84 100644 --- a/src/plugins/markdown-report/sarif_gen.ml +++ b/src/plugins/markdown-report/sarif_gen.ml @@ -130,10 +130,18 @@ let make_rule_dictionary rules = Datatype.String.Map.fold add_rule rules [] let gen_run remarks = let tool = frama_c_sarif in let invocations = [gen_invocation ()] in - let used_alarms, results = gen_results remarks in - let rules = make_rule_dictionary used_alarms in + let rules, results = gen_results remarks in + let user_annot_results = gen_statuses () in + let rules = + match user_annot_results with + | [] -> rules + | _ -> + Datatype.String.Map.add + "user-spec" "User written ACSL specification" rules + in + let rules = make_rule_dictionary rules in let resources = Resources.create ~rules () in - let results = results @ (gen_statuses ()) in + let results = results @ user_annot_results in let files = gen_files () in Run.create ~tool ~invocations ~results ~resources ~files ()