diff options
Diffstat (limited to 'c/src/ada-tests/sptests/sp09/sptest.adb')
-rw-r--r-- | c/src/ada-tests/sptests/sp09/sptest.adb | 65 |
1 files changed, 0 insertions, 65 deletions
diff --git a/c/src/ada-tests/sptests/sp09/sptest.adb b/c/src/ada-tests/sptests/sp09/sptest.adb index 5b3de76fd8..0eb96e8e3e 100644 --- a/c/src/ada-tests/sptests/sp09/sptest.adb +++ b/c/src/ada-tests/sptests/sp09/sptest.adb @@ -148,7 +148,6 @@ package body SPTEST is procedure SCREEN_1 is - NOTEPAD_VALUE : RTEMS.UNSIGNED32 := 0; SELF_ID : RTEMS.ID; PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY; STATUS : RTEMS.STATUS_CODES; @@ -162,38 +161,6 @@ package body SPTEST is ); TEXT_IO.PUT_LINE( "TA1 - task_delete - INVALID_ID" ); - begin - RTEMS.TASKS.GET_NOTE( RTEMS.SELF, - RTEMS.NOTEPAD_INDEX'LAST + 10, - NOTEPAD_VALUE, - STATUS - ); - TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( - STATUS, - RTEMS.INVALID_NUMBER, - "TASK_GET_NOTE WITH ILLEGAL NOTEPAD" - ); - TEXT_IO.PUT_LINE( "TA1 - task_get_note - INVALID_NUMBER" ); - exception - when others => - TEXT_IO.PUT_LINE( - "TA1 - task_get_note - INVALID_NUMBER -- constraint error" - ); - end; - - RTEMS.TASKS.GET_NOTE( - 100, - RTEMS.NOTEPAD_INDEX'LAST, - NOTEPAD_VALUE, - STATUS - ); - TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( - STATUS, - RTEMS.INVALID_ID, - "TASK_GET_NOTE WITH ILLEGAL ID" - ); - TEXT_IO.PUT_LINE( "TA1 - task_get_note - INVALID_ID" ); - RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, @@ -295,38 +262,6 @@ package body SPTEST is ); TEXT_IO.PUT_LINE( "TA1 - task_set_priority - INVALID_ID" ); - begin - RTEMS.TASKS.SET_NOTE( RTEMS.SELF, - RTEMS.NOTEPAD_INDEX'LAST + 10, - NOTEPAD_VALUE, - STATUS - ); - TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( - STATUS, - RTEMS.INVALID_NUMBER, - "TASK_SET_NOTE WITH ILLEGAL NOTEPAD" - ); - TEXT_IO.PUT_LINE( "TA1 - task_set_note - INVALID_NUMBER" ); - exception - when others => - TEXT_IO.PUT_LINE( - "TA1 - task_set_note - INVALID_NUMBER -- constraint error" - ); - end; - - RTEMS.TASKS.SET_NOTE( - 100, - RTEMS.NOTEPAD_INDEX'LAST, - NOTEPAD_VALUE, - STATUS - ); - TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( - STATUS, - RTEMS.INVALID_ID, - "TASK_SET_NOTE WITH ILLEGAL ID" - ); - TEXT_IO.PUT_LINE( "TA1 - task_set_note - INVALID_ID" ); - RTEMS.TASKS.START( 100, SPTEST.TASK_1'ACCESS, 0, STATUS ); TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( STATUS, |