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.
This commit is contained in:
Joel Sherrill
2002-08-26 13:37:16 +00:00
parent 44c44c535a
commit 61cd8dbf19
2 changed files with 0 additions and 22 deletions

View File

@@ -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(

View File

@@ -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(