diff options
Diffstat (limited to 'gcc-4.7/gcc/ada/par-ch8.adb')
-rw-r--r-- | gcc-4.7/gcc/ada/par-ch8.adb | 189 |
1 files changed, 0 insertions, 189 deletions
diff --git a/gcc-4.7/gcc/ada/par-ch8.adb b/gcc-4.7/gcc/ada/par-ch8.adb deleted file mode 100644 index eefd7d823..000000000 --- a/gcc-4.7/gcc/ada/par-ch8.adb +++ /dev/null @@ -1,189 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- 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; |