diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-03 10:17:45 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-03 10:17:45 +0000 |
| commit | 3aa582cd74c2d892c68361298d2e6e83b9d1d595 (patch) | |
| tree | 41abafb12cf236ecdac96d64bfd1687099cd01c1 /gcc/ada/makeutl.adb | |
| parent | c6b238e7262edea86776753c5a4b371ea56cdbdc (diff) | |
| download | gcc-3aa582cd74c2d892c68361298d2e6e83b9d1d595.tar.gz | |
2011-08-03 Robert Dewar <dewar@adacore.com>
* prj-proc.adb, exp_util.ads, exp_ch9.adb, make.adb, prj-ext.adb,
prj-ext.ads, alfa.ads, sem_ch4.adb, makeutl.adb, makeutl.ads,
lib-xref-alfa.adb, sem_cat.adb, exp_dist.adb, get_alfa.adb,
prj-env.adb, prj-env.ads, prj-tree.adb, alfa.ads: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177260 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/makeutl.adb')
| -rw-r--r-- | gcc/ada/makeutl.adb | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/gcc/ada/makeutl.adb b/gcc/ada/makeutl.adb index 5afb62923a5..63731dd480b 100644 --- a/gcc/ada/makeutl.adb +++ b/gcc/ada/makeutl.adb @@ -679,13 +679,13 @@ package body Makeutl is ------------------ 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; + (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; Test_Without_Suffix : Boolean := False; Check_ALI_Suffix : Boolean := False) is @@ -697,6 +697,7 @@ package body Makeutl is In_Packages => Project.Decl.Packages, In_Tree => Project_Tree); Lang : Language_Ptr; + begin Is_Default := False; @@ -724,6 +725,7 @@ package body Makeutl is Spec_Suffix : String := Get_Name_String (Naming.Spec_Suffix); Body_Suffix : String := Get_Name_String (Naming.Body_Suffix); Truncated : Boolean := False; + begin Canonical_Case_File_Name (Spec_Suffix); Canonical_Case_File_Name (Body_Suffix); |