diff options
author | Robert Dewar <dewar@adacore.com> | 2009-11-30 11:02:59 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 12:02:59 +0100 |
commit | c8c4161707cfe88595cd28a4eb652f4f4bb56abe (patch) | |
tree | 87efa50648640acd66b844c8d4f6a09069533ef1 /gcc/ada/prj.adb | |
parent | c9df623a129fb2423546ec5ab3208b846be83d93 (diff) | |
download | gcc-c8c4161707cfe88595cd28a4eb652f4f4bb56abe.zip gcc-c8c4161707cfe88595cd28a4eb652f4f4bb56abe.tar.gz gcc-c8c4161707cfe88595cd28a4eb652f4f4bb56abe.tar.bz2 |
makeutl.adb, [...]: Minor reformatting.
2009-11-30 Robert Dewar <dewar@adacore.com>
* makeutl.adb, makeutl.ads, prj-proc.adb, prj.adb, prj.ads: Minor
reformatting.
From-SVN: r154783
Diffstat (limited to 'gcc/ada/prj.adb')
-rw-r--r-- | gcc/ada/prj.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb index ff484f5..1d87d19 100644 --- a/gcc/ada/prj.adb +++ b/gcc/ada/prj.adb @@ -687,10 +687,11 @@ package body Prj is is Index_Img : constant String := Source_Index'Img; Last : Natural; + begin Get_Name_String (Source_File_Name); - Last := Name_Len; + Last := Name_Len; while Last > 1 and then Name_Buffer (Last) /= '.' loop Last := Last - 1; end loop; @@ -704,7 +705,6 @@ package body Prj is if Object_File_Suffix = No_Name then Add_Str_To_Name_Buffer (Object_Suffix); - else Add_Str_To_Name_Buffer (Get_Name_String (Object_File_Suffix)); end if; |