blob: 268968fa083cb397d1d2e1a3572e5ac850490a48 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
--
-- Ada From C Example -- Ada "Application"
--
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;
|