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
c208dc2d
Commit
c208dc2d
authored
Aug 09, 2016
by
yoogx
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* (Get_Core_Id): defend again situation where a thread has no
container process
parent
8e82cddc
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
5 deletions
+7
-5
src/backends/ocarina-backends-utils.adb
src/backends/ocarina-backends-utils.adb
+7
-5
No files found.
src/backends/ocarina-backends-utils.adb
View file @
c208dc2d
...
...
@@ -4026,17 +4026,19 @@ package body Ocarina.Backends.Utils is
function
Get_Core_Id
(
D
:
Node_Id
)
return
Unsigned_Long_Long
is
pragma
Assert
(
Is_Thread
(
D
));
Core_Id
:
Unsigned_Long_Long
;
Core_Id
:
Unsigned_Long_Long
:=
0
;
begin
-- First, we check the container process is associated to a
-- core. This is the case when we want to allocate one process
-- to a core.
Core_Id
:=
Properties
.
Get_Core_Id
(
Get_Bound_Processor
(
Corresponding_Instance
(
Get_Container_Process
(
D
))));
if
Present
(
Get_Container_Process
(
D
))
then
Core_Id
:=
Properties
.
Get_Core_Id
(
Get_Bound_Processor
(
Corresponding_Instance
(
Get_Container_Process
(
D
))));
end
if
;
-- Then, we check whether the thread is directly bound to a core
...
...
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