ada-examples-4-9-branch
ada-examples-4-9-3
Last change
on this file since e6041b3 was
8325959,
checked in by Joel Sherrill <joel.sherrill@…>, on 07/23/08 at 18:08:05
|
2008-07-23 Joel Sherrill <joel.sherrill@…>
- Makefile, ada_from_c.adb, app.c, config.h, example.adb,
example.ads: New files. New test to demonstrate C calling Ada.
|
-
Property mode set to
100644
|
File size:
379 bytes
|
Line | |
---|
1 | -- |
---|
2 | -- Ada From C Example -- Ada "Application" |
---|
3 | -- |
---|
4 | |
---|
5 | with Text_IO; use Text_IO; |
---|
6 | with Example; |
---|
7 | |
---|
8 | procedure Ada_From_C is |
---|
9 | |
---|
10 | task Ada_From_C_Task; |
---|
11 | |
---|
12 | task body Ada_From_C_Task is |
---|
13 | begin |
---|
14 | Put_Line ("GNAT/RTEMS C Calling Ada Test"); |
---|
15 | |
---|
16 | loop |
---|
17 | Put_Line ("Ada task loop iteration"); |
---|
18 | delay 1.0; |
---|
19 | end loop; |
---|
20 | end Ada_From_C_Task; |
---|
21 | |
---|
22 | begin |
---|
23 | NULL; |
---|
24 | end Ada_From_C; |
---|
Note: See
TracBrowser
for help on using the repository browser.