Commit 8c51a282 authored by yoogx's avatar yoogx
Browse files

* Update mappings for port operations

parent 27156b33
......@@ -135,15 +135,23 @@ package body Ocarina.Backends.MAST.Main is
(The_Port : Node_Id)
return Name_Id
is
Component_Instance_Name : Name_Id;
Port_Name : Name_Id;
N : Name_Id;
begin
Set_Str_To_Name_Buffer ("");
Component_Instance_Name := Fully_Qualified_Instance_Name
(AIN.Parent_Component (The_Port));
Set_Str_To_Name_Buffer ("");
Port_Name :=
(Normalize_Name (Name (Identifier (The_Port))));
(Normalize_Name (Name (Identifier (The_Port))));
Set_Str_To_Name_Buffer ("");
Get_Name_String (Port_Name);
Add_Str_To_Name_Buffer ("_shared_resource");
Set_Str_To_Name_Buffer (Get_Name_String (Component_Instance_Name)
& "_" & Get_Name_String (Port_Name)
& "_shared_resource");
N := Name_Find;
return N;
end Map_Port_Shared_Resource_Name;
......@@ -156,15 +164,23 @@ package body Ocarina.Backends.MAST.Main is
(The_Port : Node_Id)
return Name_Id
is
Component_Instance_Name : Name_Id;
Port_Name : Name_Id;
N : Name_Id;
begin
Set_Str_To_Name_Buffer ("");
Component_Instance_Name := Fully_Qualified_Instance_Name
(AIN.Parent_Component (The_Port));
Set_Str_To_Name_Buffer ("");
Port_Name :=
(Normalize_Name (Name (Identifier (The_Port))));
(Normalize_Name (Name (Identifier (The_Port))));
Set_Str_To_Name_Buffer ("");
Get_Name_String (Port_Name);
Add_Str_To_Name_Buffer ("_shared_resource_operation");
Set_Str_To_Name_Buffer (Get_Name_String (Component_Instance_Name)
& "_" & Get_Name_String (Port_Name)
& "_shared_resource_operation");
N := Name_Find;
return N;
end Map_Port_Shared_Resource_Operation_Name;
......
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