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
843b8240
Commit
843b8240
authored
Jun 28, 2020
by
yoogx
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* Minor fix for Hybrid task instanciation
For openaadl/ocarina#262
parent
ee7273db
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
3 deletions
+3
-3
src/backends/po_hi_ada/ocarina-backends-po_hi_ada-job.adb
src/backends/po_hi_ada/ocarina-backends-po_hi_ada-job.adb
+3
-3
No files found.
src/backends/po_hi_ada/ocarina-backends-po_hi_ada-job.adb
View file @
843b8240
...
...
@@ -81,11 +81,10 @@ package body Ocarina.Backends.PO_HI_Ada.Job is
(
S
:
Name_Id
)
return
Node_Id
is
P
:
constant
Node_Id
:=
-- Make_Defining_Identifier (Map_Interrogators_Name (E));
RU
(
RU_PolyORB_HI_Generated_Activity
);
N
:
constant
Node_Id
:=
Make_Defining_Identifier
(
S
);
begin
Set_Homogeneous_Parent_Unit_Name
(
N
,
P
);
Set_Homogeneous_Parent_Unit_Name
(
N
,
P
);
return
N
;
end
Get_Fully_Qualified_Subprogram
;
...
...
@@ -585,7 +584,8 @@ package body Ocarina.Backends.PO_HI_Ada.Job is
(
Selector_Name
=>
Make_Defining_Identifier
(
SN
(
S_Wait_For_Incoming_Events
)),
Actual_Parameter
=>
Make_Defining_Identifier
(
SN
(
S_Wait_For_Incoming_Events
)));
Get_Fully_Qualified_Subprogram
(
SN
(
S_Wait_For_Incoming_Events
)));
Append_Node_To_List
(
N
,
Parameter_List
);
-- Build the package instantiation
...
...
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