Commit c93ff8a1 authored by Maxime Perrotin's avatar Maxime Perrotin

Don't generate a thread for unconnected PIs

parent 96369f1a
......@@ -429,6 +429,16 @@ package body TASTE.AADL_Parser is
end if;
for PI of F.Provided loop
-- Ignore interfaces that are not called by anyone
if PI.RCM /= Cyclic_Operation
and PI.Remote_Interfaces.Length = 0
then
Put_Info ("Ignoring unconnected interface "
& To_String (PI.Name) & " in function "
& To_String (F.Name));
goto next_pi;
end if;
declare
New_PI : Protected_Block_PI := (Name => PI.Name,
PI => PI,
......@@ -482,6 +492,7 @@ package body TASTE.AADL_Parser is
New_Item => Thread);
end;
end if;
<<next_pi>>
end loop;
Block.Required := F.Required;
-- Add the block to the Concurrency View
......
......@@ -475,8 +475,8 @@ SYSTEM GUI
FEATURES
PI_update_positions : PROVIDES SUBPROGRAM ACCESS interfaceview::IV::GUI::PI_update_positions.others {
Taste::coordinates => "221993 82276";
Taste::RCMoperationKind => unprotected;
Taste::RCMperiod => 0 ms;
Taste::RCMoperationKind => cyclic;
Taste::RCMperiod => 1000 ms;
Taste::Deadline => 0 ms;
Taste::InterfaceName => "update_positions";
};
......
......@@ -4,7 +4,10 @@ all: test-parse
$(MAKE) -C output.pohic
test-parse: clean
$(KAZOO) --gw -p --debug --glue -o output.pohic
$(KAZOO) --gw -p --glue -o output.pohic
buildsupport_pohic:
buildsupport -o output.buildsupport.pohic -p --aadlv2 --glue -i InterfaceView.aadl -c DeploymentView.aadl -d DataView.aadl ../common/ocarina_components.aadl ../common/TASTE_IV_Properties.aadl ../common/TASTE_DV_Properties.aadl
clean:
rm -rf output
......
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