From a01e169fd3c45361063c5c912b5887d436c3d972 Mon Sep 17 00:00:00 2001
From: Sebastian Huber <sebastian.huber@embedded-brains.de>
Date: Fri, 1 Dec 2017 11:26:10 +0100
Subject: 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 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;
-- 
cgit v1.2.3