[rtems commit] ada/spname01: Fix several issues

[Sebastian Huber]

Module:    rtems
Branch:    master
Commit:    a01e169fd3c45361063c5c912b5887d436c3d972
Changeset: http://git.rtems.org/rtems/commit/?id=a01e169fd3c45361063c5c912b5887d436c3d972

Author:    Sebastian Huber <sebastian.huber at embedded-brains.de>
Date:      Fri Dec  1 11:26:10 2017 +0100

ada/spname01: Fix several issues

---

 testsuites/ada/sptests/spname01/spname01.adb | 9 ++++-----
 testsuites/ada/sptests/spname01/sptest.adb   | 7 ++++---
 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 863e64f..6c39c32 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 108ff3b..5d99ed9 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 5e4f682..179517d 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;