par-ch3.adb (P_Subtype_Mark_Resync): for an anonymous array return Error rather than...

	* par-ch3.adb (P_Subtype_Mark_Resync): for an anonymous array
        return Error rather than Empty so that analysis can proceed.

From-SVN: r46517

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 2a96c895dd69840b7dc8ba2984fb63a1a1f9d4ab..a776dee09164b8db97eccfc8d7202c651fd3c967 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-25  Ed Schonberg <schonber@gnat.com>
+
+       * par-ch3.adb (P_Subtype_Mark_Resync): for an anonymous array 
+        return Error rather than Empty so that analysis can proceed.
+
 2001-10-25  Ed Schonberg <schonber@gnat.com>
 
        * sem_util.adb (Enter_Name): better handling of cascaded error 

diff --git a/gcc/ada/par-ch3.adb b/gcc/ada/par-ch3.adb
index 937f02d0e7cbd8aee9e2b3b22877e3bdba7aa19f..211665345e1c920b326bda2870215baa946e8224 100644 (file)
--- a/gcc/ada/par-ch3.adb
+++ b/gcc/ada/par-ch3.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                            $Revision: 1.148 $
+--                            $Revision$
 --                                                                          --
 --          Copyright (C) 1992-2001, Free Software Foundation, Inc.         --
 --                                                                          --
@@ -796,7 +796,7 @@ package body Ch3 is
       if Token = Tok_Array then
          Error_Msg_SC ("anonymous array definition not allowed here");
          Discard_Junk_Node (P_Array_Type_Definition);
-         return Empty;
+         return Error;
 
       else
          Type_Node := P_Qualified_Simple_Name_Resync;