2017-01-23 Gary Dismukes <dismukes@adacore.com>

[thirdparty/gcc.git] / gcc / ada / par.adb

diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb
index 9b5c9c532a81c26a390e65c0b2f332221239fd71..d3c069a04a9577461bdcfbc07d5a4870af290e7f 100644 (file)
--- a/gcc/ada/par.adb
+++ b/gcc/ada/par.adb
@@ -476,8 +476,8 @@ function Par (Configuration_Pragmas : Boolean) return List_Id is
       --  subprogram specifications and bodies the field holds the correponding
       --  program unit name. For task declarations and bodies, protected types
       --  and bodies, and accept statements the field hold the name of the type
-      --  or operation. For if-statements, case-statements, and selects, the
-      --  field is initialized to Error.
+      --  or operation. For if-statements, case-statements, return statements,
+      --  and selects, the field is initialized to Error.
 
       --  Note: this is a bit of an odd (mis)use of Error, since there is no
       --  Error, but we use this value as a place holder to indicate that it