From 3a23218a74723a77a5438c6960879e4ab4e1d2be Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Mon, 14 Dec 2009 21:28:54 +0000 Subject: 2009-12-14 Joel Sherrill * 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/support/test_support.adb | 14 -------------- 1 file changed, 14 deletions(-) (limited to 'c/src/ada-tests/support/test_support.adb') diff --git a/c/src/ada-tests/support/test_support.adb b/c/src/ada-tests/support/test_support.adb index 78920767dd..e1f17f15a8 100644 --- a/c/src/ada-tests/support/test_support.adb +++ b/c/src/ada-tests/support/test_support.adb @@ -131,12 +131,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; --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; -- cgit v1.2.3