diff options
Diffstat (limited to 'gcc/ada/par.adb')
| -rw-r--r-- | gcc/ada/par.adb | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb index 2d86577a48c..85a2fde13e2 100644 --- a/gcc/ada/par.adb +++ b/gcc/ada/par.adb @@ -557,8 +557,6 @@ function Par (Configuration_Pragmas : Boolean) return List_Id is -- variable, then the caller can change it to an appropriate missing -- begin message if indeed the BEGIN is missing. - function P_Access_Definition return Node_Id; - function P_Access_Type_Definition return Node_Id; function P_Array_Type_Definition return Node_Id; function P_Basic_Declarative_Items return List_Id; function P_Constraint_Opt return Node_Id; @@ -576,6 +574,17 @@ function Par (Configuration_Pragmas : Boolean) return List_Id is function P_Subtype_Mark_Resync return Node_Id; function P_Unknown_Discriminant_Part_Opt return Boolean; + function P_Access_Definition + (Null_Exclusion_Present : Boolean) return Node_Id; + -- Ada 0Y (AI-231/AI-254): The caller parses the null-exclusion part + -- and indicates if it was present + + function P_Access_Type_Definition + (Header_Already_Parsed : Boolean := False) return Node_Id; + -- Ada 0Y (AI-254): The formal is used to indicate if the caller has + -- parsed the null_exclusion part. In this case the caller has also + -- removed the ACCESS token + procedure P_Component_Items (Decls : List_Id); -- Scan out one or more component items and append them to the -- given list. Only scans out more than one declaration in the @@ -1268,7 +1277,6 @@ begin Save_Style_Check : constant Boolean := Style_Check; - begin Operating_Mode := Check_Syntax; Style_Check := False; |