RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

Commented out exception handling code since these routines are not

Browse Source 
called from Ada tasks.  It is questionable whether the exception
handling would work correctly.
This commit is contained in:
Joel Sherrill
1997-06-03 15:40:24 +00:00
parent 4db9c861dc
commit 981500206f
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -133,11 +133,11 @@ package body Test_Support is
Text_IO.Put_Line( "<pause> " ); Text_IO.Put_Line( "<pause> " );
-- Text_IO.Get_Line( Ignored_String, Ignored_Last ); -- Text_IO.Get_Line( Ignored_String, Ignored_Last );
exception -- exception
when Text_IO.End_Error => -- when Text_IO.End_Error =>
-- ignore this error. It happens when redirecting input from /dev/null -- -- ignore this error. It happens when redirecting input from /dev/null
return; -- return;
end Pause; end Pause;
@@ -159,13 +159,13 @@ package body Test_Support is
Text_IO.Put( "<pause - screen " ); Text_IO.Put( "<pause - screen " );
Unsigned32_IO.Put( SCREEN, Width=>2 ); Unsigned32_IO.Put( SCREEN, Width=>2 );
Text_IO.Put_Line( "> " ); 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 => -- when Text_IO.End_Error =>
-- ignore this error. It happens when redirecting input from /dev/null -- -- ignore this error. It happens when redirecting input from /dev/null
return; -- return;
end Pause_And_Screen_Number; end Pause_And_Screen_Number;