From d4c4abaf17421751d5eb91cb6fe82701f4df175b Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Thu, 17 Sep 2009 18:13:31 +0000 Subject: 2009-09-17 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. --- ada_from_c_task/ChangeLog | 6 ++++++ ada_from_c_task/Makefile | 2 ++ ada_from_c_task/ada_from_c.adb | 5 ++++- ada_from_c_task/ada_from_c_task.scn | 13 +++++++++++++ ada_from_c_task/app.c | 4 ++++ 5 files changed, 29 insertions(+), 1 deletion(-) create mode 100644 ada_from_c_task/ada_from_c_task.scn 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,3 +1,9 @@ +2009-09-17 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. + 2009-09-17 Joel Sherrill * .cvsignore: New file. 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 #include -- cgit v1.2.3