ada_from_c_task/ada_from_c.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

--
--  Ada From C Example -- Ada "Application"
--
--  $Id$
--


with Text_IO; use Text_IO;
with Example;

procedure Ada_From_C is

   task Ada_From_C_Task;

   task body Ada_From_C_Task is
   begin
     Put_Line ("*** GNAT/RTEMS C Calling Ada Test ***");

     loop
       Put_Line ("Ada task loop iteration");
       delay 1.0;
     end loop;
   end Ada_From_C_Task;

begin
   NULL;
end Ada_From_C;