Commit f3cac1dd authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Include RCM association in template

parent 7f92f213
-- ************************ TASTE AADL Parser ************************** --
-- Based on Ocarina **************************************************** --
-- (c) 2018 European Space Agency - maxime.perrotin@esa.int
-- (c) 2019 Maxime Perrotin / European Space Agency - maxime.perrotin@esa.int
-- LGPL license, see LICENSE file
with System.Assertions,
......@@ -445,6 +445,7 @@ package body TASTE.AADL_Parser is
declare
Thread : constant AADL_Thread :=
(Name => F.Name & "_" & PI.Name,
RCM => US (PI.RCM'Img),
Entry_Port_Name => PI.Name,
Protected_Block_name => Block.Name,
Node => Block.Node,
......
......@@ -119,6 +119,7 @@ package body TASTE.Concurrency_View is
return Result : constant Translate_Set :=
(+Assoc ("Name", To_String (T.Name))
& Assoc ("Entry_Port_Name", To_String (T.Entry_Port_Name))
& Assoc ("RCM", To_String (T.RCM))
& Assoc ("Pro_Block_Name", To_String (T.Protected_Block_Name))
& Assoc ("Node_Name", To_String (T.Node.Value_Or
(Taste_Node'(Name => US (""), others => <>)).Name))
......
......@@ -66,6 +66,7 @@ package TASTE.Concurrency_View is
type AADL_Thread is tagged
record
Name : Unbounded_String;
RCM : Unbounded_String;
Entry_Port_Name : Unbounded_String;
Protected_Block_Name : Unbounded_String;
Output_Ports : Ports.Map;
......
Supports Markdown
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