Changeset 4b067069 in rtems for c/src/ada-tests/tmtests
- Timestamp:
- 06/03/97 21:27:16 (25 years ago)
- Branches:
- 4.10, 4.11, 4.8, 4.9, 5, master
- Children:
- 9db72b4
- Parents:
- b4be04e
- Location:
- c/src/ada-tests/tmtests
- Files:
-
- 28 edited
Legend:
- Unmodified
- Added
- Removed
-
c/src/ada-tests/tmtests/tm02/tm02.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM02 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 TM02 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 TM02; 57 -
c/src/ada-tests/tmtests/tm03/tm03.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM03 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 TM03 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 TM03; 57 -
c/src/ada-tests/tmtests/tm04/tm04.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM04 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 TM04 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 TM04; 57 -
c/src/ada-tests/tmtests/tm05/tm05.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM05 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 TM05 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 TM05; 57 -
c/src/ada-tests/tmtests/tm06/tm06.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM06 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 TM06 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 TM06; 57 -
c/src/ada-tests/tmtests/tm07/tm07.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM07 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 TM07 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 TM07; 57 -
c/src/ada-tests/tmtests/tm08/tm08.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM08 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 TM08 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 TM08; 57 -
c/src/ada-tests/tmtests/tm09/tm09.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM09 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 TM09 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 TM09; 57 -
c/src/ada-tests/tmtests/tm10/tm10.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM10 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 TM10 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 TM10; 57 -
c/src/ada-tests/tmtests/tm11/tm11.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM11 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 TM11 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 TM11; 57 -
c/src/ada-tests/tmtests/tm12/tm12.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM12 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 TM12 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 TM12; 57 -
c/src/ada-tests/tmtests/tm13/tm13.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM13 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 TM13 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 TM13; 57 -
c/src/ada-tests/tmtests/tm14/tm14.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM14 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 TM14 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 TM14; 57 -
c/src/ada-tests/tmtests/tm15/tm15.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM15 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 TM15 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 TM15; 57 -
c/src/ada-tests/tmtests/tm16/tm16.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM16 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 TM16 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 TM16; 57 -
c/src/ada-tests/tmtests/tm17/tm17.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM17 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 TM17 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 TM17; 57 -
c/src/ada-tests/tmtests/tm18/tm18.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM18 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 TM18 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 TM18; 57 -
c/src/ada-tests/tmtests/tm19/tm19.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM19 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 TM19 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 TM19; 57 -
c/src/ada-tests/tmtests/tm20/tm20.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM20 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 TM20 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 TM20; 57 -
c/src/ada-tests/tmtests/tm21/tm21.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM21 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 TM21 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 TM21; 57 -
c/src/ada-tests/tmtests/tm22/tm22.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM22 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 TM22 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 TM22; 57 -
c/src/ada-tests/tmtests/tm23/tm23.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM23 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 TM23 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 TM23; 57 -
c/src/ada-tests/tmtests/tm24/tm24.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM24 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 TM24 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 TM24; 57 -
c/src/ada-tests/tmtests/tm25/tm25.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM25 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 TM25 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 TM25; 57 -
c/src/ada-tests/tmtests/tm26/tm26.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM26 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 TM26 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 TM26; 57 -
c/src/ada-tests/tmtests/tm27/tm27.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM27 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 TM27 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 TM27; 57 -
c/src/ada-tests/tmtests/tm28/tm28.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM28 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 TM28 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 TM28; 57 -
c/src/ada-tests/tmtests/tm29/tm29.adb
rb4be04e r4b067069 1 -- 2 -- MAIN / BODY 3 -- 4 -- DESCRIPTION: 5 -- 6 -- This is the entry point for Test TM29 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 TM29 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 TM29; 57
Note: See TracChangeset
for help on using the changeset viewer.