Commit e50be496 authored by Virgile Prevosto's avatar Virgile Prevosto
Browse files

[MdR] put list of invocations in correct order

parent 2c514004
......@@ -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 =
......@@ -70,7 +74,7 @@ let gen_invocation () =
let arguments = cl in
Invocation.create ~commandLine ~arguments ()
in gen_one cls
List.rev_map gen_one cls
let gen_remark alarm =
let open Markdown in
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment