Changeset 98150020 in rtems


Ignore:
Timestamp:
Jun 3, 1997, 3:40:24 PM (23 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.8, 4.9, 5, master
Children:
a7156d1
Parents:
4db9c861
Message:

Commented out exception handling code since these routines are not
called from Ada tasks. It is questionable whether the exception
handling would work correctly.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada-tests/support/test_support.adb

    r4db9c861 r98150020  
    134134      -- Text_IO.Get_Line( Ignored_String, Ignored_Last );
    135135
    136    exception
    137 
    138       when Text_IO.End_Error =>
    139       -- ignore this error.  It happens when redirecting input from /dev/null
    140       return;
     136   -- exception
     137
     138   --    when Text_IO.End_Error =>
     139   --    -- ignore this error.  It happens when redirecting input from /dev/null
     140   --    return;
    141141
    142142   end Pause;
     
    160160      Unsigned32_IO.Put( SCREEN, Width=>2 );
    161161      Text_IO.Put_Line( "> " );
    162       Text_IO.Get_Line( Ignored_String, Ignored_Last );
    163  
    164    exception
    165 
    166       when Text_IO.End_Error =>
    167       -- ignore this error.  It happens when redirecting input from /dev/null
    168       return;
     162   --    Text_IO.Get_Line( Ignored_String, Ignored_Last );
     163 
     164   -- exception
     165
     166   --    when Text_IO.End_Error =>
     167   --    -- ignore this error.  It happens when redirecting input from /dev/null
     168   --    return;
    169169
    170170   end Pause_And_Screen_Number;
Note: See TracChangeset for help on using the changeset viewer.