2002-08-27 Ralf Corsepius <corsepiu@faw.uni-ulm.de>

	* sptests/sp09/Makefile.am: Remove EXPADA.
	* sptests/sp09/sptest.adb: Remove RESULT from SCREEN_13.
	* sptests/sp19/Makefile.am: Remove EXPADA.
	* sptests/sp21/Makefile.am: Remove EXPADA.
	* sptests/sp21/sptest.adb: Remove RESULT from TASK_1.
	* tmtests/tmoverhd/dummy_rtems.adb: Reflect changes to IO_Managers.
	* tmtests/tmoverhd/dummy_rtems.ads: Reflect changes to IO_Managers.

8 files changed, 16 insertions, 22 deletions

diff --git a/c/src/ada-tests/ChangeLog b/c/src/ada-tests/ChangeLog
index 8a72ff33c2..5436ea4e95 100644
--- a/c/src/ada-tests/ChangeLog
+++ b/c/src/ada-tests/ChangeLog
@@ -1,3 +1,19 @@
+2002-08-27	Ralf Corsepius <corsepiu@faw.uni-ulm.de>
+
+	* sptests/sp09/Makefile.am: Remove EXPADA.
+	* sptests/sp09/sptest.adb: Remove RESULT from SCREEN_13.
+	* sptests/sp19/Makefile.am: Remove EXPADA.
+	* sptests/sp21/Makefile.am: Remove EXPADA.
+	* sptests/sp21/sptest.adb: Remove RESULT from TASK_1.
+	* tmtests/tmoverhd/dummy_rtems.adb: Reflect changes to IO_Managers.
+	* tmtests/tmoverhd/dummy_rtems.ads: Reflect changes to IO_Managers.
+
+2002-08-27	Joel Sherrill <joel@OARcorp.com>
+
+	* tmtests/tm20/tmtest.adb, tmtests/tmoverhd/tmtest.adb: Fixed
+	call to RTEMS IO Manager services.
+
+
 2002-08-27	Joel Sherrill <joel@OARcorp.com>
 
 	* tmtests/tm20/tmtest.adb, tmtests/tmoverhd/tmtest.adb: Fixed
diff --git a/c/src/ada-tests/sptests/sp09/Makefile.am b/c/src/ada-tests/sptests/sp09/Makefile.am
index 601aeb5ebe..28cb7266c7 100644
--- a/c/src/ada-tests/sptests/sp09/Makefile.am
+++ b/c/src/ada-tests/sptests/sp09/Makefile.am
@@ -6,9 +6,7 @@ include $(top_srcdir)/../../../automake/lib.am
 
 include $(top_srcdir)/ada.am
 
-if EXPADA
 noinst_PROGRAMS = sp09
-endif
 
 sp09_SOURCES = sp09.adb config.h sptest.adb sptest.ads
 
diff --git a/c/src/ada-tests/sptests/sp09/sptest.adb b/c/src/ada-tests/sptests/sp09/sptest.adb
index da3b66f92f..5ea025525d 100644
--- a/c/src/ada-tests/sptests/sp09/sptest.adb
+++ b/c/src/ada-tests/sptests/sp09/sptest.adb
@@ -2651,7 +2651,6 @@ package body SPTEST is
 
    procedure SCREEN_13
    is
-      RESULT : RTEMS.Unsigned32;
       TIME   : RTEMS.TIME_OF_DAY;
       STATUS : RTEMS.STATUS_CODES;
    begin
@@ -2688,7 +2687,6 @@ package body SPTEST is
          RTEMS.DEVICE_MAJOR_NUMBER'LAST,
          0,
          RTEMS.NULL_ADDRESS,
-         RESULT,
          STATUS
       );
       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
diff --git a/c/src/ada-tests/sptests/sp19/Makefile.am b/c/src/ada-tests/sptests/sp19/Makefile.am
index 94ab737080..36c64ad94b 100644
--- a/c/src/ada-tests/sptests/sp19/Makefile.am
+++ b/c/src/ada-tests/sptests/sp19/Makefile.am
@@ -8,9 +8,7 @@ include $(top_srcdir)/ada.am
 
 AM_ADAFLAGS += -I.
 
-if EXPADA
 noinst_PROGRAMS = sp19
-endif
 
 sp19_SOURCES = sp19.adb sptest.adb config.h sptest.ads
 
diff --git a/c/src/ada-tests/sptests/sp21/Makefile.am b/c/src/ada-tests/sptests/sp21/Makefile.am
index 87d9c040ef..e291526637 100644
--- a/c/src/ada-tests/sptests/sp21/Makefile.am
+++ b/c/src/ada-tests/sptests/sp21/Makefile.am
@@ -6,9 +6,7 @@ include $(top_srcdir)/../../../automake/lib.am
 
 include $(top_srcdir)/ada.am
 
-if EXPADA
 noinst_PROGRAMS = sp21
-endif
 
 sp21_SOURCES = sp21.adb config.h sptest.adb sptest.ads
 
diff --git a/c/src/ada-tests/sptests/sp21/sptest.adb b/c/src/ada-tests/sptests/sp21/sptest.adb
index 606683a6be..006e75f396 100644
--- a/c/src/ada-tests/sptests/sp21/sptest.adb
+++ b/c/src/ada-tests/sptests/sp21/sptest.adb
@@ -76,7 +76,6 @@ package body SPTEST is
    procedure TASK_1 (
       ARGUMENT : in     RTEMS.TASK_ARGUMENT
    ) is
-      RESULT       : RTEMS.Unsigned32;
       STATUS       : RTEMS.STATUS_CODES;
    begin
 
@@ -154,7 +153,6 @@ package body SPTEST is
          SPTEST.STUB_DRIVER_MAJOR,
          0,
          RTEMS.NULL_ADDRESS,
-         RESULT,
          STATUS 
       );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "IO_INITIALIZE" );
diff --git a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb
index e6a3519e99..fe105cda1b 100644
--- a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb
+++ b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.adb
@@ -724,7 +724,6 @@ package body DUMMY_RTEMS is
       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
       ARGUMENT     : in     RTEMS.ADDRESS;
-      RETURN_VALUE :    out RTEMS.UNSIGNED32;
       RESULT       :    out RTEMS.STATUS_CODES
    ) is
    begin
@@ -737,7 +736,6 @@ package body DUMMY_RTEMS is
       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
       ARGUMENT     : in     RTEMS.ADDRESS;
-      RETURN_VALUE :    out RTEMS.UNSIGNED32;
       RESULT       :    out RTEMS.STATUS_CODES
    ) is
    begin
@@ -750,7 +748,6 @@ package body DUMMY_RTEMS is
       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
       ARGUMENT     : in     RTEMS.ADDRESS;
-      RETURN_VALUE :    out RTEMS.UNSIGNED32;
       RESULT       :    out RTEMS.STATUS_CODES
    ) is
    begin
@@ -763,7 +760,6 @@ package body DUMMY_RTEMS is
       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
       ARGUMENT     : in     RTEMS.ADDRESS;
-      RETURN_VALUE :    out RTEMS.UNSIGNED32;
       RESULT       :    out RTEMS.STATUS_CODES
    ) is
    begin
@@ -776,7 +772,6 @@ package body DUMMY_RTEMS is
       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
       ARGUMENT     : in     RTEMS.ADDRESS;
-      RETURN_VALUE :    out RTEMS.UNSIGNED32;
       RESULT       :    out RTEMS.STATUS_CODES
    ) is
    begin
@@ -789,7 +784,6 @@ package body DUMMY_RTEMS is
       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
       ARGUMENT     : in     RTEMS.ADDRESS;
-      RETURN_VALUE :    out RTEMS.UNSIGNED32;
       RESULT       :    out RTEMS.STATUS_CODES
    ) is
    begin
diff --git a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads
index ccad73c0ef..56f9486a83 100644
--- a/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads
+++ b/c/src/ada-tests/tmtests/tmoverhd/dummy_rtems.ads
@@ -434,7 +434,6 @@ package DUMMY_RTEMS is
       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
       ARGUMENT     : in     RTEMS.ADDRESS;
-      RETURN_VALUE :    out RTEMS.UNSIGNED32;
       RESULT       :    out RTEMS.STATUS_CODES
    );
 
@@ -442,7 +441,6 @@ package DUMMY_RTEMS is
       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
       ARGUMENT     : in     RTEMS.ADDRESS;
-      RETURN_VALUE :    out RTEMS.UNSIGNED32;
       RESULT       :    out RTEMS.STATUS_CODES
    );
 
@@ -450,7 +448,6 @@ package DUMMY_RTEMS is
       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
       ARGUMENT     : in     RTEMS.ADDRESS;
-      RETURN_VALUE :    out RTEMS.UNSIGNED32;
       RESULT       :    out RTEMS.STATUS_CODES
    );
 
@@ -458,7 +455,6 @@ package DUMMY_RTEMS is
       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
       ARGUMENT     : in     RTEMS.ADDRESS;
-      RETURN_VALUE :    out RTEMS.UNSIGNED32;
       RESULT       :    out RTEMS.STATUS_CODES
    );
 
@@ -466,7 +462,6 @@ package DUMMY_RTEMS is
       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
       ARGUMENT     : in     RTEMS.ADDRESS;
-      RETURN_VALUE :    out RTEMS.UNSIGNED32;
       RESULT       :    out RTEMS.STATUS_CODES
    );
 
@@ -474,7 +469,6 @@ package DUMMY_RTEMS is
       MAJOR        : in     RTEMS.DEVICE_MAJOR_NUMBER;
       MINOR        : in     RTEMS.DEVICE_MINOR_NUMBER;
       ARGUMENT     : in     RTEMS.ADDRESS;
-      RETURN_VALUE :    out RTEMS.UNSIGNED32;
       RESULT       :    out RTEMS.STATUS_CODES
    );