From 61cd8dbf19ca6fa763da25dc5f541cfab8746f0c Mon Sep 17 00:00:00 2001
From: Joel Sherrill <joel.sherrill@OARcorp.com>
Date: Mon, 26 Aug 2002 13:37:16 +0000
Subject: 2002-08-26	Joel Sherrill <joel@OARcorp.com>

	* sptests/sp09/sptest.adb, sptests/sp21/sptest.adb: All RTEMS IO
	Manager directives take fewer arguments than these tests used.
---
 c/src/ada-tests/sptests/sp09/sptest.adb |  7 -------
 c/src/ada-tests/sptests/sp21/sptest.adb | 15 ---------------
 2 files changed, 22 deletions(-)

(limited to 'c')

diff --git a/c/src/ada-tests/sptests/sp09/sptest.adb b/c/src/ada-tests/sptests/sp09/sptest.adb
index 960b610f77..4888c19417 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
@@ -2660,7 +2659,6 @@ package body SPTEST is
          RTEMS.DEVICE_MAJOR_NUMBER'LAST,
          0,
          RTEMS.NULL_ADDRESS,
-         RESULT,
          STATUS
       );
       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
@@ -2674,7 +2672,6 @@ package body SPTEST is
          RTEMS.DEVICE_MAJOR_NUMBER'LAST,
          0,
          RTEMS.NULL_ADDRESS,
-         RESULT,
          STATUS
       );
       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
@@ -2690,7 +2687,6 @@ package body SPTEST is
          RTEMS.DEVICE_MAJOR_NUMBER'LAST,
          0,
          RTEMS.NULL_ADDRESS,
-         RESULT,
          STATUS
       );
       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
@@ -2706,7 +2702,6 @@ package body SPTEST is
          RTEMS.DEVICE_MAJOR_NUMBER'LAST,
          0,
          RTEMS.NULL_ADDRESS,
-         RESULT,
          STATUS
       );
       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
@@ -2720,7 +2715,6 @@ package body SPTEST is
          RTEMS.DEVICE_MAJOR_NUMBER'LAST,
          0,
          RTEMS.NULL_ADDRESS,
-         RESULT,
          STATUS
       );
       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
@@ -2734,7 +2728,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/sp21/sptest.adb b/c/src/ada-tests/sptests/sp21/sptest.adb
index 8ec76a7cf0..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
-      RETURN_VALUE : RTEMS.UNSIGNED32;
       STATUS       : RTEMS.STATUS_CODES;
    begin
 
@@ -86,7 +85,6 @@ package body SPTEST is
          SPTEST.NO_DRIVER_MAJOR,
          0,
          RTEMS.NULL_ADDRESS,
-         RETURN_VALUE,
          STATUS 
       );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "IO_INITIALIZE" );
@@ -98,7 +96,6 @@ package body SPTEST is
          SPTEST.NO_DRIVER_MAJOR,
          0,
          RTEMS.NULL_ADDRESS,
-         RETURN_VALUE,
          STATUS 
       );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "IO_OPEN" );
@@ -110,7 +107,6 @@ package body SPTEST is
          SPTEST.NO_DRIVER_MAJOR,
          0,
          RTEMS.NULL_ADDRESS,
-         RETURN_VALUE,
          STATUS 
       );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "IO_CLOSE" );
@@ -122,7 +118,6 @@ package body SPTEST is
          SPTEST.NO_DRIVER_MAJOR,
          0,
          RTEMS.NULL_ADDRESS,
-         RETURN_VALUE,
          STATUS 
       );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "IO_READ" );
@@ -134,7 +129,6 @@ package body SPTEST is
          SPTEST.NO_DRIVER_MAJOR,
          0,
          RTEMS.NULL_ADDRESS,
-         RETURN_VALUE,
          STATUS 
       );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "IO_WRITE" );
@@ -146,7 +140,6 @@ package body SPTEST is
          SPTEST.NO_DRIVER_MAJOR,
          0,
          RTEMS.NULL_ADDRESS,
-         RETURN_VALUE,
          STATUS 
       );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "IO_CONTROL" );
@@ -160,7 +153,6 @@ package body SPTEST is
          SPTEST.STUB_DRIVER_MAJOR,
          0,
          RTEMS.NULL_ADDRESS,
-         RETURN_VALUE,
          STATUS 
       );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "IO_INITIALIZE" );
@@ -172,7 +164,6 @@ package body SPTEST is
          SPTEST.STUB_DRIVER_MAJOR,
          0,
          RTEMS.NULL_ADDRESS,
-         RETURN_VALUE,
          STATUS 
       );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "IO_OPEN" );
@@ -184,7 +175,6 @@ package body SPTEST is
          SPTEST.STUB_DRIVER_MAJOR,
          0,
          RTEMS.NULL_ADDRESS,
-         RETURN_VALUE,
          STATUS 
       );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "IO_CLOSE" );
@@ -196,7 +186,6 @@ package body SPTEST is
          SPTEST.STUB_DRIVER_MAJOR,
          0,
          RTEMS.NULL_ADDRESS,
-         RETURN_VALUE,
          STATUS 
       );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "IO_READ" );
@@ -208,7 +197,6 @@ package body SPTEST is
          SPTEST.STUB_DRIVER_MAJOR,
          0,
          RTEMS.NULL_ADDRESS,
-         RETURN_VALUE,
          STATUS 
       );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "IO_WRITE" );
@@ -220,7 +208,6 @@ package body SPTEST is
          SPTEST.STUB_DRIVER_MAJOR,
          0,
          RTEMS.NULL_ADDRESS,
-         RETURN_VALUE,
          STATUS 
       );
       TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "IO_CONTROL" );
@@ -234,7 +221,6 @@ package body SPTEST is
          SPTEST.INVALID_DRIVER_MAJOR,
          0,
          RTEMS.NULL_ADDRESS,
-         RETURN_VALUE,
          STATUS 
       );
       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( 
@@ -250,7 +236,6 @@ package body SPTEST is
          SPTEST.INVALID_DRIVER_MAJOR,
          0,
          RTEMS.NULL_ADDRESS,
-         RETURN_VALUE,
          STATUS 
       );
       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( 
-- 
cgit v1.2.3