diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2009-09-17 18:13:31 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2009-09-17 18:13:31 +0000 |
commit | d4c4abaf17421751d5eb91cb6fe82701f4df175b (patch) | |
tree | c00047e8f531442076e91aaa718fdd6bd5915e6e | |
parent | dabca92eee2a796c4156d34ae11c043fcde5703c (diff) |
2009-09-17 Joel Sherrill <joel.sherrill@oarcorp.com>
* 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.
-rw-r--r-- | ada_from_c_task/ChangeLog | 6 | ||||
-rw-r--r-- | ada_from_c_task/Makefile | 2 | ||||
-rw-r--r-- | ada_from_c_task/ada_from_c.adb | 5 | ||||
-rw-r--r-- | ada_from_c_task/ada_from_c_task.scn | 13 | ||||
-rw-r--r-- | ada_from_c_task/app.c | 4 |
5 files changed, 29 insertions, 1 deletions
diff --git a/ada_from_c_task/ChangeLog b/ada_from_c_task/ChangeLog index 7220d1f..fbe15be 100644 --- a/ada_from_c_task/ChangeLog +++ b/ada_from_c_task/ChangeLog @@ -1,5 +1,11 @@ 2009-09-17 Joel Sherrill <joel.sherrill@oarcorp.com> + * 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. + +2009-09-17 Joel Sherrill <joel.sherrill@oarcorp.com> + * .cvsignore: New file. 2009-09-15 Joel Sherrill <joel.sherrill@oarcorp.com> diff --git a/ada_from_c_task/Makefile b/ada_from_c_task/Makefile index e0ee21b..14916c3 100644 --- a/ada_from_c_task/Makefile +++ b/ada_from_c_task/Makefile @@ -3,6 +3,8 @@ # # See README.Makefiles in the main ada-examples directory. # +# $Id$ +# PROGRAM=ada_from_c diff --git a/ada_from_c_task/ada_from_c.adb b/ada_from_c_task/ada_from_c.adb index 268968f..8b7b85f 100644 --- a/ada_from_c_task/ada_from_c.adb +++ b/ada_from_c_task/ada_from_c.adb @@ -1,6 +1,9 @@ -- -- Ada From C Example -- Ada "Application" -- +-- $Id$ +-- + with Text_IO; use Text_IO; with Example; @@ -11,7 +14,7 @@ procedure Ada_From_C is task body Ada_From_C_Task is begin - Put_Line ("GNAT/RTEMS C Calling Ada Test"); + Put_Line ("*** GNAT/RTEMS C Calling Ada Test ***"); loop Put_Line ("Ada task loop iteration"); diff --git a/ada_from_c_task/ada_from_c_task.scn b/ada_from_c_task/ada_from_c_task.scn new file mode 100644 index 0000000..fba27bf --- /dev/null +++ b/ada_from_c_task/ada_from_c_task.scn @@ -0,0 +1,13 @@ +Invoking C Application Initializion +*** GNAT/RTEMS C Calling Ada Test *** +Ada task loop iteration +C task loop iteration +Ada method called 0 times +Ada task loop iteration +C task loop iteration +Ada method called 1 times +Ada task loop iteration +C task loop iteration +Ada method called 2 times + .... + YOU MUST KILL THE TEST OR RESET THE HARDWARE! diff --git a/ada_from_c_task/app.c b/ada_from_c_task/app.c index 2ab91dc..a306ee2 100644 --- a/ada_from_c_task/app.c +++ b/ada_from_c_task/app.c @@ -1,3 +1,7 @@ +/* + * $Id$ + */ + #include <rtems.h> #include <stdio.h> |