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
12bb75c6
Commit
12bb75c6
authored
Dec 29, 2014
by
Julien
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* Sampling port works for the C code part
* Needs to automatically generate the inter-partitions configuration
parent
61900042
Changes
2
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
43 additions
and
13 deletions
+43
-13
src/backends/ocarina-backends-pok_c-main.adb
src/backends/ocarina-backends-pok_c-main.adb
+23
-2
src/backends/ocarina-backends-pok_c-runtime.adb
src/backends/ocarina-backends-pok_c-runtime.adb
+20
-11
No files found.
src/backends/ocarina-backends-pok_c-main.adb
View file @
12bb75c6
...
...
@@ -647,9 +647,19 @@ package body Ocarina.Backends.POK_C.Main is
else
N
:=
Map_Time
(
Get_POK_Refresh_Time
(
F
));
end
if
;
else
if
POK_Flavor
=
DEOS
then
--
-- DeOS needs a value to refresh the port.
--
N
:=
CTU
.
Make_Literal
(
CV
.
New_Int_Value
(
1_000_000
,
1
,
10
));
else
N
:=
CTU
.
Make_Literal
(
CV
.
New_Int_Value
(
0
,
1
,
10
));
end
if
;
end
if
;
Append_Node_To_List
(
N
,
Call_Parameters
);
Append_Node_To_List
...
...
@@ -776,9 +786,19 @@ package body Ocarina.Backends.POK_C.Main is
N
:=
Map_Time
(
Get_POK_Refresh_Time
(
F
));
end
if
;
else
if
POK_Flavor
=
DEOS
then
--
-- DeOS needs a value to refresh the port.
--
N
:=
CTU
.
Make_Literal
(
CV
.
New_Int_Value
(
1_000_000
,
1
,
10
));
else
N
:=
CTU
.
Make_Literal
(
CV
.
New_Int_Value
(
0
,
1
,
10
));
end
if
;
end
if
;
Append_Node_To_List
(
N
,
Call_Parameters
);
...
...
@@ -978,6 +998,7 @@ package body Ocarina.Backends.POK_C.Main is
Statements
:=
New_List
(
CTN
.
K_Statement_List
);
Add_Include
(
E
=>
RH
(
RH_Activity
));
Add_Include
(
E
=>
RH
(
RH_Gtypes
));
if
Use_ARINC653_API
then
Process_Variable_Type
:=
RE
(
RE_Process_Id_Type
);
...
...
src/backends/ocarina-backends-pok_c-runtime.adb
View file @
12bb75c6
...
...
@@ -131,8 +131,14 @@ package body Ocarina.Backends.POK_C.Runtime is
if
POK_Flavor
=
DEOS
then
for
E
in
AR
F
_Id
loop
for
E
in
AR
T
_Id
loop
RE_Header_Table
(
E
)
:=
RH_Apex
;
end
loop
;
RE_Header_Table
(
RE_Pok_Port_Kind_Sampling
)
:=
RH_Apex
;
RE_Header_Table
(
RE_Source
)
:=
RH_Apex
;
RE_Header_Table
(
RE_Destination
)
:=
RH_Apex
;
RE_Header_Table
(
RE_Pok_Errno_Empty
)
:=
RH_Apex
;
RE_Header_Table
(
RE_Null
)
:=
RH_Apex
;
RE_Header_Table
(
RE_Normal
)
:=
RH_Apex
;
RE_Header_Table
(
RE_Bool_T
)
:=
RH_Apex
;
...
...
@@ -144,6 +150,9 @@ package body Ocarina.Backends.POK_C.Runtime is
RE_Header_Table
(
RE_Int16_T
)
:=
RH_Apex
;
RE_Header_Table
(
RE_Int32_T
)
:=
RH_Apex
;
RE_Header_Table
(
RE_Int64_T
)
:=
RH_Apex
;
for
E
in
ARF_Id
loop
RE_Header_Table
(
E
)
:=
RH_Apex
;
end
loop
;
for
E
in
ART_Id
loop
...
...
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