Commit 6431d78b authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

exclude node named "interfaceview"

parent 729aec1a
......@@ -262,7 +262,9 @@ package body TASTE.Concurrency_View is
procedure Generate_CV (CV : Taste_Concurrency_View) is
begin
for Node in CV.Nodes.Iterate loop
CV.Generate_Node (CV_Nodes.Key (Node));
if CV_Nodes.Key (Node) /= "interfaceview" then
CV.Generate_Node (CV_Nodes.Key (Node));
end if;
end loop;
exception
when Error : Concurrency_View_Error | Ada.IO_Exceptions.Name_Error =>
......
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