Changeset 3c4d8cd1 in rtems for c/src/ada-tests/mptests/mp12
- Timestamp:
- 02/16/11 15:53:16 (13 years ago)
- Branches:
- 4.11, 5, master
- Children:
- 0f7b6eff
- Parents:
- 1987020
- Location:
- c/src/ada-tests/mptests/mp12
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
c/src/ada-tests/mptests/mp12/mptest.adb
r1987020 r3c4d8cd1 11 11 -- 12 12 -- 13 -- COPYRIGHT (c) 1989- 1997.13 -- COPYRIGHT (c) 1989-2011. 14 14 -- On-Line Applications Research Corporation (OAR). 15 15 -- … … 23 23 with INTERFACES; use INTERFACES; 24 24 with RTEMS; 25 with RTEMS.PARTITION; 26 with RTEMS.TASKS; 25 27 with TEST_SUPPORT; 26 28 with TEXT_IO; … … 29 31 package body MPTEST is 30 32 31 --PAGE32 33 -- 33 34 -- INIT … … 35 36 36 37 procedure INIT ( 37 ARGUMENT : in RTEMS.TASK _ARGUMENT38 ARGUMENT : in RTEMS.TASKS.ARGUMENT 38 39 ) is 39 40 BUFFER_ADDRESS : RTEMS.ADDRESS; … … 58 59 if TEST_SUPPORT.NODE = 2 then 59 60 60 RTEMS.TASK _WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );61 RTEMS.TASKS.WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS ); 61 62 TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" ); 62 63 … … 65 66 loop 66 67 67 RTEMS.PARTITION _IDENT(68 RTEMS.PARTITION.IDENT( 68 69 MPTEST.PARTITION_NAME( 1 ), 69 70 RTEMS.SEARCH_ALL_NODES, … … 80 81 ); 81 82 82 RTEMS.PARTITION _DELETE( MPTEST.PARTITION_ID( 1 ), STATUS );83 RTEMS.PARTITION.DELETE( MPTEST.PARTITION_ID( 1 ), STATUS ); 83 84 TEST_SUPPORT.FATAL_DIRECTIVE_STATUS( 84 85 STATUS, … … 93 94 TEXT_IO.PUT_LINE( "Obtaining a buffer from the global partition" ); 94 95 95 RTEMS.PARTITION _GET_BUFFER(96 RTEMS.PARTITION.GET_BUFFER( 96 97 MPTEST.PARTITION_ID( 1 ), 97 98 BUFFER_ADDRESS, … … 107 108 TEXT_IO.NEW_LINE; 108 109 109 RTEMS.PARTITION _RETURN_BUFFER(110 RTEMS.PARTITION.RETURN_BUFFER( 110 111 MPTEST.PARTITION_ID( 1 ), 111 112 BUFFER_ADDRESS, … … 114 115 TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_RETURN_BUFFER" ); 115 116 116 RTEMS.TASK _WAKE_AFTER( 2 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );117 RTEMS.TASKS.WAKE_AFTER( 2 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS ); 117 118 TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" ); 118 119 … … 120 121 121 122 TEXT_IO.PUT_LINE( "Creating Partition (Global)" ); 122 RTEMS.PARTITION _CREATE(123 RTEMS.PARTITION.CREATE( 123 124 MPTEST.PARTITION_NAME( 1 ), 124 125 MPTEST.PARTITION_AREA( 0 )'ADDRESS, … … 132 133 133 134 TEXT_IO.PUT_LINE( "Sleeping for three seconds" ); 134 RTEMS.TASK _WAKE_AFTER( 3 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );135 RTEMS.TASKS.WAKE_AFTER( 3 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS ); 135 136 TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" ); 136 137 137 138 TEXT_IO.PUT_LINE( "Deleting Partition (Global)" ); 138 RTEMS.PARTITION _DELETE( MPTEST.PARTITION_ID( 1 ), STATUS );139 RTEMS.PARTITION.DELETE( MPTEST.PARTITION_ID( 1 ), STATUS ); 139 140 TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_DELETE" ); 140 141 -
c/src/ada-tests/mptests/mp12/mptest.ads
r1987020 r3c4d8cd1 11 11 -- 12 12 -- 13 -- COPYRIGHT (c) 1989- 1997.13 -- COPYRIGHT (c) 1989-2011. 14 14 -- On-Line Applications Research Corporation (OAR). 15 15 -- … … 22 22 23 23 with RTEMS; 24 with RTEMS.TASKS; 24 25 25 26 package MPTEST is … … 64 65 65 66 procedure INIT ( 66 ARGUMENT : in RTEMS.TASK _ARGUMENT67 ARGUMENT : in RTEMS.TASKS.ARGUMENT 67 68 ); 68 69 pragma Convention (C, INIT); -
c/src/ada-tests/mptests/mp12/node1/mp12_node1.adb
r1987020 r3c4d8cd1 11 11 -- 12 12 -- 13 -- COPYRIGHT (c) 1989-20 07.13 -- COPYRIGHT (c) 1989-2011. 14 14 -- On-Line Applications Research Corporation (OAR). 15 15 -- … … 22 22 23 23 with RTEMS; 24 with RTEMS.TASKS; 24 25 with MPTEST; 25 26 with TEST_SUPPORT; … … 30 31 begin 31 32 32 RTEMS.TASK _CREATE(33 RTEMS.TASKS.CREATE( 33 34 RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ), 34 35 1, … … 42 43 43 44 44 RTEMS.TASK _START(45 RTEMS.TASKS.START( 45 46 INIT_ID, 46 47 MPTEST.INIT'ACCESS, -
c/src/ada-tests/mptests/mp12/node2/mp12_node2.adb
r1987020 r3c4d8cd1 11 11 -- 12 12 -- 13 -- COPYRIGHT (c) 1989-20 07.13 -- COPYRIGHT (c) 1989-2011. 14 14 -- On-Line Applications Research Corporation (OAR). 15 15 -- … … 22 22 23 23 with RTEMS; 24 with RTEMS.TASKS; 24 25 with MPTEST; 25 26 with TEST_SUPPORT; … … 30 31 begin 31 32 32 RTEMS.TASK _CREATE(33 RTEMS.TASKS.CREATE( 33 34 RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ), 34 35 1, … … 42 43 43 44 44 RTEMS.TASK _START(45 RTEMS.TASKS.START( 45 46 INIT_ID, 46 47 MPTEST.INIT'ACCESS,
Note: See TracChangeset
for help on using the changeset viewer.