OSDN Git Service

* nmake.ads, nmake.adb: Regenerated.
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 14 Nov 2003 11:49:34 +0000 (11:49 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 14 Nov 2003 11:49:34 +0000 (11:49 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@73600 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ada/ChangeLog
gcc/ada/nmake.adb
gcc/ada/nmake.ads

index ffad8f3..900f875 100644 (file)
@@ -1,3 +1,7 @@
+2003-11-14  Arnaud Charlet  <charlet@act-europe.fr>
+
+       * nmake.ads, nmake.adb: Regenerated.
+
 2003-11-13  Vincent Celier  <celier@gnat.com>
 
        * 5bml-tgt.adb (Build_Dynamic_Library): Use
index 9b199fa..a873763 100644 (file)
@@ -692,7 +692,8 @@ package body Nmake is
 
    function Make_Component_Association (Sloc : Source_Ptr;
       Choices                      : List_Id;
-      Expression                   : Node_Id)
+      Expression                   : Node_Id;
+      Box_Present                  : Boolean := False)
       return Node_Id
    is
       N : constant Node_Id :=
@@ -700,6 +701,7 @@ package body Nmake is
    begin
       Set_Choices (N, Choices);
       Set_Expression (N, Expression);
+      Set_Box_Present (N, Box_Present);
       return N;
    end Make_Component_Association;
 
index be05e79..c8746ec 100644 (file)
@@ -371,7 +371,8 @@ package Nmake is
 
    function Make_Component_Association (Sloc : Source_Ptr;
       Choices                      : List_Id;
-      Expression                   : Node_Id)
+      Expression                   : Node_Id;
+      Box_Present                  : Boolean := False)
       return Node_Id;
    pragma Inline (Make_Component_Association);