RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

Changed mode and priority of initialization task.

Browse Source
This commit is contained in:
Joel Sherrill
1997-06-03 19:18:15 +00:00
parent 5687a1e90d
commit d6a9988d25
2 changed files with 2 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
c/src/ada-tests/sptests/sp20/sp20.adb
View File

@@ -31,16 +31,15 @@ begin
RTEMS.TASK_CREATE( RTEMS.TASK_CREATE(
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ), RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
1, 10,
RTEMS.MINIMUM_STACK_SIZE, RTEMS.MINIMUM_STACK_SIZE,
RTEMS.NO_PREEMPT, RTEMS.DEFAULT_MODES,
RTEMS.DEFAULT_ATTRIBUTES, RTEMS.DEFAULT_ATTRIBUTES,
INIT_ID, INIT_ID,
STATUS STATUS
); );
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" ); TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
RTEMS.TASK_START( RTEMS.TASK_START(
INIT_ID, INIT_ID,
SPTEST.INIT'ACCESS, SPTEST.INIT'ACCESS,

2
c/src/ada-tests/sptests/sp20/sptest.adb
View File

@@ -37,7 +37,6 @@ package body SPTEST is
procedure INIT ( procedure INIT (
ARGUMENT : in RTEMS.TASK_ARGUMENT ARGUMENT : in RTEMS.TASK_ARGUMENT
) is ) is
INDEX : RTEMS.UNSIGNED32;
STATUS : RTEMS.STATUS_CODES; STATUS : RTEMS.STATUS_CODES;
begin begin
@@ -249,7 +248,6 @@ package body SPTEST is
is is
PREVIOUS_MODE : RTEMS.MODE; PREVIOUS_MODE : RTEMS.MODE;
STATUS : RTEMS.STATUS_CODES; STATUS : RTEMS.STATUS_CODES;
INDEX : RTEMS.UNSIGNED32;
begin begin
RTEMS.TASK_MODE( RTEMS.TASK_MODE(