summaryrefslogtreecommitdiffstats
path: root/c/src/ada-tests
diff options
context:
space:
mode:
Diffstat (limited to 'c/src/ada-tests')
-rw-r--r--c/src/ada-tests/sptests/sp20/sp20.adb5
-rw-r--r--c/src/ada-tests/sptests/sp20/sptest.adb2
2 files changed, 2 insertions, 5 deletions
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(