Commit 95a6aaf9 by Arnaud Charlet Committed by Arnaud Charlet

* nmake.ads, nmake.adb: Regenerated.

From-SVN: r73600
parent f53100ef
2003-11-14 Arnaud Charlet <charlet@act-europe.fr>
* nmake.ads, nmake.adb: Regenerated.
2003-11-13 Vincent Celier <celier@gnat.com> 2003-11-13 Vincent Celier <celier@gnat.com>
* 5bml-tgt.adb (Build_Dynamic_Library): Use * 5bml-tgt.adb (Build_Dynamic_Library): Use
......
...@@ -692,7 +692,8 @@ package body Nmake is ...@@ -692,7 +692,8 @@ package body Nmake is
function Make_Component_Association (Sloc : Source_Ptr; function Make_Component_Association (Sloc : Source_Ptr;
Choices : List_Id; Choices : List_Id;
Expression : Node_Id) Expression : Node_Id;
Box_Present : Boolean := False)
return Node_Id return Node_Id
is is
N : constant Node_Id := N : constant Node_Id :=
...@@ -700,6 +701,7 @@ package body Nmake is ...@@ -700,6 +701,7 @@ package body Nmake is
begin begin
Set_Choices (N, Choices); Set_Choices (N, Choices);
Set_Expression (N, Expression); Set_Expression (N, Expression);
Set_Box_Present (N, Box_Present);
return N; return N;
end Make_Component_Association; end Make_Component_Association;
......
...@@ -371,7 +371,8 @@ package Nmake is ...@@ -371,7 +371,8 @@ package Nmake is
function Make_Component_Association (Sloc : Source_Ptr; function Make_Component_Association (Sloc : Source_Ptr;
Choices : List_Id; Choices : List_Id;
Expression : Node_Id) Expression : Node_Id;
Box_Present : Boolean := False)
return Node_Id; return Node_Id;
pragma Inline (Make_Component_Association); pragma Inline (Make_Component_Association);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment