Changeset f2078ec in rtems for c/src/ada-tests/sptests/sp09


Ignore:
Timestamp:
06/03/97 00:13:05 (27 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.8, 4.9, 5, master
Children:
e56a2ef
Parents:
8e7b810
Message:

New style main procedure which creates the test's RTEMS initialization task
as an RTEMS task. This avoid problems resulting from differences in the
tasking mode/priority of Ada tasks from the typical way an RTEMS initialization
task is created.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada-tests/sptests/sp09/sp09.adb

    r8e7b810 rf2078ec  
    2121--
    2222
     23with RTEMS;
    2324with SPTEST;
     25with TEST_SUPPORT;
    2426
    2527procedure SP09 is
     28  INIT_ID : RTEMS.ID;
     29  STATUS  : RTEMS.STATUS_CODES;
    2630begin
    2731
    28   SPTEST.INIT( 0 );
     32   RTEMS.TASK_CREATE(
     33      RTEMS.BUILD_NAME(  'I', 'N', 'I', 'T' ),
     34      1,
     35      RTEMS.MINIMUM_STACK_SIZE,
     36      RTEMS.NO_PREEMPT,
     37      RTEMS.DEFAULT_ATTRIBUTES,
     38      INIT_ID,
     39      STATUS
     40   );
     41   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
     42
     43
     44   RTEMS.TASK_START(
     45      INIT_ID,
     46      SPTEST.INIT'ACCESS,
     47      0,
     48      STATUS
     49   );
     50   TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF INIT" );
     51
     52   loop
     53      delay 120.0;
     54   end loop;
    2955
    3056end SP09;
Note: See TracChangeset for help on using the changeset viewer.