Imagelibrary/rtems
1
0
Fork 1
mirror of https://gitlab.rtems.org/rtems/rtos/rtems.git synced 2025-12-05 15:15:44 +00:00
Code Issues Packages Projects Releases Wiki 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

21
c/src/ada-tests/ChangeLog
View File

@@ -1,3 +1,24 @@
2009-12-14 Joel Sherrill <joel.sherrill@oarcorp.com>
* 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.
2009-12-14 Joel Sherrill <joel.sherrill@oarcorp.com>
* samples/base_sp/sptest.adb, samples/hello/sptest.adb,

3
c/src/ada-tests/mptests/mp01/node1/mp01_node1.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP01_NODE1 of the Single Processor Test Suite.
-- This is the entry point for Test MP01_NODE1 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp01/node2/mp01_node2.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP01_NODE2 of the Single Processor Test Suite.
-- This is the entry point for Test MP01_NODE2 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp02/node1/mp02_node1.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP02_NODE1 of the Single Processor Test Suite.
-- This is the entry point for Test MP02_NODE1 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp02/node2/mp02_node2.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP02_NODE2 of the Single Processor Test Suite.
-- This is the entry point for Test MP02_NODE2 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp03/node1/mp03_node1.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP03_NODE1 of the Single Processor Test Suite.
-- This is the entry point for Test MP03_NODE1 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp03/node2/mp03_node2.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP03_NODE2 of the Single Processor Test Suite.
-- This is the entry point for Test MP03_NODE2 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp04/node1/mp04_node1.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP04_NODE1 of the Single Processor Test Suite.
-- This is the entry point for Test MP04_NODE1 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp04/node2/mp04_node2.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP04_NODE2 of the Single Processor Test Suite.
-- This is the entry point for Test MP04_NODE2 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

2
c/src/ada-tests/mptests/mp05/mptest.adb
View File

@@ -204,7 +204,7 @@ package body MPTEST is
exit when RTEMS.IS_STATUS_SUCCESSFUL( STATUS );
exit when not RTEMS.ARE_STATUSES_EQUAL( STATUS, RTEMS.NOT_DEFINED );
exit when not RTEMS.ARE_STATUSES_EQUAL(STATUS, RTEMS.NOT_DEFINED);
end loop;
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SIGNAL_SEND" );

3
c/src/ada-tests/mptests/mp05/node1/mp05_node1.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP05_NODE1 of the Single Processor Test Suite.
-- This is the entry point for Test MP05_NODE1 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp05/node2/mp05_node2.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP05_NODE2 of the Single Processor Test Suite.
-- This is the entry point for Test MP05_NODE2 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp06/node1/mp06_node1.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP06_NODE1 of the Single Processor Test Suite.
-- This is the entry point for Test MP06_NODE1 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp06/node2/mp06_node2.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP06_NODE2 of the Single Processor Test Suite.
-- This is the entry point for Test MP06_NODE2 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp07/node1/mp07_node1.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP07_NODE1 of the Single Processor Test Suite.
-- This is the entry point for Test MP07_NODE1 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp07/node2/mp07_node2.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP07_NODE2 of the Single Processor Test Suite.
-- This is the entry point for Test MP07_NODE2 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp08/node1/mp08_node1.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP08_NODE1 of the Single Processor Test Suite.
-- This is the entry point for Test MP08_NODE1 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp08/node2/mp08_node2.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP08_NODE2 of the Single Processor Test Suite.
-- This is the entry point for Test MP08_NODE2 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp09/node1/mp09_node1.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP09_NODE1 of the Single Processor Test Suite.
-- This is the entry point for Test MP09_NODE1 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp09/node2/mp09_node2.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP09_NODE2 of the Single Processor Test Suite.
-- This is the entry point for Test MP09_NODE2 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp10/node1/mp10_node1.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP10_NODE1 of the Single Processor Test Suite.
-- This is the entry point for Test MP10_NODE1 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp10/node2/mp10_node2.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP10_NODE2 of the Single Processor Test Suite.
-- This is the entry point for Test MP10_NODE2 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp11/node1/mp11_node1.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP11_NODE1 of the Single Processor Test Suite.
-- This is the entry point for Test MP11_NODE1 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp11/node2/mp11_node2.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP11_NODE2 of the Single Processor Test Suite.
-- This is the entry point for Test MP11_NODE2 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp12/node1/mp12_node1.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP12_NODE1 of the Single Processor Test Suite.
-- This is the entry point for Test MP12_NODE1 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp12/node2/mp12_node2.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP12_NODE2 of the Single Processor Test Suite.
-- This is the entry point for Test MP12_NODE2 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp13/node1/mp13_node1.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP13_NODE1 of the Single Processor Test Suite.
-- This is the entry point for Test MP13_NODE1 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp13/node2/mp13_node2.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP13_NODE2 of the Single Processor Test Suite.
-- This is the entry point for Test MP13_NODE2 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

5
c/src/ada-tests/mptests/mp14/mptest.adb
View File

@@ -58,7 +58,7 @@ package body MPTEST is
pragma Import (C, BSP_MPCI_PRINT_STATISTICS, "MPCI_Print_statistics" );
begin
RTEMS.TASK_MODE( RTEMS.NO_PREEMPT, RTEMS.PREEMPT_MASK, OLD_MODE, STATUS );
RTEMS.TASK_MODE(RTEMS.NO_PREEMPT, RTEMS.PREEMPT_MASK, OLD_MODE, STATUS);
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_MODE" );
BSP_MPCI_PRINT_STATISTICS;
@@ -101,7 +101,8 @@ package body MPTEST is
RTEMS.TIMER_FIRE_AFTER(
MPTEST.STOP_TIMER_ID,
TEST_SUPPORT.MAXIMUM_LONG_TEST_DURATION * TEST_SUPPORT.TICKS_PER_SECOND,
TEST_SUPPORT.MAXIMUM_LONG_TEST_DURATION *
TEST_SUPPORT.TICKS_PER_SECOND,
MPTEST.STOP_TEST_TSR'ACCESS,
RTEMS.NULL_ADDRESS,
STATUS

3
c/src/ada-tests/mptests/mp14/node1/mp14_node1.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP14_NODE1 of the Single Processor Test Suite.
-- This is the entry point for Test MP14_NODE1 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

3
c/src/ada-tests/mptests/mp14/node2/mp14_node2.adb
View File

@@ -3,7 +3,8 @@
--
-- DESCRIPTION:
--
-- This is the entry point for Test MP14_NODE2 of the Single Processor Test Suite.
-- This is the entry point for Test MP14_NODE2 of the Multiprocessor
-- Test Suite.
--
-- DEPENDENCIES:
--

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;

14
c/src/ada-tests/support/test_support.adb
View File

@@ -131,12 +131,6 @@ package body Test_Support is
Text_IO.Put_Line( "<pause> " );
-- Text_IO.Get_Line( Ignored_String, Ignored_Last );
-- exception
-- when Text_IO.End_Error =>
-- -- ignore this error. It happens when redirecting input from /dev/null
-- return;
end Pause;
--PAGE
@@ -159,12 +153,6 @@ package body Test_Support is
Text_IO.Put_Line( "> " );
-- Text_IO.Get_Line( Ignored_String, Ignored_Last );
-- exception
-- when Text_IO.End_Error =>
-- -- ignore this error. It happens when redirecting input from /dev/null
-- return;
end Pause_And_Screen_Number;
--PAGE
@@ -207,8 +195,6 @@ package body Test_Support is
-- probably OK
return RTEMS.Get_Index( TID ) - 1;
-- Ignoring this component.
-- - RTEMS.Configuration.RTEMS_API_Configuration.Number_Of_Initialization_Tasks;
end Task_Number;