* approved by rth

[pf3gnuchains/gcc-fork.git] / gcc / ada / nmake.adb

diff --git a/gcc/ada/nmake.adb b/gcc/ada/nmake.adb
index 92bb498..858d5a8 100644 (file)
--- a/gcc/ada/nmake.adb
+++ b/gcc/ada/nmake.adb
@@ -6,8 +6,8 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                 Generated by xnmake revision 1.25 using                  --
---                         sinfo.ads revision 1.430                         --
+--                 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;