diff options
author | Ralf Corsepius <ralf.corsepius@rtems.org> | 2002-08-27 06:57:46 +0000 |
---|---|---|
committer | Ralf Corsepius <ralf.corsepius@rtems.org> | 2002-08-27 06:57:46 +0000 |
commit | a846105767b6f8368babbffd056891c400dae100 (patch) | |
tree | 7f2746c26a13b08e2a46ac20c462a9397a7c143c /c/src/ada-tests/sptests/sp09/sptest.adb | |
parent | 2002-08-26 Joel Sherrill <joel@OARcorp.com> (diff) | |
download | rtems-a846105767b6f8368babbffd056891c400dae100.tar.bz2 |
2002-08-27 Ralf Corsepius <corsepiu@faw.uni-ulm.de>
* sptests/sp09/sptest.adb: Add Result to SCREEN_13.
Remove Status from TASK_1.
* sptests/sp21/sptest.adb: Add Result to TASK_1.
* tmtests/tm20/tmtest.adb: Remove various RETURN_VALUEs.
* ada.am: Remove ADACOMPILE, ADAC. Add AM_LDFLAGS, LDFLAGS.
* configure.ac: Check for m4. Abort if HAS_GNAT = no.
Diffstat (limited to '')
-rw-r--r-- | c/src/ada-tests/sptests/sp09/sptest.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/c/src/ada-tests/sptests/sp09/sptest.adb b/c/src/ada-tests/sptests/sp09/sptest.adb index 4888c19417..da3b66f92f 100644 --- a/c/src/ada-tests/sptests/sp09/sptest.adb +++ b/c/src/ada-tests/sptests/sp09/sptest.adb @@ -2651,6 +2651,7 @@ package body SPTEST is procedure SCREEN_13 is + RESULT : RTEMS.Unsigned32; TIME : RTEMS.TIME_OF_DAY; STATUS : RTEMS.STATUS_CODES; begin @@ -2687,6 +2688,7 @@ package body SPTEST is RTEMS.DEVICE_MAJOR_NUMBER'LAST, 0, RTEMS.NULL_ADDRESS, + RESULT, STATUS ); TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( @@ -3024,7 +3026,6 @@ package body SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ) is - STATUS : RTEMS.STATUS_CODES; begin SPTEST.SCREEN_1; |