Changeset 43437e97 in rtems for c/src/ada-tests/tmtests
- Timestamp:
- 06/03/97 20:20:10 (25 years ago)
- Branches:
- 4.10, 4.11, 4.8, 4.9, 5, master
- Children:
- b67e6ec
- Parents:
- f222e9d4
- Location:
- c/src/ada-tests/tmtests/tm01
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
c/src/ada-tests/tmtests/tm01/tm01.adb
rf222e9d4 r43437e97 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM01 of the Single Processor Test Suite. 7 -- 8 -- DEPENDENCIES: 9 -- 10 -- 11 -- 12 -- COPYRIGHT (c) 1989-1997. 13 -- On-Line Applications Research Corporation (OAR). 14 -- Copyright assigned to U.S. Government, 1994. 15 -- 16 -- The license and distribution terms for this file may in 17 -- the file LICENSE in this distribution or at 18 -- http://www.OARcorp.com/rtems/license.html. 19 -- 20 -- $Id$ 21 -- 22 23 with RTEMS; 24 with TMTEST; 25 with TEST_SUPPORT; 26 27 procedure TM01 is 28 INIT_ID : RTEMS.ID; 29 STATUS : RTEMS.STATUS_CODES; 30 begin 31 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 TMTEST.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; 55 56 end TM01; 57
Note: See TracChangeset
for help on using the changeset viewer.