diff options
| author | Robert Dewar <dewar@adacore.com> | 2011-08-29 09:34:19 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 11:34:19 +0200 |
| commit | f0f88eb6da6cebf88ec1b3fc2d75b6b350c1bfba (patch) | |
| tree | 4ddce1f125b1a2af8c3d5dd0c7454f02fe1040a4 /gcc/ada/prj.ads | |
| parent | 3e37be71aa737869a2c02a8d041dd63d14d80025 (diff) | |
| download | gcc-f0f88eb6da6cebf88ec1b3fc2d75b6b350c1bfba.tar.gz | |
exp_ch9.adb, [...]: Minor reformatting.
2011-08-29 Robert Dewar <dewar@adacore.com>
* exp_ch9.adb, mlib-prj.adb, prj.adb, prj.ads, ttypes.ads, sem_ch4.adb,
makeutl.adb, makeutl.ads, atree.ads, snames.adb-tmpl,
snames.ads-tmpl: Minor reformatting.
From-SVN: r178179
Diffstat (limited to 'gcc/ada/prj.ads')
| -rw-r--r-- | gcc/ada/prj.ads | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads index 131a45b896b..aa953b35931 100644 --- a/gcc/ada/prj.ads +++ b/gcc/ada/prj.ads @@ -1599,8 +1599,7 @@ package Prj is -- Call Setenv, after calling To_Host_File_Spec function Current_Source_Path_File_Of - (Shared : Shared_Project_Tree_Data_Access) - return Path_Name_Type; + (Shared : Shared_Project_Tree_Data_Access) return Path_Name_Type; -- Get the current include path file name procedure Set_Current_Source_Path_File_Of @@ -1609,8 +1608,7 @@ package Prj is -- Record the current include path file name function Current_Object_Path_File_Of - (Shared : Shared_Project_Tree_Data_Access) - return Path_Name_Type; + (Shared : Shared_Project_Tree_Data_Access) return Path_Name_Type; -- Get the current object path file name procedure Set_Current_Object_Path_File_Of @@ -1699,7 +1697,7 @@ package Prj is -- resolved will simply be ignored. However, in such a case, the flag -- Incomplete_With in the project tree will be set to True. -- This is meant for use by tools so that they can properly set the - -- project path in such a case:Shared_ + -- project path in such a case: -- * no "gnatls" found (so no default project path) -- * user project sets Project.IDE'gnatls attribute to a cross gnatls -- * user project also includes a "with" that can only be resolved |