Commit 7236498a authored by Maxime Perrotin's avatar Maxime Perrotin

Merge branch 'feature_fixDV_Parsing' into 'master'

Feature fix dv parsing

See merge request !50
parents 29ee7241 fcc02e1f
Pipeline #2138 passed with stage
in 8 minutes and 32 seconds
......@@ -692,8 +692,10 @@ package body TASTE.Deployment_View is
if not Is_Empty (Subcomponents (CI)) then
Node := Parse_Node (CI);
Node.Name := US (Get_Name_String (Name (Identifier (Subs))));
Nodes.Insert (Key => To_String (Node.Name),
New_Item => Node);
if Node.Name /= "interfaceview" then
Nodes.Insert (Key => To_String (Node.Name),
New_Item => Node);
end if;
end if;
elsif Get_Category_Of_Component (CI) = CC_Bus then -- Bus
Busses.Append (Parse_Bus (Subs, CI));
......@@ -35,7 +35,7 @@ gdb-ada: clean
gdb --args $(KAZOO) --gw --glue --debug -o output.gdb
gdb-c: clean
gdb --args $(KAZOO) -p --gw --glue --debug -o output.gdb
gdb --args $(KAZOO) -p -c DeploymentView_Native.aadl --gw --glue --debug -o output.gdb
rm -rf output.ada
Markdown is supported
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