From d6a9988d25e9e6344f0142d80631bf582df11c0a Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Tue, 3 Jun 1997 19:18:15 +0000 Subject: Changed mode and priority of initialization task. --- c/src/ada-tests/sptests/sp20/sp20.adb | 5 ++--- c/src/ada-tests/sptests/sp20/sptest.adb | 2 -- 2 files changed, 2 insertions(+), 5 deletions(-) (limited to 'c/src/ada-tests') diff --git a/c/src/ada-tests/sptests/sp20/sp20.adb b/c/src/ada-tests/sptests/sp20/sp20.adb index d22c20752b..0bb685dc1d 100644 --- a/c/src/ada-tests/sptests/sp20/sp20.adb +++ b/c/src/ada-tests/sptests/sp20/sp20.adb @@ -31,16 +31,15 @@ begin RTEMS.TASK_CREATE( RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ), - 1, + 10, RTEMS.MINIMUM_STACK_SIZE, - RTEMS.NO_PREEMPT, + RTEMS.DEFAULT_MODES, RTEMS.DEFAULT_ATTRIBUTES, INIT_ID, STATUS ); TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" ); - RTEMS.TASK_START( INIT_ID, SPTEST.INIT'ACCESS, diff --git a/c/src/ada-tests/sptests/sp20/sptest.adb b/c/src/ada-tests/sptests/sp20/sptest.adb index 1165c87ca8..c12bef23c0 100644 --- a/c/src/ada-tests/sptests/sp20/sptest.adb +++ b/c/src/ada-tests/sptests/sp20/sptest.adb @@ -37,7 +37,6 @@ package body SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ) is - INDEX : RTEMS.UNSIGNED32; STATUS : RTEMS.STATUS_CODES; begin @@ -249,7 +248,6 @@ package body SPTEST is is PREVIOUS_MODE : RTEMS.MODE; STATUS : RTEMS.STATUS_CODES; - INDEX : RTEMS.UNSIGNED32; begin RTEMS.TASK_MODE( -- cgit v1.2.3