From a846105767b6f8368babbffd056891c400dae100 Mon Sep 17 00:00:00 2001 From: Ralf Corsepius Date: Tue, 27 Aug 2002 06:57:46 +0000 Subject: 2002-08-27 Ralf Corsepius * 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. --- c/src/ada-tests/sptests/sp09/sptest.adb | 3 ++- c/src/ada-tests/sptests/sp21/sptest.adb | 4 ++++ 2 files changed, 6 insertions(+), 1 deletion(-) (limited to 'c/src/ada-tests/sptests') 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; diff --git a/c/src/ada-tests/sptests/sp21/sptest.adb b/c/src/ada-tests/sptests/sp21/sptest.adb index 006e75f396..1174c0d5e1 100644 --- a/c/src/ada-tests/sptests/sp21/sptest.adb +++ b/c/src/ada-tests/sptests/sp21/sptest.adb @@ -76,6 +76,7 @@ package body SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ) is + RESULT : RTEMS.Unsigned32; STATUS : RTEMS.STATUS_CODES; begin @@ -85,6 +86,7 @@ package body SPTEST is SPTEST.NO_DRIVER_MAJOR, 0, RTEMS.NULL_ADDRESS, + RESULT, STATUS ); TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "IO_INITIALIZE" ); @@ -153,6 +155,7 @@ package body SPTEST is SPTEST.STUB_DRIVER_MAJOR, 0, RTEMS.NULL_ADDRESS, + RESULT, STATUS ); TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "IO_INITIALIZE" ); @@ -221,6 +224,7 @@ package body SPTEST is SPTEST.INVALID_DRIVER_MAJOR, 0, RTEMS.NULL_ADDRESS, + RESULT, STATUS ); TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( -- cgit v1.2.3