diff options
| author | Vincent Celier <celier@adacore.com> | 2007-10-15 15:55:54 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-10-15 15:55:54 +0200 |
| commit | 1b68567490b702d200be15437d69449f9becfe8d (patch) | |
| tree | d473c56824326a8cc5ef2a16bc73fee0a57b0839 /gcc/ada/prj-ext.adb | |
| parent | c16dd6a8559cddeb9a5fdf777d8b1f9cc775a627 (diff) | |
| download | gcc-1b68567490b702d200be15437d69449f9becfe8d.zip gcc-1b68567490b702d200be15437d69449f9becfe8d.tar.gz gcc-1b68567490b702d200be15437d69449f9becfe8d.tar.bz2 | |
snames.adb, snames.ads: Add new standard name runtime_library_dir
2007-10-15 Vincent Celier <celier@adacore.com>
* snames.adb, snames.ads: Add new standard name runtime_library_dir
* prj.ads (Language_Config): Add new component Runtime_Library_Dir
* prj-attr.adb: Add project level attribute Runtime_Library_Dir
* prj-env.adb (Create_Mapping_File): Do not put an entry if the path of
the source is unknown.
* prj-ext.adb: Spelling error fix
* prj-nmsc.adb (Check_Ada_Name): Reject any unit that includes an Ada
95 reserved word in its name.
(Process_Project_Level_Array_Attributes): Process new attribute
Runtime_Library_Dir.
* prj-part.adb (Parse_Single_Project): Do not check the name of the
config project against the user project names.
* prj-proc.adb (Expression): In multi-language mode, indexes that do
not include a dot are always case insensitive.
(Process_Declarative_Items): Ditto
(Process_Project_Tree_Phase_1): Set Success to False in case an error is
detected.
* prj-util.adb (Value_Of (In_Array)): When Force_Lower_Case_Index is
True, compare both indexes in lower case.
From-SVN: r129329
Diffstat (limited to 'gcc/ada/prj-ext.adb')
| -rw-r--r-- | gcc/ada/prj-ext.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/prj-ext.adb b/gcc/ada/prj-ext.adb index 0e9641a..37c8fc1 100644 --- a/gcc/ada/prj-ext.adb +++ b/gcc/ada/prj-ext.adb @@ -217,7 +217,7 @@ package body Prj.Ext is Name_Len := Name_Len - No_Project_Default_Dir'Length - 1; -- After removing the '-', go back one character to get the next - -- directory corectly. + -- directory correctly. Last := Last - 1; |