diff --git a/src/plugins/markdown-report/sarif_gen.ml b/src/plugins/markdown-report/sarif_gen.ml index 5d05776a74f82299fc1e416cce4b9169a5c4b1ba..fce40cc7d22fe0d29b370a9f02f018cc3406be8f 100644 --- a/src/plugins/markdown-report/sarif_gen.ml +++ b/src/plugins/markdown-report/sarif_gen.ml @@ -47,6 +47,10 @@ let get_remark remarks label = | None -> [] | Some l -> l +(* keep track of command line arguments for all invocations of Frama-C during + a save/load sequence. Note that the list is in reverse order + (newest invocation first). +*) module Analysis_cmdline = State_builder.List_ref(Datatype.List(Datatype.String)) (struct @@ -70,7 +74,7 @@ let gen_invocation () = let arguments = List.tl cl in Invocation.create ~commandLine ~arguments () in - List.map gen_one cls + List.rev_map gen_one cls let gen_remark alarm = let open Markdown in