diff options
Diffstat (limited to 'gcc/ada/errout.adb')
-rw-r--r-- | gcc/ada/errout.adb | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index 48bbc98..6f45020 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -18,10 +18,6 @@ -- Public License distributed with GNAT; see file COPYING3. If not, go to -- -- http://www.gnu.org/licenses for a complete copy of the license. -- -- -- --- As a special exception under Section 7 of GPL version 3, you are granted -- --- additional permissions described in the GCC Runtime Library Exception, -- --- version 3.1, as published by the Free Software Foundation. -- --- -- -- GNAT was originally developed by the GNAT team at New York University. -- -- Extensive contributions were provided by Ada Core Technologies Inc. -- -- -- @@ -202,20 +198,6 @@ package body Errout is -- spec for precise definition of the conversion that is performed by this -- routine in OpenVMS mode. - -------------------- - -- Cascaded_Error -- - -------------------- - - procedure Cascaded_Error is - begin - -- An anomaly has been detected which is assumed to be a consequence of - -- a previous error. Raise an exception if no error found previously. - - if Total_Errors_Detected = 0 then - raise Program_Error; - end if; - end Cascaded_Error; - ----------------------- -- Change_Error_Text -- ----------------------- |