Changeset f2078ec in rtems for c/src/ada-tests/sptests/sp09
- Timestamp:
- 06/03/97 00:13:05 (27 years ago)
- Branches:
- 4.10, 4.11, 4.8, 4.9, 5, master
- Children:
- e56a2ef
- Parents:
- 8e7b810
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
c/src/ada-tests/sptests/sp09/sp09.adb
r8e7b810 rf2078ec 21 21 -- 22 22 23 with RTEMS; 23 24 with SPTEST; 25 with TEST_SUPPORT; 24 26 25 27 procedure SP09 is 28 INIT_ID : RTEMS.ID; 29 STATUS : RTEMS.STATUS_CODES; 26 30 begin 27 31 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; 29 55 30 56 end SP09;
Note: See TracChangeset
for help on using the changeset viewer.