Commit 7da0a8d9 authored by yoogx's avatar yoogx

* Test for openaadl/ocarina#120

parent 5aa0b952
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2015 ESA & ISAE. --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2017 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;
-----------------
......
......@@ -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
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment