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
3810d5bf
Commit
3810d5bf
authored
Mar 08, 2013
by
yoogx
Browse files
* Refine Get_Location in case a process is bound to a virtual
processor, subcomponent of a processor. For Issue #7
parent
87823391
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/backends/ocarina-backends-properties.adb
View file @
3810d5bf
...
...
@@ -2449,13 +2449,17 @@ package body Ocarina.Backends.Properties is
function
Get_Location
(
P
:
Node_Id
)
return
Name_Id
is
begin
pragma
Assert
(
AINU
.
Is_Processor
(
P
)
or
else
AINU
.
Is_Device
(
P
));
if
not
Is_Defined_String_Property
(
P
,
Location
)
then
return
No_Name
;
if
AINU
.
Is_Processor
(
P
)
or
else
AINU
.
Is_Device
(
P
)
then
if
not
Is_Defined_String_Property
(
P
,
Location
)
then
return
No_Name
;
else
return
Get_String_Property
(
P
,
Location
);
end
if
;
elsif
AINU
.
Is_Virtual_Processor
(
P
)
then
return
Get_Location
(
Parent_Component
(
Parent_Subcomponent
(
P
)));
else
raise
Program_Error
;
end
if
;
return
Get_String_Property
(
P
,
Location
);
end
Get_Location
;
---------------------------
...
...
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