diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-30 10:59:41 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-30 10:59:41 +0000 |
| commit | 447b1f654893db596bfc8ac8b7e95a3fff2642c7 (patch) | |
| tree | ae963440f1ba67f2811fa3dcc4a41d01b5bdf34e /gcc/ada/makeutl.ads | |
| parent | f9e8225aa5b1b3267b09494c13e47661af027c39 (diff) | |
| download | gcc-447b1f654893db596bfc8ac8b7e95a3fff2642c7.tar.gz | |
2009-11-30 Thomas Quinot <quinot@adacore.com>
* osint.adb: Minor reformatting
2009-11-30 Vincent Celier <celier@adacore.com>
* makeutl.ads, makeutl.adb (Base_Name_Index_For): New function to get
the base name of a main without the extension, with an eventual source
index.
(Mains.Get_Index): New procedure to set the source index of a main
(Mains.Get_Index): New function to get the source index of a main
* prj-attr.adb: New attributes Config_Body_File_Name_Index,
Config_Spec_File_Name_Index, Multi_Unit_Object_Separator and
Multi_Unit_Switches.
* prj-nmsc.adb (Process_Compiler): Takle into account new attributes
Config_Body_File_Name_Index, Config_Spec_File_Name_Index,
Multi_Unit_Object_Separator and Multi_Unit_Switches.
Allow only one character for Multi_Unit_Object_Separator.
* prj-proc.adb (Process_Declarative_Items): Take into account the
source indexes in indexes of associative array attribute declarations.
* prj.adb (Object_Name): New function to get the object file name for
units in multi-unit sources.
* prj.ads (Language_Config): New components Multi_Unit_Switches,
Multi_Unit_Object_Separator Config_Body_Index and Config_Spec_Index.
(Object_Name): New function to get the object file name for units in
multi-unit sources.
* snames.ads-tmpl: New standard names Config_Body_File_Name_Index,
Config_Spec_File_Name_Index, Multi_Unit_Object_Separator and
Multi_Unit_Switches.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154782 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/makeutl.ads')
| -rw-r--r-- | gcc/ada/makeutl.ads | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/gcc/ada/makeutl.ads b/gcc/ada/makeutl.ads index 95114f07c9a..915c00afcf1 100644 --- a/gcc/ada/makeutl.ads +++ b/gcc/ada/makeutl.ads @@ -60,7 +60,14 @@ package Makeutl is function Create_Name (Name : String) return File_Name_Type; function Create_Name (Name : String) return Name_Id; function Create_Name (Name : String) return Path_Name_Type; - -- Get the Name_Id of a name + -- Get an id for a name + + function Base_Name_Index_For + (Main : String; + Main_Index : Int; + Index_Separator : Character) return File_Name_Type; + -- Returns the base name of Main, without the extension, plus the + -- Index_Separator followed by the Main_Index, if Main_Index is not 0. function Executable_Prefix_Path return String; -- Return the absolute path parent directory of the directory where the @@ -143,6 +150,8 @@ package Makeutl is procedure Add_Main (Name : String); -- Add one main to the table + procedure Set_Index (Index : Int); + procedure Set_Location (Location : Source_Ptr); -- Set the location of the last main added. By default, the location is -- No_Location. @@ -157,6 +166,8 @@ package Makeutl is -- Increase the index and return the next main. If table is exhausted, -- return an empty string. + function Get_Index return Int; + function Get_Location return Source_Ptr; -- Get the location of the current main |