diff options
Diffstat (limited to 'testsuites/ada/sptests/spname01/sptest.adb')
-rw-r--r-- | testsuites/ada/sptests/spname01/sptest.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/testsuites/ada/sptests/spname01/sptest.adb b/testsuites/ada/sptests/spname01/sptest.adb index 108ff3b999..5d99ed92e5 100644 --- a/testsuites/ada/sptests/spname01/sptest.adb +++ b/testsuites/ada/sptests/spname01/sptest.adb @@ -19,6 +19,7 @@ -- with RTEMS; +with RTEMS.OBJECT; with TEST_SUPPORT; with TEXT_IO; with System; use System; -- for Null Pointer comparison @@ -35,7 +36,7 @@ package body SPTEST is TEXT_IO.NEW_LINE( 2 ); TEST_SUPPORT.ADA_TEST_BEGIN; - RTEMS.Object_Get_Name( RTEMS.Self, StringName, Pointer ); + RTEMS.Object.Get_Name( RTEMS.Self, StringName, Pointer ); if Pointer = RTEMS.Null_Address then TEXT_IO.PUT_LINE( "Object_Get_Name_Failed" ); else @@ -43,10 +44,10 @@ package body SPTEST is end if; TEXT_IO.PUT_LINE( "Setting name to (Josiah)" ); - RTEMS.Object_Set_Name( RTEMS.Self, NewName, Status ); + RTEMS.Object.Set_Name( RTEMS.Self, NewName, Status ); TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "Object_Set_Name" ); - RTEMS.Object_Get_Name( RTEMS.Self, StringName, Pointer ); + RTEMS.Object.Get_Name( RTEMS.Self, StringName, Pointer ); if Pointer = RTEMS.Null_Address then TEXT_IO.PUT_LINE( "Object_Get_Name_Failed" ); else |