Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
O
Ocarina
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
2
Issues
2
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
TASTE
Ocarina
Commits
3810d5bf
Commit
3810d5bf
authored
Mar 08, 2013
by
yoogx
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* 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
Showing
1 changed file
with
10 additions
and
6 deletions
+10
-6
src/backends/ocarina-backends-properties.adb
src/backends/ocarina-backends-properties.adb
+10
-6
No files found.
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
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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