diff options
Diffstat (limited to 'c/src/ada-tests/sptests/sp08/sptest.adb')
| -rw-r--r-- | c/src/ada-tests/sptests/sp08/sptest.adb | 55 |
1 files changed, 26 insertions, 29 deletions
diff --git a/c/src/ada-tests/sptests/sp08/sptest.adb b/c/src/ada-tests/sptests/sp08/sptest.adb index 8fe9523d8b..11707c4928 100644 --- a/c/src/ada-tests/sptests/sp08/sptest.adb +++ b/c/src/ada-tests/sptests/sp08/sptest.adb @@ -10,7 +10,7 @@ -- -- -- --- COPYRIGHT (c) 1989-2009. +-- COPYRIGHT (c) 1989-2011. -- On-Line Applications Research Corporation (OAR). -- -- The license and distribution terms for this file may in @@ -27,13 +27,12 @@ with UNSIGNED32_IO; package body SPTEST is ---PAGE -- -- INIT -- procedure INIT ( - ARGUMENT : in RTEMS.TASK_ARGUMENT + ARGUMENT : in RTEMS.TASKS.ARGUMENT ) is pragma Unreferenced(ARGUMENT); STATUS : RTEMS.STATUS_CODES; @@ -44,7 +43,7 @@ package body SPTEST is SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' ); - RTEMS.TASK_CREATE( + RTEMS.TASKS.CREATE( SPTEST.TASK_NAME( 1 ), 1, 2048, @@ -55,7 +54,7 @@ package body SPTEST is ); TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" ); - RTEMS.TASK_START( + RTEMS.TASKS.START( SPTEST.TASK_ID( 1 ), SPTEST.TASK_1'ACCESS, 0, @@ -63,12 +62,11 @@ package body SPTEST is ); TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" ); - RTEMS.TASK_DELETE( RTEMS.SELF, STATUS ); + RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS ); TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" ); end INIT; ---PAGE -- -- PUT_MODE -- @@ -85,13 +83,12 @@ package body SPTEST is end PUT_MODE; ---PAGE -- -- TASK_1 -- procedure TASK_1 ( - ARGUMENT : in RTEMS.TASK_ARGUMENT + ARGUMENT : in RTEMS.TASKS.ARGUMENT ) is pragma Unreferenced(ARGUMENT); PREVIOUS_MODE : RTEMS.MODE; @@ -100,7 +97,7 @@ package body SPTEST is -- BEGINNING OF ASR - RTEMS.TASK_MODE( + RTEMS.TASKS.MODE( RTEMS.ASR, RTEMS.ASR_MASK, PREVIOUS_MODE, @@ -112,7 +109,7 @@ package body SPTEST is PREVIOUS_MODE ); - RTEMS.TASK_MODE( + RTEMS.TASKS.MODE( RTEMS.NO_ASR, RTEMS.ASR_MASK, PREVIOUS_MODE, @@ -124,7 +121,7 @@ package body SPTEST is PREVIOUS_MODE ); - RTEMS.TASK_MODE( + RTEMS.TASKS.MODE( RTEMS.NO_ASR, RTEMS.ASR_MASK, PREVIOUS_MODE, @@ -136,7 +133,7 @@ package body SPTEST is PREVIOUS_MODE ); - RTEMS.TASK_MODE( + RTEMS.TASKS.MODE( RTEMS.ASR, RTEMS.ASR_MASK, PREVIOUS_MODE, @@ -152,7 +149,7 @@ package body SPTEST is -- BEGINNING OF TIMESLICE - RTEMS.TASK_MODE( + RTEMS.TASKS.MODE( RTEMS.NO_TIMESLICE, RTEMS.TIMESLICE_MASK, PREVIOUS_MODE, @@ -164,7 +161,7 @@ package body SPTEST is PREVIOUS_MODE ); - RTEMS.TASK_MODE( + RTEMS.TASKS.MODE( RTEMS.TIMESLICE, RTEMS.TIMESLICE_MASK, PREVIOUS_MODE, @@ -176,7 +173,7 @@ package body SPTEST is PREVIOUS_MODE ); - RTEMS.TASK_MODE( + RTEMS.TASKS.MODE( RTEMS.TIMESLICE, RTEMS.TIMESLICE_MASK, PREVIOUS_MODE, @@ -188,7 +185,7 @@ package body SPTEST is PREVIOUS_MODE ); - RTEMS.TASK_MODE( + RTEMS.TASKS.MODE( RTEMS.NO_TIMESLICE, RTEMS.TIMESLICE_MASK, PREVIOUS_MODE, @@ -204,7 +201,7 @@ package body SPTEST is -- BEGINNING OF PREEMPT - RTEMS.TASK_MODE( + RTEMS.TASKS.MODE( RTEMS.PREEMPT, RTEMS.PREEMPT_MASK, PREVIOUS_MODE, @@ -216,7 +213,7 @@ package body SPTEST is PREVIOUS_MODE ); - RTEMS.TASK_MODE( + RTEMS.TASKS.MODE( RTEMS.NO_PREEMPT, RTEMS.PREEMPT_MASK, PREVIOUS_MODE, @@ -228,7 +225,7 @@ package body SPTEST is PREVIOUS_MODE ); - RTEMS.TASK_MODE( + RTEMS.TASKS.MODE( RTEMS.NO_PREEMPT, RTEMS.PREEMPT_MASK, PREVIOUS_MODE, @@ -240,7 +237,7 @@ package body SPTEST is PREVIOUS_MODE ); - RTEMS.TASK_MODE( + RTEMS.TASKS.MODE( RTEMS.PREEMPT, RTEMS.PREEMPT_MASK, PREVIOUS_MODE, @@ -254,9 +251,9 @@ package body SPTEST is -- END OF PREEMPT --- BEGINNING OF INTERRUPT LEVEL +-- BEGINNING OF INTERRUPT_LEVEL - RTEMS.TASK_MODE( + RTEMS.TASKS.MODE( RTEMS.INTERRUPT_LEVEL( 3 ), RTEMS.INTERRUPT_MASK, PREVIOUS_MODE, @@ -268,7 +265,7 @@ package body SPTEST is PREVIOUS_MODE ); - RTEMS.TASK_MODE( + RTEMS.TASKS.MODE( RTEMS.INTERRUPT_LEVEL( 5 ), RTEMS.INTERRUPT_MASK, PREVIOUS_MODE, @@ -280,11 +277,11 @@ package body SPTEST is PREVIOUS_MODE ); --- END OF INTERRUPT LEVEL +-- END OF INTERRUPT_LEVEL -- BEGINNING OF COMBINATIONS - RTEMS.TASK_MODE( + RTEMS.TASKS.MODE( RTEMS.INTERRUPT_LEVEL( 3 ) + RTEMS.NO_ASR + RTEMS.TIMESLICE + RTEMS.NO_PREEMPT, RTEMS.INTERRUPT_MASK + RTEMS.ASR_MASK + @@ -298,7 +295,7 @@ package body SPTEST is PREVIOUS_MODE ); - RTEMS.TASK_MODE( + RTEMS.TASKS.MODE( RTEMS.INTERRUPT_LEVEL( 3 ) + RTEMS.NO_ASR + RTEMS.TIMESLICE + RTEMS.NO_PREEMPT, RTEMS.INTERRUPT_MASK + RTEMS.ASR_MASK + @@ -312,7 +309,7 @@ package body SPTEST is PREVIOUS_MODE ); - RTEMS.TASK_MODE( + RTEMS.TASKS.MODE( RTEMS.INTERRUPT_LEVEL( 0 ) + RTEMS.ASR + RTEMS.NO_TIMESLICE + RTEMS.PREEMPT, RTEMS.INTERRUPT_MASK + RTEMS.ASR_MASK + @@ -330,7 +327,7 @@ package body SPTEST is -- BEGINNING OF CURRENT MODE - RTEMS.TASK_MODE( + RTEMS.TASKS.MODE( RTEMS.CURRENT_MODE, RTEMS.CURRENT_MODE, PREVIOUS_MODE, |