diff options
| author | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 15:40:24 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 15:40:24 +0000 |
| commit | 981500206f154b0106869499e9dbc60e37f8a454 (patch) | |
| tree | 3104850fe7d7ffe66463eb743b0ac6b96917b0ce /c/src/ada-tests | |
| parent | removed with of unchecked_conversion (diff) | |
| download | rtems-981500206f154b0106869499e9dbc60e37f8a454.tar.bz2 | |
Commented out exception handling code since these routines are not
called from Ada tasks. It is questionable whether the exception
handling would work correctly.
Diffstat (limited to 'c/src/ada-tests')
| -rw-r--r-- | c/src/ada-tests/support/test_support.adb | 18 |
1 files changed, 9 insertions, 9 deletions
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( "<pause> " ); -- 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( "<pause - screen " ); Unsigned32_IO.Put( SCREEN, Width=>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; |