diff options
Diffstat (limited to 'gcc/ada/nmake.adb')
| -rw-r--r-- | gcc/ada/nmake.adb | 26 |
1 files changed, 18 insertions, 8 deletions
diff --git a/gcc/ada/nmake.adb b/gcc/ada/nmake.adb index b80f68685b2..858d5a8540e 100644 --- a/gcc/ada/nmake.adb +++ b/gcc/ada/nmake.adb @@ -6,9 +6,9 @@ -- -- -- B o d y -- -- -- --- Generated by xnmake revision 1.2 using -- --- sinfo.ads revision 1.6 -- --- nmake.adt revision 1.1 -- +-- Generated by xnmake revision 1.29 using -- +-- sinfo.ads revision 1.439 -- +-- nmake.adt revision 1.12 -- -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -270,13 +270,15 @@ package body Nmake is end Make_Range; function Make_Enumeration_Type_Definition (Sloc : Source_Ptr; - Literals : List_Id) + Literals : List_Id; + End_Label : Node_Id := Empty) return Node_Id is N : constant Node_Id := New_Node (N_Enumeration_Type_Definition, Sloc); begin Set_Literals (N, Literals); + Set_End_Label (N, End_Label); return N; end Make_Enumeration_Type_Definition; @@ -663,7 +665,8 @@ package body Nmake is function Make_Attribute_Reference (Sloc : Source_Ptr; Prefix : Node_Id; Attribute_Name : Name_Id; - Expressions : List_Id := No_List) + Expressions : List_Id := No_List; + Must_Be_Byte_Aligned : Boolean := False) return Node_Id is N : constant Node_Id := @@ -672,6 +675,7 @@ package body Nmake is Set_Prefix (N, Prefix); Set_Attribute_Name (N, Attribute_Name); Set_Expressions (N, Expressions); + Set_Must_Be_Byte_Aligned (N, Must_Be_Byte_Aligned); return N; end Make_Attribute_Reference; @@ -2756,35 +2760,41 @@ package body Nmake is end Make_Itype_Reference; function Make_Raise_Constraint_Error (Sloc : Source_Ptr; - Condition : Node_Id := Empty) + Condition : Node_Id := Empty; + Reason : Uint) return Node_Id is N : constant Node_Id := New_Node (N_Raise_Constraint_Error, Sloc); begin Set_Condition (N, Condition); + Set_Reason (N, Reason); return N; end Make_Raise_Constraint_Error; function Make_Raise_Program_Error (Sloc : Source_Ptr; - Condition : Node_Id := Empty) + Condition : Node_Id := Empty; + Reason : Uint) return Node_Id is N : constant Node_Id := New_Node (N_Raise_Program_Error, Sloc); begin Set_Condition (N, Condition); + Set_Reason (N, Reason); return N; end Make_Raise_Program_Error; function Make_Raise_Storage_Error (Sloc : Source_Ptr; - Condition : Node_Id := Empty) + Condition : Node_Id := Empty; + Reason : Uint) return Node_Id is N : constant Node_Id := New_Node (N_Raise_Storage_Error, Sloc); begin Set_Condition (N, Condition); + Set_Reason (N, Reason); return N; end Make_Raise_Storage_Error; |