diff options
| author | Emmanuel Briot <briot@adacore.com> | 2011-08-03 09:38:56 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-03 11:38:56 +0200 |
| commit | 3479844114fb9da80145e748af1ba33c93127f6d (patch) | |
| tree | 0bc869b54ef08222cffa183a6bc843f58a9b2a56 /gcc/ada/makeutl.ads | |
| parent | 4437a53072c556b2a81eb96c842c5448ffafa838 (diff) | |
| download | gcc-3479844114fb9da80145e748af1ba33c93127f6d.tar.gz | |
prj-proc.adb, [...] (Get_Attribute_Index): do not systematically lower case attribute indexes that contain no "." Fix...
2011-08-03 Emmanuel Briot <briot@adacore.com>
* prj-proc.adb, prj-attr.adb, prj-attr.ads (Get_Attribute_Index): do
not systematically lower case attribute indexes that contain no "."
Fix definition of several Naming attributes, which take
a unit name as index and therefore should be case insensitive.
Minor refactoring (reduce length of variable names).
2011-08-03 Emmanuel Briot <briot@adacore.com>
* makeutl.adb, makeutl.ads (Get_Switches): new subprogram.
From-SVN: r177250
Diffstat (limited to 'gcc/ada/makeutl.ads')
| -rw-r--r-- | gcc/ada/makeutl.ads | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/gcc/ada/makeutl.ads b/gcc/ada/makeutl.ads index b1e5765c814..8e9e151ee74 100644 --- a/gcc/ada/makeutl.ads +++ b/gcc/ada/makeutl.ads @@ -148,6 +148,28 @@ package Makeutl is -- is printed last. Both N1 and N2 are printed in quotation marks. The two -- forms differ only in taking Name_Id or File_name_Type arguments. + procedure Get_Switches + (Source : Source_Id; + Pkg_Name : Name_Id; + Project_Tree : Project_Tree_Ref; + Value : out Variable_Value; + Is_Default : out Boolean); + procedure Get_Switches + (Source_File : File_Name_Type; + Source_Lang : Name_Id; + Source_Prj : Project_Id; + Pkg_Name : Name_Id; + Project_Tree : Project_Tree_Ref; + Value : out Variable_Value; + Is_Default : out Boolean); + -- Compute the switches (Compilation switches for instance) for the given + -- file. This checks various attributes to see whether there are file + -- specific switches, or else defaults on the switches for the + -- corresponding language. + -- Is_Default is set to False if there were file-specific switches + -- Source_File can be set to No_File to force retrieval of the default + -- switches. + function Linker_Options_Switches (Project : Project_Id; In_Tree : Project_Tree_Ref) return String_List; |