diff options
Diffstat (limited to 'c/src/ada-tests/sptests/spname01/sptest.adb')
-rw-r--r-- | c/src/ada-tests/sptests/spname01/sptest.adb | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/c/src/ada-tests/sptests/spname01/sptest.adb b/c/src/ada-tests/sptests/spname01/sptest.adb deleted file mode 100644 index 5dd78d8e4a..0000000000 --- a/c/src/ada-tests/sptests/spname01/sptest.adb +++ /dev/null @@ -1,62 +0,0 @@ --- --- SPTEST / BODY --- --- DESCRIPTION: --- --- This package is the implementation of the Ada Task Name test of the RTEMS --- Ada Single Processor Test Suite. --- --- DEPENDENCIES: --- --- --- --- COPYRIGHT (c) 1989-2009. --- On-Line Applications Research Corporation (OAR). --- --- The license and distribution terms for this file may in --- the file LICENSE in this distribution or at --- http://www.rtems.org/license/LICENSE. --- - -with RTEMS; -with TEST_SUPPORT; -with TEXT_IO; -with System; use System; -- for Null Pointer comparison - -package body SPTEST is - - task body AdaTask is - Status : RTEMS.Status_Codes; - Pointer : RTEMS.Address; - StringName : String(1 .. 120) := (1 .. 120 => '*' ); - NewName : constant String := "Josiah"; - begin - - TEXT_IO.NEW_LINE( 2 ); - TEXT_IO.PUT_LINE( "*** Ada Task Name TEST ***" ); - - RTEMS.Object_Get_Name( RTEMS.Self, StringName, Pointer ); - if Pointer = RTEMS.Null_Address then - TEXT_IO.PUT_LINE( "Object_Get_Name_Failed" ); - else - TEXT_IO.PUT_LINE( "My name is (" & StringName & ")" ); - end if; - - TEXT_IO.PUT_LINE( "Setting name to (Josiah)" ); - RTEMS.Object_Set_Name( RTEMS.Self, NewName, Status ); - TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "Object_Set_Name" ); - - RTEMS.Object_Get_Name( RTEMS.Self, StringName, Pointer ); - if Pointer = RTEMS.Null_Address then - TEXT_IO.PUT_LINE( "Object_Get_Name_Failed" ); - else - TEXT_IO.PUT_LINE( "My name is (" & StringName & ")" ); - end if; - - TEXT_IO.PUT_LINE( "*** END OF Ada Task Name TEST ***" ); - - RTEMS.SHUTDOWN_EXECUTIVE( 0 ); - - end AdaTask; - -end SPTEST; |