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
P
PolyORB-HI-Ada
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
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
PolyORB-HI-Ada
Commits
7da0a8d9
Commit
7da0a8d9
authored
Nov 14, 2017
by
yoogx
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* Test for openaadl/ocarina#120
parent
5aa0b952
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
5 deletions
+7
-5
examples/aadlv2/rma/hello.adb
examples/aadlv2/rma/hello.adb
+4
-2
examples/aadlv2/rma/rma.aadl
examples/aadlv2/rma/rma.aadl
+3
-3
No files found.
examples/aadlv2/rma/hello.adb
View file @
7da0a8d9
...
...
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-201
5
ESA & ISAE. --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-201
7
ESA & ISAE. --
-- --
-- PolyORB-HI is free software; you can redistribute it and/or modify under --
-- terms of the GNU General Public License as published by the Free Soft- --
...
...
@@ -32,6 +32,7 @@
-- $Id: hello.adb 6273 2009-03-25 17:36:51Z lasnier $
with
PolyORB_HI
.
Output
;
with
PolyORB_HI
.
Utils
;
package
body
Hello
is
...
...
@@ -41,9 +42,10 @@ package body Hello is
procedure
Hello_Spg_1
is
use
PolyORB_HI
.
Output
;
use
PolyORB_HI
.
Utils
;
begin
Put_Line
(
Normal
,
"Hello! This is task
ONE"
);
Put_Line
(
Normal
,
"Hello! This is task
"
&
Get_Task_Id
'
Img
);
end
Hello_Spg_1
;
-----------------
...
...
examples/aadlv2/rma/rma.aadl
View file @
7da0a8d9
...
...
@@ -66,11 +66,11 @@ end Task.impl_2;
processor
cpurm
properties
Deployment
::
Execution_Platform
=>
LEON_ORK
;
Deployment
::
Execution_Platform
=>
Native
;
end
cpurm
;
processor
implementation
cpurm
.
impl
properties
properties
Scheduling_Protocol
=>
(
Posix_1003_Highest_Priority_First_Protocol
);
end
cpurm
.
impl
;
...
...
@@ -91,7 +91,7 @@ end node_a.impl;
--
System
--
------------
system
rma
system
rma
end
rma
;
system
implementation
rma
.
ERC32
...
...
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