Skip to content

GitLab

Commit 54ffd1cf authored by Julien's avatar Julien
Browse files

Start to map the use of blackboards in the configuration file

parent 3de69482
Hide whitespace changes
Inline Side-by-side
src/backends/ocarina-backends-deos_conf-mapping.adb
View file @ 54ffd1cf
......@@ -973,8 +973,19 @@ package body Ocarina.Backends.Deos_Conf.Mapping is
function Map_Partition (Process : Node_Id;
Runtime : Node_Id;
Partition_Identifier : Integer)
Partition_Identifier : Integer;
Nb_Threads : Unsigned_Long_Long;
Nb_Buffers : Unsigned_Long_Long;
Nb_Events : Unsigned_Long_Long;
Nb_Lock_Objects : Unsigned_Long_Long;
Nb_Blackboards : Unsigned_Long_Long;
Blackboards_Size : Unsigned_Long_Long;
Buffers_Size : Unsigned_Long_Long)
return Node_Id is
pragma Unreferenced (Nb_Buffers);
pragma Unreferenced (Nb_Events);
pragma Unreferenced (Nb_Lock_Objects);
pragma Unreferenced (Buffers_Size);
pragma Unreferenced (Process);
Partition_Node : Node_Id;
begin
......@@ -1012,10 +1023,19 @@ package body Ocarina.Backends.Deos_Conf.Mapping is
XTU.Add_Attribute ("ProcessStackSpaceInPages", "6", Partition_Node);
XTU.Add_Attribute ("MinimumProcessStackSizeInBytes",
"512", Partition_Node);
XTU.Add_Attribute ("ProcessQuota", "4", Partition_Node);
XTU.Add_Attribute ("BlackboardQuota", "1", Partition_Node);
XTU.Add_Attribute ("ProcessQuota",
Trim (Unsigned_Long_Long'Image
(Nb_Threads + 2), Left),
Partition_Node);
XTU.Add_Attribute ("BlackboardQuota",
Trim (Unsigned_Long_Long'Image
(Nb_Blackboards), Left),
Partition_Node);
XTU.Add_Attribute ("BlackboardMessageSpaceInBytes",
"256", Partition_Node);
Trim (Unsigned_Long_Long'Image
(Blackboards_Size), Left),
Partition_Node);
XTU.Add_Attribute ("BufferQuota", "0", Partition_Node);
XTU.Add_Attribute ("BufferMessageSpaceInBytes", "0", Partition_Node);
XTU.Add_Attribute ("SemaphoreQuota", "0", Partition_Node);
......
src/backends/ocarina-backends-deos_conf-mapping.ads
View file @ 54ffd1cf
......@@ -18,7 +18,15 @@ package Ocarina.Backends.Deos_Conf.Mapping is
function Map_Processor (E : Node_Id) return Node_Id;
function Map_Partition (Process : Node_Id;
Runtime : Node_Id;
Partition_Identifier : Integer) return Node_Id;
Partition_Identifier : Integer;
Nb_Threads : Unsigned_Long_Long;
Nb_Buffers : Unsigned_Long_Long;
Nb_Events : Unsigned_Long_Long;
Nb_Lock_Objects : Unsigned_Long_Long;
Nb_Blackboards : Unsigned_Long_Long;
Blackboards_Size : Unsigned_Long_Long;
Buffers_Size : Unsigned_Long_Long)
return Node_Id;
function Map_Bus (E : Node_Id) return Node_Id;
function Map_Port_Connection (E : Node_Id) return Node_Id;
function Map_Process_Memory (Process : Node_Id) return Node_Id;
......
src/backends/ocarina-backends-deos_conf-partitions.adb
View file @ 54ffd1cf
......@@ -31,12 +31,13 @@
-- --
------------------------------------------------------------------------------
-- with Locations;
with Ocarina.Backends.Messages;
with Ocarina.ME_AADL;
with Ocarina.ME_AADL.AADL_Instances.Nodes;
with Ocarina.ME_AADL.AADL_Instances.Nutils;
with Ocarina.ME_AADL.AADL_Instances.Entities;
with Ocarina.Backends.Utils;
with Ocarina.Backends.Properties;
with Ocarina.Backends.XML_Tree.Nodes;
with Ocarina.Backends.XML_Tree.Nutils;
......@@ -44,27 +45,38 @@ with Ocarina.Backends.Deos_Conf.Mapping;
package body Ocarina.Backends.Deos_Conf.Partitions is
-- use Locations;
use Ocarina.ME_AADL;
use Ocarina.Backends.Utils;
use Ocarina.Backends.Messages;
use Ocarina.ME_AADL.AADL_Instances.Nodes;
use Ocarina.ME_AADL.AADL_Instances.Entities;
use Ocarina.Backends.XML_Tree.Nutils;
use Ocarina.Backends.Properties;
use Ocarina.Backends.Deos_Conf.Mapping;
package AIN renames Ocarina.ME_AADL.AADL_Instances.Nodes;
package AINU renames Ocarina.ME_AADL.AADL_Instances.Nutils;
package XTN renames Ocarina.Backends.XML_Tree.Nodes;
package XTU renames Ocarina.Backends.XML_Tree.Nutils;
Root_Node : Node_Id := No_Node;
Partitions_Node : Node_Id := No_Node;
Memory_Regions : Node_Id := No_Node;
Partition_Identifier : Integer := 1;
Root_Node : Node_Id := No_Node;
Partitions_Node : Node_Id := No_Node;
Memory_Regions : Node_Id := No_Node;
Partition_Identifier : Integer := 1;
Process_Nb_Threads : Unsigned_Long_Long := 0;
Process_Nb_Buffers : Unsigned_Long_Long := 0;
Process_Nb_Events : Unsigned_Long_Long := 0;
Process_Nb_Lock_Objects : Unsigned_Long_Long := 0;
Process_Nb_Blackboards : Unsigned_Long_Long := 0;
Process_Blackboards_Size : Unsigned_Long_Long := 0;
Process_Buffers_Size : Unsigned_Long_Long := 0;
procedure Visit_Architecture_Instance (E : Node_Id);
procedure Visit_Component_Instance (E : Node_Id);
procedure Visit_System_Instance (E : Node_Id);
procedure Visit_Process_Instance (E : Node_Id);
procedure Visit_Thread_Instance (E : Node_Id);
procedure Visit_Processor_Instance (E : Node_Id);
procedure Visit_Bus_Instance (E : Node_Id);
procedure Visit_Virtual_Processor_Instance (E : Node_Id);
......@@ -168,6 +180,9 @@ package body Ocarina.Backends.Deos_Conf.Partitions is
when CC_Process =>
Visit_Process_Instance (E);
when CC_Thread =>
Visit_Thread_Instance (E);
when CC_Processor =>
Visit_Processor_Instance (E);
......@@ -182,6 +197,48 @@ package body Ocarina.Backends.Deos_Conf.Partitions is
end case;
end Visit_Component_Instance;
---------------------------
-- Visit_Thread_Instance --
---------------------------
procedure Visit_Thread_Instance (E : Node_Id) is
F : Node_Id;
begin
Process_Nb_Threads := Process_Nb_Threads + 1;
if not AINU.Is_Empty (Features (E)) then
F := First_Node (Features (E));
while Present (F) loop
if Kind (F) = K_Port_Spec_Instance then
if Get_Connection_Pattern (F) = Intra_Process
and then Is_In (F)
then
if AIN.Is_Data (F) and then not AIN.Is_Event (F) then
Process_Nb_Blackboards := Process_Nb_Blackboards + 1;
Process_Blackboards_Size :=
Process_Blackboards_Size +
To_Bytes
(Get_Data_Size
(Corresponding_Instance (F)));
elsif AIN.Is_Data (F) and then AIN.Is_Event (F) then
Process_Nb_Buffers := Process_Nb_Buffers + 1;
elsif AIN.Is_Event (F) and then not AIN.Is_Data (F) then
Process_Nb_Events := Process_Nb_Events + 1;
else
Display_Error ("Communication Pattern not handled",
Fatal => True);
end if;
Process_Nb_Lock_Objects := Process_Nb_Lock_Objects + 1;
end if;
end if;
F := Next_Node (F);
end loop;
end if;
end Visit_Thread_Instance;
----------------------------
-- Visit_Process_Instance --
----------------------------
......@@ -289,12 +346,30 @@ package body Ocarina.Backends.Deos_Conf.Partitions is
Corresponding_Process := Find_Associated_Process (E);
if Corresponding_Process /= No_Node then
Process_Nb_Threads := 0;
Process_Nb_Buffers := 0;
Process_Nb_Events := 0;
Process_Nb_Lock_Objects := 0;
Process_Nb_Blackboards := 0;
Process_Blackboards_Size := 0;
Process_Buffers_Size := 0;
Visit (Corresponding_Process);
--
-- First, we create the description of the partition.
--
Partition_Node := Map_Partition (Corresponding_Process,
E,
Partition_Identifier);
Partition_Identifier,
Process_Nb_Threads,
Process_Nb_Buffers,
Process_Nb_Events,
Process_Nb_Lock_Objects,
Process_Nb_Blackboards,
Process_Blackboards_Size,
Process_Buffers_Size);
Append_Node_To_List
(Partition_Node,
XTN.Subitems (Partitions_Node));
......
src/backends/ocarina-backends-properties.adb
View file @ 54ffd1cf
......@@ -116,6 +116,7 @@ package body Ocarina.Backends.Properties is
Real_Range : Name_Id;
Data_Required_Access : Name_Id;
Data_Provided_Access : Name_Id;
Source_Data_Size : Name_Id;
Data_Size : Name_Id;
Code_Size : Name_Id;
Data_Concurrency_Protocol : Name_Id;
......@@ -1143,10 +1144,17 @@ package body Ocarina.Backends.Properties is
-------------------
function Get_Data_Size (D : Node_Id) return Size_Type is
Ret : Size_Type;
begin
pragma Assert (AINU.Is_Data (D) or else AINU.Is_Process (D));
return (Get_Size_Property_Value (D, Data_Size));
Ret := Get_Size_Property_Value (D, Data_Size);
if Ret = Null_Size then
Ret := Get_Size_Property_Value (D, Source_Data_Size);
end if;
return Ret;
end Get_Data_Size;
-------------------
......@@ -3114,7 +3122,8 @@ package body Ocarina.Backends.Properties is
Real_Range := Get_String_Name ("data_model::real_range");
Data_Required_Access := Get_String_Name ("required_access");
Data_Provided_Access := Get_String_Name ("provided_access");
Data_Size := Get_String_Name ("source_data_size");
Data_Size := Get_String_Name ("data_size");
Source_Data_Size := Get_String_Name ("source_data_size");
Code_Size := Get_String_Name ("source_code_size");
Data_Representation :=
Get_String_Name ("data_model::data_representation");
......
Markdown is supported
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