summaryrefslogtreecommitdiffstats
path: root/c/src/ada-tests/sptests/sp21/sptest.adb
diff options
context:
space:
mode:
authorJoel Sherrill <joel.sherrill@OARcorp.com>2002-08-26 13:37:16 +0000
committerJoel Sherrill <joel.sherrill@OARcorp.com>2002-08-26 13:37:16 +0000
commit61cd8dbf19ca6fa763da25dc5f541cfab8746f0c (patch)
tree95d57f397eef5bba58f1dfed56c57d10bd74bc5a /c/src/ada-tests/sptests/sp21/sptest.adb
parent2002-08-21 Joel Sherrill <joel@OARcorp.com> (diff)
downloadrtems-61cd8dbf19ca6fa763da25dc5f541cfab8746f0c.tar.bz2
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.
Diffstat (limited to '')
-rw-r--r--c/src/ada-tests/sptests/sp21/sptest.adb15
1 files changed, 0 insertions, 15 deletions
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(