diff options
Diffstat (limited to 'gcc/ada/nmake.adb')
| -rw-r--r-- | gcc/ada/nmake.adb | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/gcc/ada/nmake.adb b/gcc/ada/nmake.adb index a16204c0ce7..9b199faa0d0 100644 --- a/gcc/ada/nmake.adb +++ b/gcc/ada/nmake.adb @@ -6,11 +6,7 @@ -- -- -- B o d y -- -- -- --- 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. -- +-- Copyright (C) 1992-2003 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- -- @@ -1227,7 +1223,8 @@ package body Nmake is Iteration_Scheme : Node_Id := Empty; Statements : List_Id; End_Label : Node_Id; - Has_Created_Identifier : Boolean := False) + Has_Created_Identifier : Boolean := False; + Is_Null_Loop : Boolean := False) return Node_Id is N : constant Node_Id := @@ -1238,6 +1235,7 @@ package body Nmake is Set_Statements (N, Statements); Set_End_Label (N, End_Label); Set_Has_Created_Identifier (N, Has_Created_Identifier); + Set_Is_Null_Loop (N, Is_Null_Loop); return N; end Make_Loop_Statement; @@ -2117,7 +2115,8 @@ package body Nmake is function Make_Compilation_Unit_Aux (Sloc : Source_Ptr; Declarations : List_Id := No_List; Actions : List_Id := No_List; - Pragmas_After : List_Id := No_List) + Pragmas_After : List_Id := No_List; + Config_Pragmas : List_Id := Empty_List) return Node_Id is N : constant Node_Id := @@ -2126,13 +2125,15 @@ package body Nmake is Set_Declarations (N, Declarations); Set_Actions (N, Actions); Set_Pragmas_After (N, Pragmas_After); + Set_Config_Pragmas (N, Config_Pragmas); return N; end Make_Compilation_Unit_Aux; function Make_With_Clause (Sloc : Source_Ptr; Name : Node_Id; First_Name : Boolean := True; - Last_Name : Boolean := True) + Last_Name : Boolean := True; + Limited_Present : Boolean := False) return Node_Id is N : constant Node_Id := @@ -2141,6 +2142,7 @@ package body Nmake is Set_Name (N, Name); Set_First_Name (N, First_Name); Set_Last_Name (N, Last_Name); + Set_Limited_Present (N, Limited_Present); return N; end Make_With_Clause; |