summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSebastian Huber <sebastian.huber@embedded-brains.de>2017-12-01 11:26:10 +0100
committerSebastian Huber <sebastian.huber@embedded-brains.de>2017-12-01 13:19:48 +0100
commita01e169fd3c45361063c5c912b5887d436c3d972 (patch)
tree8660cf59e6d286764511ff0e183a2121bcca872d
parentada: Add standard test begin/end message (diff)
downloadrtems-a01e169fd3c45361063c5c912b5887d436c3d972.tar.bz2
ada/spname01: Fix several issues
-rw-r--r--testsuites/ada/sptests/spname01/spname01.adb9
-rw-r--r--testsuites/ada/sptests/spname01/sptest.adb7
-rw-r--r--testsuites/ada/sptests/spname01/sptest.ads2
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;