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

ada-examples-4-10-branch
Last change on this file since d4c4aba was d4c4aba, checked in by Joel Sherrill <joel.sherrill@…>, on Sep 17, 2009 at 6:13:31 PM

2009-09-17 Joel Sherrill <joel.sherrill@…>

  • Makefile, ada_from_c.adb, app.c: Make follow standard RTEMS test output format. Add output screens where appropriate.
  • ada_from_c_task.scn: New file.
  • Property mode set to 100644
File size: 400 bytes
Line 
1--
2--  Ada From C Example -- Ada "Application"
3--
4--  $Id$
5--
6
7
8with Text_IO; use Text_IO;
9with Example;
10
11procedure Ada_From_C is
12
13   task Ada_From_C_Task;
14
15   task body Ada_From_C_Task is
16   begin
17     Put_Line ("*** GNAT/RTEMS C Calling Ada Test ***");
18
19     loop
20       Put_Line ("Ada task loop iteration");
21       delay 1.0;
22     end loop;
23   end Ada_From_C_Task;
24
25begin
26   NULL;
27end Ada_From_C;
Note: See TracBrowser for help on using the repository browser.