Add reference to PI in threads

src/taste-aadl_parser.adb

@@ -453,6 +453,7 @@ package body TASTE.AADL_Parser is
                         Entry_Port_Name      => PI.Name,
                         Protected_Block_name => Block.Name,
                         Node                 => Block.Node,
+                        PI                   => PI,
                         Output_Ports         => Get_Output_Ports (Model, F));
                   begin
                      CV.Nodes

src/taste-concurrency_view.ads

@@ -72,6 +72,7 @@ package TASTE.Concurrency_View is
          Protected_Block_Name : Unbounded_String;
          Output_Ports         : Ports.Map;
          Node                 : Option_Node.Option;
+         PI                   : Taste_Interface; --  Contains period, etc.
       end record;
 
    function To_Template (T : AADL_Thread) return Translate_Set;