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.

c/src/ada-tests/ChangeLog

@@ -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,

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

c/src/ada-tests/mptests/mp05/mptest.adb

@@ -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" );

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

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

@@ -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: 
 --

c/src/ada-tests/mptests/mp14/mptest.adb

@@ -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

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

@@ -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: 
 --

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

@@ -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: 
 --

c/src/ada-tests/sptests/sp09/sptest.adb

@@ -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(

c/src/ada-tests/sptests/sp11/sptest.adb

@@ -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,

c/src/ada-tests/sptests/sp13/sptest.adb

@@ -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;
 

c/src/ada-tests/sptests/sp16/sptest.adb

@@ -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;
 

c/src/ada-tests/support/test_support.adb

@@ -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;