Commit 9d9884d7 authored by Julien Signoles's avatar Julien Signoles
Browse files

[archi] copy the project before visiting

parent 0fdc8e56
......@@ -155,9 +155,13 @@ let generate_code =
Project.on prepared_prj
(fun () ->
let dup_prj = Dup_functions.dup () in
let cname = Project.get_name dup_prj ^ " (copy)" in
let copied_prj =
Project.create_by_copy cname ~last:true ~src:dup_prj
in
let res =
Project.on
dup_prj
copied_prj
(fun () ->
Gmp_types.init ();
Mmodel_analysis.reset ();
......
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