diff options
| author | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-12-01 11:26:10 +0100 |
|---|---|---|
| committer | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-12-01 13:19:48 +0100 |
| commit | a01e169fd3c45361063c5c912b5887d436c3d972 (patch) | |
| tree | 8660cf59e6d286764511ff0e183a2121bcca872d /testsuites/ada/sptests/spname01/sptest.adb | |
| parent | ada: Add standard test begin/end message (diff) | |
| download | rtems-a01e169fd3c45361063c5c912b5887d436c3d972.tar.bz2 | |
ada/spname01: Fix several issues
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 |