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 | |
parent | ada: Add standard test begin/end message (diff) | |
download | rtems-a01e169fd3c45361063c5c912b5887d436c3d972.tar.bz2 |
ada/spname01: Fix several issues
-rw-r--r-- | testsuites/ada/sptests/spname01/spname01.adb | 9 | ||||
-rw-r--r-- | testsuites/ada/sptests/spname01/sptest.adb | 7 | ||||
-rw-r--r-- | testsuites/ada/sptests/spname01/sptest.ads | 2 |
3 files changed, 9 insertions, 9 deletions
diff --git a/testsuites/ada/sptests/spname01/spname01.adb b/testsuites/ada/sptests/spname01/spname01.adb index 863e64f24e..6c39c329de 100644 --- a/testsuites/ada/sptests/spname01/spname01.adb +++ b/testsuites/ada/sptests/spname01/spname01.adb @@ -17,12 +17,11 @@ -- http://www.rtems.org/license/LICENSE. -- +with SPTEST; + procedure SPNAME01 is + t : SPTEST.AdaTask; begin - - loop - delay 120.0; - end loop; - + null; end SPNAME01; 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 diff --git a/testsuites/ada/sptests/spname01/sptest.ads b/testsuites/ada/sptests/spname01/sptest.ads index 5e4f682221..179517d98c 100644 --- a/testsuites/ada/sptests/spname01/sptest.ads +++ b/testsuites/ada/sptests/spname01/sptest.ads @@ -20,6 +20,6 @@ package SPTEST is - task AdaTask; + task type AdaTask; end SPTEST; |