source: ada-examples/ada_from_c_task/ada_from_c.adb @ 8325959

ada-examples-4-10-branchada-examples-4-9-branch
Last change on this file since 8325959 was 8325959, checked in by Joel Sherrill <joel.sherrill@…>, on Jul 23, 2008 at 6:08:05 PM

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
5with Text_IO; use Text_IO;
6with Example;
7
8procedure 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
22begin
23   NULL;
24end Ada_From_C;
Note: See TracBrowser for help on using the repository browser.