Don't generate a thread for unconnected PIs

src/taste-aadl_parser.adb

@@ -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

test/test6/InterfaceView.aadl

@@ -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";
   };

test/test6/Makefile

@@ -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