diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 10:59:40 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 10:59:40 +0000 |
| commit | 651c868f8e0fdfd8c37842264f91ca3024772a95 (patch) | |
| tree | a1e9959c3c12a36bfae0d357557771e85a8be801 /gcc/ada/prj.adb | |
| parent | 9f8644298142904e0d2b0fc77d47b2a0591e70f1 (diff) | |
| download | gcc-651c868f8e0fdfd8c37842264f91ca3024772a95.tar.gz | |
2009-07-13 Robert Dewar <dewar@adacore.com>
* prj.adb, sem_ch4.adb, sem_res.adb, prj-nmsc.adb: Minor reformatting
& comment edits.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149571 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj.adb')
| -rw-r--r-- | gcc/ada/prj.adb | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb index f9726be0e02..a8c22f76d73 100644 --- a/gcc/ada/prj.adb +++ b/gcc/ada/prj.adb @@ -52,13 +52,15 @@ package body Prj is subtype Known_Casing is Casing_Type range All_Upper_Case .. Mixed_Case; type Cst_String_Access is access constant String; + All_Lower_Case_Image : aliased constant String := "lowercase"; All_Upper_Case_Image : aliased constant String := "UPPERCASE"; Mixed_Case_Image : aliased constant String := "MixedCase"; + The_Casing_Images : constant array (Known_Casing) of Cst_String_Access := - (All_Lower_Case => All_Lower_Case_Image'Access, - All_Upper_Case => All_Upper_Case_Image'Access, - Mixed_Case => Mixed_Case_Image'Access); + (All_Lower_Case => All_Lower_Case_Image'Access, + All_Upper_Case => All_Upper_Case_Image'Access, + Mixed_Case => Mixed_Case_Image'Access); Project_Empty : constant Project_Data := (Qualifier => Unspecified, @@ -171,6 +173,7 @@ package body Prj is is Dont_Care : Boolean; pragma Warnings (Off, Dont_Care); + begin if not Debug.Debug_Flag_N then if Current_Verbosity = High then @@ -196,7 +199,9 @@ package body Prj is procedure Delete_All_Temp_Files (Tree : Project_Tree_Ref) is Dont_Care : Boolean; pragma Warnings (Off, Dont_Care); + Path : Path_Name_Type; + begin if not Debug.Debug_Flag_N then for Index in @@ -681,7 +686,8 @@ package body Prj is procedure Record_Temp_File (Tree : Project_Tree_Ref; - Path : Path_Name_Type) is + Path : Path_Name_Type) + is begin Temp_Files_Table.Append (Tree.Private_Part.Temp_Files, Path); end Record_Temp_File; |