RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

2009-12-14 Joel Sherrill <joel.sherrill@oarcorp.com>

Browse Source 
* mptests/mp01/node1/mp01_node1.adb, mptests/mp01/node2/mp01_node2.adb,
	mptests/mp02/node1/mp02_node1.adb, mptests/mp02/node2/mp02_node2.adb,
	mptests/mp03/node1/mp03_node1.adb, mptests/mp03/node2/mp03_node2.adb,
	mptests/mp04/node1/mp04_node1.adb, mptests/mp04/node2/mp04_node2.adb,
	mptests/mp05/mptest.adb, mptests/mp05/node1/mp05_node1.adb,
	mptests/mp05/node2/mp05_node2.adb, mptests/mp06/node1/mp06_node1.adb,
	mptests/mp06/node2/mp06_node2.adb, mptests/mp07/node1/mp07_node1.adb,
	mptests/mp07/node2/mp07_node2.adb, mptests/mp08/node1/mp08_node1.adb,
	mptests/mp08/node2/mp08_node2.adb, mptests/mp09/node1/mp09_node1.adb,
	mptests/mp09/node2/mp09_node2.adb, mptests/mp10/node1/mp10_node1.adb,
	mptests/mp10/node2/mp10_node2.adb, mptests/mp11/node1/mp11_node1.adb,
	mptests/mp11/node2/mp11_node2.adb, mptests/mp12/node1/mp12_node1.adb,
	mptests/mp12/node2/mp12_node2.adb, mptests/mp13/node1/mp13_node1.adb,
	mptests/mp13/node2/mp13_node2.adb, mptests/mp14/mptest.adb,
	mptests/mp14/node1/mp14_node1.adb, mptests/mp14/node2/mp14_node2.adb,
	sptests/sp09/sptest.adb, sptests/sp11/sptest.adb,
	sptests/sp13/sptest.adb, sptests/sp16/sptest.adb,
	support/test_support.adb: Lines are now all less than 80 columns.
This commit is contained in:
Joel Sherrill
2009-12-14 21:28:54 +00:00
parent 110e1f1dfe
commit 3a23218a74
36 changed files with 90 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
c/src/ada-tests/sptests/sp09/sptest.adb
View File

@@ -1323,7 +1323,7 @@ package body SPTEST is
RTEMS.INVALID_ID,
"MESSAGE_QUEUE_GET_NUMBER_PENDING WITH ILLEGAL ID"
);
TEXT_IO.PUT_LINE( "TA1 - message_queue_get_number_pending - INVALID_ID" );
TEXT_IO.PUT_LINE("TA1 - message_queue_get_number_pending - INVALID_ID");
RTEMS.MESSAGE_QUEUE_FLUSH( 100, COUNT, STATUS );
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(

2
c/src/ada-tests/sptests/sp11/sptest.adb
View File

@@ -672,7 +672,7 @@ package body SPTEST is
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND of 14 and 15" );
TEXT_IO.PUT_LINE(
"TA2 - event_receive - waiting forever on EVENT_17 or EVENT_18 - EVENT_ANY"
"TA2 - event_receive - waiting forever on EVENT_17 or EVENT_18 - EVENT_ANY"
);
RTEMS.EVENT_RECEIVE(
RTEMS.EVENT_17 + RTEMS.EVENT_18,

5
c/src/ada-tests/sptests/sp13/sptest.adb
View File

@@ -616,7 +616,7 @@ TEST_SUPPORT.PAUSE;
SPTEST.QUEUE_ID( 1 ),
STATUS
);
TEST_SUPPORT.DIRECTIVE_FAILED( status, "message_queue_create of Q1" );
TEST_SUPPORT.DIRECTIVE_FAILED(status, "message_queue_create of Q1");
BIG_SEND_BUFFER := (others => CHARACTER'POS( 'A' ));
BIG_RECEIVE_BUFFER := (others => CHARACTER'POS( 'Z' ));
@@ -666,7 +666,8 @@ TEST_SUPPORT.PAUSE;
end if;
if (BIG_SEND_BUFFER( BIG_SEND_BUFFER'FIRST .. Integer( SIZE )) /=
BIG_RECEIVE_BUFFER( BIG_RECEIVE_BUFFER'FIRST .. Integer( SIZE ))) then
BIG_RECEIVE_BUFFER( BIG_RECEIVE_BUFFER'FIRST .. Integer( SIZE )))
then
TEXT_IO.PUT_LINE("TA1 - exact size data match failed");
end if;

6
c/src/ada-tests/sptests/sp16/sptest.adb
View File

@@ -519,7 +519,8 @@ TEST_SUPPORT.PAUSE;
"TA1 - return_segment - return segment to region 4 - "
);
PUT_ADDRESS_FROM_AREA_4( segment_address_1 );
RTEMS.REGION_RETURN_SEGMENT( SPTEST.REGION_ID( 4 ), segment_address_1, STATUS );
RTEMS.REGION_RETURN_SEGMENT(
SPTEST.REGION_ID( 4 ), segment_address_1, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( status, "region_return_segment" );
TEXT_IO.NEW_LINE;
@@ -527,7 +528,8 @@ TEST_SUPPORT.PAUSE;
"TA1 - region_return_segment - return segment to region 4 - "
);
PUT_ADDRESS_FROM_AREA_4( segment_address_3 );
RTEMS.REGION_RETURN_SEGMENT( SPTEST.REGION_ID( 4 ), segment_address_3, STATUS );
RTEMS.REGION_RETURN_SEGMENT(
SPTEST.REGION_ID( 4 ), segment_address_3, STATUS );
TEST_SUPPORT.DIRECTIVE_FAILED( status, "region_return_segment" );
TEXT_IO.NEW_LINE;