2008-05-27 Vincent Celier <celier@adacore.com>

	* makeutl.ads, makeutl.adb:
	(Set_Location): New procedure
	(Get_Location): New function
	(Update_Main): New procedure



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135993 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 10 insertions, 0 deletions

diff --git a/gcc/ada/makeutl.ads b/gcc/ada/makeutl.ads
index 9672744a1ac..b6483f3e520 100644
--- a/gcc/ada/makeutl.ads
+++ b/gcc/ada/makeutl.ads
@@ -103,6 +103,10 @@ package Makeutl is
       procedure Add_Main (Name : String);
       --  Add one main to the table
 
+      procedure Set_Location (Location : Source_Ptr);
+      --  Set the location of the last main added. By default, the location is
+      --  No_Location.
+
       procedure Delete;
       --  Empty the table
 
@@ -113,6 +117,12 @@ package Makeutl is
       --  Increase the index and return the next main.
       --  If table is exhausted, return an empty string.
 
+      function Get_Location return Source_Ptr;
+      --  Get the location of the current main
+
+      procedure Update_Main (Name : String);
+      --  Update the file name of the current main
+
       function Number_Of_Mains return Natural;
       --  Returns the number of mains added with Add_Main since the last call
       --  to Delete.