diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 19:18:15 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 19:18:15 +0000 |
commit | d6a9988d25e9e6344f0142d80631bf582df11c0a (patch) | |
tree | 791e8377086d23bfc8cef9b30f0d6d6bab4c035e /c/src/ada-tests | |
parent | Changed attribute of Initialization Task to Floating_Point (diff) | |
download | rtems-d6a9988d25e9e6344f0142d80631bf582df11c0a.tar.bz2 |
Changed mode and priority of initialization task.
Diffstat (limited to 'c/src/ada-tests')
-rw-r--r-- | c/src/ada-tests/sptests/sp20/sp20.adb | 5 | ||||
-rw-r--r-- | c/src/ada-tests/sptests/sp20/sptest.adb | 2 |
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( |