From 981500206f154b0106869499e9dbc60e37f8a454 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Tue, 3 Jun 1997 15:40:24 +0000 Subject: Commented out exception handling code since these routines are not called from Ada tasks. It is questionable whether the exception handling would work correctly. --- c/src/ada-tests/support/test_support.adb | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'c/src/ada-tests') diff --git a/c/src/ada-tests/support/test_support.adb b/c/src/ada-tests/support/test_support.adb index d6be419010..379f0dfdae 100644 --- a/c/src/ada-tests/support/test_support.adb +++ b/c/src/ada-tests/support/test_support.adb @@ -133,11 +133,11 @@ package body Test_Support is Text_IO.Put_Line( " " ); -- Text_IO.Get_Line( Ignored_String, Ignored_Last ); - exception + -- exception - when Text_IO.End_Error => - -- ignore this error. It happens when redirecting input from /dev/null - return; + -- when Text_IO.End_Error => + -- -- ignore this error. It happens when redirecting input from /dev/null + -- return; end Pause; @@ -159,13 +159,13 @@ package body Test_Support is Text_IO.Put( "2 ); Text_IO.Put_Line( "> " ); - Text_IO.Get_Line( Ignored_String, Ignored_Last ); + -- Text_IO.Get_Line( Ignored_String, Ignored_Last ); - exception + -- exception - when Text_IO.End_Error => - -- ignore this error. It happens when redirecting input from /dev/null - return; + -- when Text_IO.End_Error => + -- -- ignore this error. It happens when redirecting input from /dev/null + -- return; end Pause_And_Screen_Number; -- cgit v1.2.3