diff options
| author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2009-09-17 18:13:39 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2009-09-17 18:13:39 +0000 |
| commit | 004230a8e858ee9453dd3815d1ce60f2da52c90e (patch) | |
| tree | 9961eec30185d2400189368dc9ec646b5c4348ec | |
| parent | 2009-09-17 Joel Sherrill <joel.sherrill@oarcorp.com> (diff) | |
| download | ada-examples-004230a8e858ee9453dd3815d1ce60f2da52c90e.tar.bz2 | |
2009-09-17 Joel Sherrill <joel.sherrill@oarcorp.com>
* Makefile, empty.c, task_priority.adb: Make follow standard RTEMS test
output format. Add output screens where appropriate.
* task_priority.scn: New file.
| -rw-r--r-- | task_priority/ChangeLog | 6 | ||||
| -rw-r--r-- | task_priority/Makefile | 2 | ||||
| -rw-r--r-- | task_priority/empty.c | 4 | ||||
| -rw-r--r-- | task_priority/task_priority.adb | 10 | ||||
| -rw-r--r-- | task_priority/task_priority.scn | 10 |
5 files changed, 23 insertions, 9 deletions
diff --git a/task_priority/ChangeLog b/task_priority/ChangeLog index 48f0539..1f19f6c 100644 --- a/task_priority/ChangeLog +++ b/task_priority/ChangeLog @@ -1,5 +1,11 @@ 2009-09-17 Joel Sherrill <joel.sherrill@oarcorp.com> + * 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 <joel.sherrill@oarcorp.com> + * .cvsignore: New file. 2008-07-23 Joel Sherrill <joel.sherrill@oarcorp.com> 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 <rtems.h> #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! + |