* Generate accessors for ports depending on presence/absence

          of input/output ports

          For issue #91

src/backends/po_hi_ada/ocarina-backends-po_hi_ada-activity.adb

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---    Copyright (C) 2006-2009 Telecom ParisTech, 2010-2015 ESA & ISAE.      --
+--    Copyright (C) 2006-2009 Telecom ParisTech, 2010-2017 ESA & ISAE.      --
 --                                                                          --
 -- Ocarina  is free software; you can redistribute it and/or modify under   --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -926,6 +926,10 @@ package body Ocarina.Backends.PO_HI_Ada.Activity is
       procedure Runtime_Routine_Specs (E : Node_Id) is
          N : Node_Id;
       begin
+         if Has_Out_Ports (E) then
+            --  The following functions are made visible iff the
+            --  thread has *out* ports
+
             --  Send_Output
 
             N := Send_Output_Spec (E);
@@ -936,6 +940,11 @@ package body Ocarina.Backends.PO_HI_Ada.Activity is
             N := Put_Value_Spec (E);
             Bind_AADL_To_Put_Value (Identifier (E), N);
             Append_Node_To_List (N, ADN.Visible_Part (Current_Package));
+         end if;
+
+         if Has_In_Ports (E) then
+            --  The following functions are made visible iff the
+            --  thread has *in* ports
 
             --  Receive_Input
 
@@ -977,6 +986,7 @@ package body Ocarina.Backends.PO_HI_Ada.Activity is
 
             N := Wait_For_Incoming_Events_Spec (E);
             Append_Node_To_List (N, ADN.Visible_Part (Current_Package));
+         end if;
       end Runtime_Routine_Specs;
 
       -----------
@@ -4100,12 +4110,18 @@ package body Ocarina.Backends.PO_HI_Ada.Activity is
             --  per thread component.
 
             if Not_Handled then
+               if Has_Out_Ports (E) then
                   Implement_Subprogram
                     (Send_Output_Spec (E),
                      RR_Send_Output,
                      True);
                   Implement_Subprogram (Put_Value_Spec (E), RR_Put_Value);
-               Implement_Subprogram (Receive_Input_Spec (E), RR_Receive_Input);
+               end if;
+
+               if Has_In_Ports (E) then
+                  Implement_Subprogram
+                    (Receive_Input_Spec (E),
+                     RR_Receive_Input);
                   Implement_Subprogram (Get_Value_Spec (E), RR_Get_Value);
                   Implement_Subprogram (Get_Sender_Spec (E), RR_Get_Sender);
                   Implement_Subprogram (Get_Count_Spec (E), RR_Get_Count);
@@ -4113,12 +4129,14 @@ package body Ocarina.Backends.PO_HI_Ada.Activity is
                     (Get_Time_Stamp_Spec (E),
                      RR_Get_Time_Stamp);
                   Implement_Subprogram (Next_Value_Spec (E), RR_Next_Value);
-               Implement_Subprogram
-                 (Store_Received_Message_Spec (E),
-                  RR_Store_Received_Message);
                   Implement_Subprogram
                     (Wait_For_Incoming_Events_Spec (E),
                      RR_Wait_For_Incoming_Events);
+                  Implement_Subprogram
+                    (Store_Received_Message_Spec (E),
+                     RR_Store_Received_Message);
+               end if;
+
             else
                --  Complete the case alternatives corresponding to the
                --  current instance.