From 004230a8e858ee9453dd3815d1ce60f2da52c90e Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Thu, 17 Sep 2009 18:13:39 +0000 Subject: 2009-09-17 Joel Sherrill * Makefile, empty.c, task_priority.adb: Make follow standard RTEMS test output format. Add output screens where appropriate. * task_priority.scn: New file. --- task_priority/ChangeLog | 6 ++++++ task_priority/Makefile | 2 ++ task_priority/empty.c | 4 ++++ task_priority/task_priority.adb | 10 +--------- task_priority/task_priority.scn | 10 ++++++++++ 5 files changed, 23 insertions(+), 9 deletions(-) create mode 100644 task_priority/task_priority.scn diff --git a/task_priority/ChangeLog b/task_priority/ChangeLog index 48f0539..1f19f6c 100644 --- a/task_priority/ChangeLog +++ b/task_priority/ChangeLog @@ -1,3 +1,9 @@ +2009-09-17 Joel Sherrill + + * Makefile, empty.c, task_priority.adb: Make follow standard RTEMS test + output format. Add output screens where appropriate. + * task_priority.scn: New file. + 2009-09-17 Joel Sherrill * .cvsignore: New file. diff --git a/task_priority/Makefile b/task_priority/Makefile index e4fba01..b75efbf 100644 --- a/task_priority/Makefile +++ b/task_priority/Makefile @@ -3,6 +3,8 @@ # # See README.Makefiles in the main ada-examples directory. # +# $Id$ +# PROGRAM=task_priority diff --git a/task_priority/empty.c b/task_priority/empty.c index a64c828..61907d5 100644 --- a/task_priority/empty.c +++ b/task_priority/empty.c @@ -1,3 +1,7 @@ +/* + * $Id$ + */ + #if defined(__rtems__) #include #endif diff --git a/task_priority/task_priority.adb b/task_priority/task_priority.adb index 33fcd29..1b621cc 100644 --- a/task_priority/task_priority.adb +++ b/task_priority/task_priority.adb @@ -2,15 +2,6 @@ -- Demonstrate Task Priority -- -- --- Expected Output: --- High: 151 --- HighNative: ID=0x0B010004 104 --- Low: 150 --- LowNative: ID=0x0B010003 105 --- High - Waking up --- High - Waking up --- .... --- -- $Id$ @@ -39,6 +30,7 @@ procedure Task_Priority is task body High_Task is begin + Put_Line ("*** Task Priority Test ***"); Put_Line ( "High: " & System.Any_Priority'Image (Get_Priority)); Put ( "HighNative: " ); Put_Priority; diff --git a/task_priority/task_priority.scn b/task_priority/task_priority.scn new file mode 100644 index 0000000..0d1a678 --- /dev/null +++ b/task_priority/task_priority.scn @@ -0,0 +1,10 @@ +*** Task Priority Test *** +High: 151 +HighNative: ID=0x0B010004 104 +Low: 150 +LowNative: ID=0x0B010003 105 +High - Waking up +High - Waking up + .... + YOU MUST KILL THE TEST OR RESET THE HARDWARE! + -- cgit v1.2.3