Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
Ocarina
Commits
8c51a282
Commit
8c51a282
authored
Apr 29, 2013
by
yoogx
Browse files
* Update mappings for port operations
parent
27156b33
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/backends/ocarina-backends-mast-main.adb
View file @
8c51a282
...
...
@@ -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
;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment