summaryrefslogtreecommitdiff
path: root/gcc/ada/sem.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/sem.adb')
-rw-r--r--gcc/ada/sem.adb4
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem.adb b/gcc/ada/sem.adb
index 1eb315d481e..be09269b891 100644
--- a/gcc/ada/sem.adb
+++ b/gcc/ada/sem.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- $Revision: 1.290 $
+-- $Revision$
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
@@ -552,7 +552,7 @@ package body Sem is
-- a real internal error which we complain about.
when N_Empty =>
- pragma Assert (Errors_Detected /= 0);
+ pragma Assert (Serious_Errors_Detected /= 0);
null;
-- A call to analyze the error node is simply ignored, to avoid