Skip to content
Snippets Groups Projects

CoRA-Zynq IV properties visibility

Merged Laura Alexandra Sequeira Gouveia requested to merge MR_Cora into master
1 file
+ 25
2
Compare changes
  • Side-by-side
  • Inline
@@ -227,7 +227,8 @@ package body TASTE.Concurrency_View is
Thread_Has_Param : Vector_Tag;
Block_Names,
Block_Languages,
Block_Instance_Of : Vector_Tag;
Block_Instance_Of,
Block_FPGAConf : Vector_Tag;
Blocks : Unbounded_String;
Part_Threads : Unbounded_String;
Partition_Assoc : Translate_Set;
@@ -357,6 +358,8 @@ package body TASTE.Concurrency_View is
Unpro_PI_Tag : Unbounded_String;
RI_Tag : Unbounded_String;
Result : Unbounded_String;
Property_Names,
Property_Values : Vector_Tag;
-- Optionally generate block code in separate files
-- (if fileblock.tmplt present and contains a filename)
@@ -380,6 +383,23 @@ package body TASTE.Concurrency_View is
Block_Instance_Of := Block_Instance_Of
& B.Ref_Function.Instance_Of.Value_Or (US (""));
for TASTE_property of B.Ref_Function.User_Properties loop
Property_Names := Property_Names & TASTE_property.Name;
Property_Values := Property_Values
& TASTE_property.Value;
if TASTE_property.Name =
"TASTE_IV_Properties::FPGA_Configurations"
then
Block_FPGAConf := Block_FPGAConf &
TASTE_property.Value;
end if;
end loop;
if Size (Block_FPGAConf) /= Size (Block_Names)
then
Block_FPGAConf := Block_FPGAConf & "";
end if;
for PI_Assoc of Tmpl.Protected_Provided loop
Document_Template
(Templates_Concurrency_View_Sub_PI,
@@ -412,7 +432,9 @@ package body TASTE.Concurrency_View is
Partition.Deployment_Partition.Name)
& Assoc ("Protected_PIs", Pro_PI_Tag)
& Assoc ("Unprotected_PIs", Unpro_PI_Tag)
& Assoc ("Required", RI_Tag);
& Assoc ("Required", RI_Tag)
& Assoc ("Property_Names", Property_Names)
& Assoc ("Property_Values", Property_Values);
Result := Parse (Path & "/block.tmplt", Block_Assoc);
Document_Template
@@ -451,6 +473,7 @@ package body TASTE.Concurrency_View is
& Assoc ("Block_Names", Block_Names)
& Assoc ("Block_Languages", Block_Languages)
& Assoc ("Block_Instance_Of", Block_Instance_Of)
& Assoc ("Block_FPGAConf", Block_FPGAConf)
& Assoc ("In_Port_Names", Input_Port_Names)
& Assoc ("In_Port_Thread_Name", Input_Port_Thread_Name)
& Assoc ("In_Port_Type_Name", Input_Port_Type_Name)
Loading