summaryrefslogtreecommitdiff
path: root/gcc/ada/errout.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/errout.adb')
-rw-r--r--gcc/ada/errout.adb6
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb
index f3469364c82..390583794b5 100644
--- a/gcc/ada/errout.adb
+++ b/gcc/ada/errout.adb
@@ -23,7 +23,7 @@
-- --
------------------------------------------------------------------------------
--- Warning! Error messages can be generated during Gigi processing by direct
+-- Warning: Error messages can be generated during Gigi processing by direct
-- calls to error message routines, so it is essential that the processing
-- in this body be consistent with the requirements for the Gigi processing
-- environment, and that in particular, no disallowed table expansion is
@@ -3113,7 +3113,7 @@ package body Errout is
-- but it makes too much noise to be accurate and add 'Base in all
-- cases. Note that we only do this is the first named subtype is not
-- itself an internal name. This avoids the obvious loop (subtype ->
- -- basetype -> subtype) which would otherwise occur!)
+ -- basetype -> subtype) which would otherwise occur).
else
declare
@@ -3152,7 +3152,7 @@ package body Errout is
-- If we are stuck in a loop, get out and settle for the internal
-- name after all. In this case we set to kill the message if it is
-- not the first error message (we really try hard not to show the
- -- dirty laundry of the implementation to the poor user!)
+ -- dirty laundry of the implementation to the poor user).
if Ent = Old_Ent then
Kill_Message := True;