diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 15:54:52 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 15:54:52 +0200 |
| commit | 1f9939b5d9f5722d18fc84139826b2d8845a68c2 (patch) | |
| tree | 9ba8c776b625b0e2d8de3d8711b53c866e0052df /gcc/ada/makeutl.adb | |
| parent | 15d8a51dee9e80190ac43afc9b553976776e17a9 (diff) | |
| download | gcc-1f9939b5d9f5722d18fc84139826b2d8845a68c2.zip gcc-1f9939b5d9f5722d18fc84139826b2d8845a68c2.tar.gz gcc-1f9939b5d9f5722d18fc84139826b2d8845a68c2.tar.bz2 | |
[multiple changes]
2011-08-04 Yannick Moy <moy@adacore.com>
* sem_prag.adb (Check_Arg_Is_String_Literal): remove useless procedure
(Analyze_Pragma): allow static string expression for name of Test_Case,
instead of simply string literals.
* sem_util.adb (Get_Name_From_Test_Case_Pragma): adapt to static string
expressions.
2011-08-04 Vincent Celier <celier@adacore.com>
* makeutl.adb (Complete_Mains.Find_File_Add_Extension): Use canonical
case suffixes to find truncated main sources.
2011-08-04 Tristan Gingold <gingold@adacore.com>
* impunit.adb (Non_Imp_File_Names_95): Add g-tastus.
s-stusta.adb (Compute_All_Task): Use Put_Line instead of Put.
(Compute_Current_Task): Ditto.
2011-08-04 Tristan Gingold <gingold@adacore.com>
* gnat_ugn.texi: Mention GNAT.Task_Stack_Usage.
2011-08-04 Yannick Moy <moy@adacore.com>
* lib-xref-alfa.adb (Is_Global_Constant): new function that detects
library-level constant.
(Add_ALFA_Xrefs): ignore global constants in ALFA xref.
* sem_res.adb (Resolve_Actuals): do not add cross-reference to Formal
used as selector of parameter association, in ALFA mode.
From-SVN: r177389
Diffstat (limited to 'gcc/ada/makeutl.adb')
| -rw-r--r-- | gcc/ada/makeutl.adb | 31 |
1 files changed, 22 insertions, 9 deletions
diff --git a/gcc/ada/makeutl.adb b/gcc/ada/makeutl.adb index 0be182e..f091690 100644 --- a/gcc/ada/makeutl.adb +++ b/gcc/ada/makeutl.adb @@ -1368,9 +1368,16 @@ package body Makeutl is Suffix := Source.Language.Config.Naming_Data.Body_Suffix; - exit when Suffix /= No_File and then - Name_Buffer (Base_Main'Length + 1 .. Name_Len) = - Get_Name_String (Suffix); + if Suffix /= No_File then + declare + Suffix_Str : String := Get_Name_String (Suffix); + begin + Canonical_Case_File_Name (Suffix_Str); + exit when + Name_Buffer (Base_Main'Length + 1 .. Name_Len) = + Suffix_Str; + end; + end if; end if; elsif Source.Kind = Spec then @@ -1385,12 +1392,18 @@ package body Makeutl is Suffix := Source.Language.Config.Naming_Data.Spec_Suffix; - if Suffix /= No_File - and then - Name_Buffer (Base_Main'Length + 1 .. Name_Len) = - Get_Name_String (Suffix) - then - Spec_Source := Source; + if Suffix /= No_File then + declare + Suffix_Str : String := Get_Name_String (Suffix); + begin + Canonical_Case_File_Name (Suffix_Str); + + if Name_Buffer (Base_Main'Length + 1 .. Name_Len) = + Suffix_Str + then + Spec_Source := Source; + end if; + end; end if; end if; end if; |