Changeset 3a23218 in rtems
- Timestamp:
- 12/14/09 21:28:54 (14 years ago)
- Branches:
- 4.10, 4.11, 5, master
- Children:
- 9db18dd
- Parents:
- 110e1f1
- Location:
- c/src/ada-tests
- Files:
-
- 36 edited
Legend:
- Unmodified
- Added
- Removed
-
c/src/ada-tests/ChangeLog
r110e1f1 r3a23218 1 2009-12-14 Joel Sherrill <joel.sherrill@oarcorp.com> 2 3 * mptests/mp01/node1/mp01_node1.adb, mptests/mp01/node2/mp01_node2.adb, 4 mptests/mp02/node1/mp02_node1.adb, mptests/mp02/node2/mp02_node2.adb, 5 mptests/mp03/node1/mp03_node1.adb, mptests/mp03/node2/mp03_node2.adb, 6 mptests/mp04/node1/mp04_node1.adb, mptests/mp04/node2/mp04_node2.adb, 7 mptests/mp05/mptest.adb, mptests/mp05/node1/mp05_node1.adb, 8 mptests/mp05/node2/mp05_node2.adb, mptests/mp06/node1/mp06_node1.adb, 9 mptests/mp06/node2/mp06_node2.adb, mptests/mp07/node1/mp07_node1.adb, 10 mptests/mp07/node2/mp07_node2.adb, mptests/mp08/node1/mp08_node1.adb, 11 mptests/mp08/node2/mp08_node2.adb, mptests/mp09/node1/mp09_node1.adb, 12 mptests/mp09/node2/mp09_node2.adb, mptests/mp10/node1/mp10_node1.adb, 13 mptests/mp10/node2/mp10_node2.adb, mptests/mp11/node1/mp11_node1.adb, 14 mptests/mp11/node2/mp11_node2.adb, mptests/mp12/node1/mp12_node1.adb, 15 mptests/mp12/node2/mp12_node2.adb, mptests/mp13/node1/mp13_node1.adb, 16 mptests/mp13/node2/mp13_node2.adb, mptests/mp14/mptest.adb, 17 mptests/mp14/node1/mp14_node1.adb, mptests/mp14/node2/mp14_node2.adb, 18 sptests/sp09/sptest.adb, sptests/sp11/sptest.adb, 19 sptests/sp13/sptest.adb, sptests/sp16/sptest.adb, 20 support/test_support.adb: Lines are now all less than 80 columns. 21 1 22 2009-12-14 Joel Sherrill <joel.sherrill@oarcorp.com> 2 23 -
c/src/ada-tests/mptests/mp01/node1/mp01_node1.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP01_NODE1 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP01_NODE1 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp01/node2/mp01_node2.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP01_NODE2 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP01_NODE2 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp02/node1/mp02_node1.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP02_NODE1 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP02_NODE1 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp02/node2/mp02_node2.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP02_NODE2 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP02_NODE2 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp03/node1/mp03_node1.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP03_NODE1 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP03_NODE1 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp03/node2/mp03_node2.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP03_NODE2 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP03_NODE2 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp04/node1/mp04_node1.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP04_NODE1 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP04_NODE1 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp04/node2/mp04_node2.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP04_NODE2 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP04_NODE2 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp05/mptest.adb
r110e1f1 r3a23218 205 205 exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS ); 206 206 207 exit when not RTEMS.ARE_STATUSES_EQUAL( STATUS, RTEMS.NOT_DEFINED);207 exit when not RTEMS.ARE_STATUSES_EQUAL(STATUS, RTEMS.NOT_DEFINED); 208 208 209 209 end loop; -
c/src/ada-tests/mptests/mp05/node1/mp05_node1.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP05_NODE1 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP05_NODE1 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp05/node2/mp05_node2.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP05_NODE2 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP05_NODE2 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp06/node1/mp06_node1.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP06_NODE1 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP06_NODE1 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp06/node2/mp06_node2.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP06_NODE2 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP06_NODE2 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp07/node1/mp07_node1.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP07_NODE1 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP07_NODE1 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp07/node2/mp07_node2.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP07_NODE2 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP07_NODE2 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp08/node1/mp08_node1.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP08_NODE1 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP08_NODE1 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp08/node2/mp08_node2.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP08_NODE2 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP08_NODE2 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp09/node1/mp09_node1.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP09_NODE1 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP09_NODE1 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp09/node2/mp09_node2.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP09_NODE2 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP09_NODE2 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp10/node1/mp10_node1.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP10_NODE1 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP10_NODE1 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp10/node2/mp10_node2.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP10_NODE2 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP10_NODE2 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp11/node1/mp11_node1.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP11_NODE1 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP11_NODE1 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp11/node2/mp11_node2.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP11_NODE2 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP11_NODE2 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp12/node1/mp12_node1.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP12_NODE1 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP12_NODE1 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp12/node2/mp12_node2.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP12_NODE2 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP12_NODE2 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp13/node1/mp13_node1.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP13_NODE1 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP13_NODE1 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp13/node2/mp13_node2.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP13_NODE2 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP13_NODE2 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp14/mptest.adb
r110e1f1 r3a23218 59 59 begin 60 60 61 RTEMS.TASK_MODE( RTEMS.NO_PREEMPT, RTEMS.PREEMPT_MASK, OLD_MODE, STATUS);61 RTEMS.TASK_MODE(RTEMS.NO_PREEMPT, RTEMS.PREEMPT_MASK, OLD_MODE, STATUS); 62 62 TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_MODE" ); 63 63 … … 102 102 RTEMS.TIMER_FIRE_AFTER( 103 103 MPTEST.STOP_TIMER_ID, 104 TEST_SUPPORT.MAXIMUM_LONG_TEST_DURATION * TEST_SUPPORT.TICKS_PER_SECOND, 104 TEST_SUPPORT.MAXIMUM_LONG_TEST_DURATION * 105 TEST_SUPPORT.TICKS_PER_SECOND, 105 106 MPTEST.STOP_TEST_TSR'ACCESS, 106 107 RTEMS.NULL_ADDRESS, -
c/src/ada-tests/mptests/mp14/node1/mp14_node1.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP14_NODE1 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP14_NODE1 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/mptests/mp14/node2/mp14_node2.adb
r110e1f1 r3a23218 4 4 -- DESCRIPTION: 5 5 -- 6 -- This is the entry point for Test MP14_NODE2 of the Single Processor Test Suite. 6 -- This is the entry point for Test MP14_NODE2 of the Multiprocessor 7 -- Test Suite. 7 8 -- 8 9 -- DEPENDENCIES: -
c/src/ada-tests/sptests/sp09/sptest.adb
r110e1f1 r3a23218 1324 1324 "MESSAGE_QUEUE_GET_NUMBER_PENDING WITH ILLEGAL ID" 1325 1325 ); 1326 TEXT_IO.PUT_LINE( "TA1 - message_queue_get_number_pending - INVALID_ID");1326 TEXT_IO.PUT_LINE("TA1 - message_queue_get_number_pending - INVALID_ID"); 1327 1327 1328 1328 RTEMS.MESSAGE_QUEUE_FLUSH( 100, COUNT, STATUS ); -
c/src/ada-tests/sptests/sp11/sptest.adb
r110e1f1 r3a23218 673 673 674 674 TEXT_IO.PUT_LINE( 675 675 "TA2 - event_receive - waiting forever on EVENT_17 or EVENT_18 - EVENT_ANY" 676 676 ); 677 677 RTEMS.EVENT_RECEIVE( -
c/src/ada-tests/sptests/sp13/sptest.adb
r110e1f1 r3a23218 617 617 STATUS 618 618 ); 619 TEST_SUPPORT.DIRECTIVE_FAILED( status, "message_queue_create of Q1");619 TEST_SUPPORT.DIRECTIVE_FAILED(status, "message_queue_create of Q1"); 620 620 621 621 BIG_SEND_BUFFER := (others => CHARACTER'POS( 'A' )); … … 667 667 668 668 if (BIG_SEND_BUFFER( BIG_SEND_BUFFER'FIRST .. Integer( SIZE )) /= 669 BIG_RECEIVE_BUFFER( BIG_RECEIVE_BUFFER'FIRST .. Integer( SIZE ))) then 669 BIG_RECEIVE_BUFFER( BIG_RECEIVE_BUFFER'FIRST .. Integer( SIZE ))) 670 then 670 671 TEXT_IO.PUT_LINE("TA1 - exact size data match failed"); 671 672 end if; -
c/src/ada-tests/sptests/sp16/sptest.adb
r110e1f1 r3a23218 520 520 ); 521 521 PUT_ADDRESS_FROM_AREA_4( segment_address_1 ); 522 RTEMS.REGION_RETURN_SEGMENT( SPTEST.REGION_ID( 4 ), segment_address_1, STATUS ); 522 RTEMS.REGION_RETURN_SEGMENT( 523 SPTEST.REGION_ID( 4 ), segment_address_1, STATUS ); 523 524 TEST_SUPPORT.DIRECTIVE_FAILED( status, "region_return_segment" ); 524 525 TEXT_IO.NEW_LINE; … … 528 529 ); 529 530 PUT_ADDRESS_FROM_AREA_4( segment_address_3 ); 530 RTEMS.REGION_RETURN_SEGMENT( SPTEST.REGION_ID( 4 ), segment_address_3, STATUS ); 531 RTEMS.REGION_RETURN_SEGMENT( 532 SPTEST.REGION_ID( 4 ), segment_address_3, STATUS ); 531 533 TEST_SUPPORT.DIRECTIVE_FAILED( status, "region_return_segment" ); 532 534 TEXT_IO.NEW_LINE; -
c/src/ada-tests/support/test_support.adb
r110e1f1 r3a23218 132 132 -- Text_IO.Get_Line( Ignored_String, Ignored_Last ); 133 133 134 -- exception135 136 -- when Text_IO.End_Error =>137 -- -- ignore this error. It happens when redirecting input from /dev/null138 -- return;139 140 134 end Pause; 141 135 … … 160 154 -- Text_IO.Get_Line( Ignored_String, Ignored_Last ); 161 155 162 -- exception163 164 -- when Text_IO.End_Error =>165 -- -- ignore this error. It happens when redirecting input from /dev/null166 -- return;167 168 156 end Pause_And_Screen_Number; 169 157 … … 208 196 -- probably OK 209 197 return RTEMS.Get_Index( TID ) - 1; 210 -- Ignoring this component.211 -- - RTEMS.Configuration.RTEMS_API_Configuration.Number_Of_Initialization_Tasks;212 198 213 199 end Task_Number;
Note: See TracChangeset
for help on using the changeset viewer.