Subversion Repositories openrisc

------------------------------------------------------------------------------

--                                                                          --

--                         GNAT COMPILER COMPONENTS                         --

--                                                                          --

--                              P A R . C H 8                               --

--                                                                          --

--                                 B o d y                                  --

--                                                                          --

--          Copyright (C) 1992-2010, Free Software Foundation, Inc.         --

--                                                                          --

-- GNAT is free software;  you can  redistribute it  and/or modify it under --

-- terms of the  GNU General Public License as published  by the Free Soft- --

-- ware  Foundation;  either version 3,  or (at your option) any later ver- --

-- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --

-- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --

-- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --

-- for  more details.  You should have  received  a copy of the GNU General --

-- Public License  distributed with GNAT; see file COPYING3.  If not, go to --

-- http://www.gnu.org/licenses for a complete copy of the license.          --

--                                                                          --

-- GNAT was originally developed  by the GNAT team at  New York University. --

-- Extensive contributions were provided by Ada Core Technologies Inc.      --

--                                                                          --

------------------------------------------------------------------------------

pragma Style_Checks (All_Checks);

--  Turn off subprogram body ordering check. Subprograms are in order

--  by RM section rather than alphabetical

separate (Par)

package body Ch8 is

   -----------------------

   -- Local Subprograms --

   -----------------------

   function P_Use_Package_Clause                           return Node_Id;

   function P_Use_Type_Clause                              return Node_Id;

   ---------------------

   -- 8.4  Use Clause --

   ---------------------

   --  USE_CLAUSE ::= USE_PACKAGE_CLAUSE | USE_TYPE_CLAUSE

   --  The caller has checked that the initial token is USE

   --  Error recovery: cannot raise Error_Resync

   function P_Use_Clause return Node_Id is

   begin

      Scan; -- past USE

      if Token = Tok_Type or else Token = Tok_All then

         return P_Use_Type_Clause;

      else

         return P_Use_Package_Clause;

      end if;

   end P_Use_Clause;

   -----------------------------

   -- 8.4  Use Package Clause --

   -----------------------------

   --  USE_PACKAGE_CLAUSE ::= use package_NAME {, package_NAME};

   --  The caller has scanned out the USE keyword

   --  Error recovery: cannot raise Error_Resync

   function P_Use_Package_Clause return Node_Id is

      Use_Node : Node_Id;

   begin

      Use_Node := New_Node (N_Use_Package_Clause, Prev_Token_Ptr);

      Set_Names (Use_Node, New_List);

      if Token = Tok_Package then

         Error_Msg_SC ("PACKAGE should not appear here");

         Scan; -- past PACKAGE

      end if;

      loop

         Append (P_Qualified_Simple_Name, Names (Use_Node));

         exit when Token /= Tok_Comma;

         Scan; -- past comma

      end loop;

      TF_Semicolon;

      return Use_Node;

   end P_Use_Package_Clause;

   --------------------------

   -- 8.4  Use Type Clause --

   --------------------------

   --  USE_TYPE_CLAUSE ::= use [ALL] type SUBTYPE_MARK {, SUBTYPE_MARK};

   --  The caller has checked that the initial token is USE, scanned it out

   --  and that the current token is either ALL or TYPE.

   --  Note: Use of ALL is an Ada 2012 feature

   --  Error recovery: cannot raise Error_Resync

   function P_Use_Type_Clause return Node_Id is

      Use_Node    : Node_Id;

      All_Present : Boolean;

   begin

      if Token = Tok_All then

         if Ada_Version < Ada_2012 then

            Error_Msg_SC ("|`USE ALL TYPE` is an Ada 2012 feature");

            Error_Msg_SC ("\|unit must be compiled with -gnat2012 switch");

         end if;

         All_Present := True;

         Scan; -- past ALL

      else

         All_Present := False;

      end if;

      Use_Node := New_Node (N_Use_Type_Clause, Prev_Token_Ptr);

      Set_All_Present (Use_Node, All_Present);

      Set_Subtype_Marks (Use_Node, New_List);

      Set_Used_Operations (Use_Node, No_Elist);

      if Ada_Version = Ada_83 then

         Error_Msg_SC ("(Ada 83) use type not allowed!");

      end if;

      Scan; -- past TYPE

      loop

         Append (P_Subtype_Mark, Subtype_Marks (Use_Node));

         No_Constraint;

         exit when Token /= Tok_Comma;

         Scan; -- past comma

      end loop;

      TF_Semicolon;

      return Use_Node;

   end P_Use_Type_Clause;

   -------------------------------

   -- 8.5  Renaming Declaration --

   -------------------------------

   --  Object renaming declarations and exception renaming declarations

   --  are parsed by P_Identifier_Declaration (3.3.1)

   --  Subprogram renaming declarations are parsed by P_Subprogram (6.1)

   --  Package renaming declarations are parsed by P_Package (7.1)

   --  Generic renaming declarations are parsed by P_Generic (12.1)

   ----------------------------------------

   -- 8.5.1  Object Renaming Declaration --

   ----------------------------------------

   --  Parsed by P_Identifier_Declarations (3.3.1)

   ----------------------------------------

   -- 8.5.2  Exception Renaming Declaration --

   ----------------------------------------

   --  Parsed by P_Identifier_Declarations (3.3.1)

   -----------------------------------------

   -- 8.5.3  Package Renaming Declaration --

   -----------------------------------------

   --  Parsed by P_Package (7.1)

   --------------------------------------------

   -- 8.5.4  Subprogram Renaming Declaration --

   --------------------------------------------

   --  Parsed by P_Subprogram (6.1)

   -----------------------------------------

   -- 8.5.2  Generic Renaming Declaration --

   -----------------------------------------

   --  Parsed by P_Generic (12.1)

end Ch8;