diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-27 14:36:15 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-27 14:36:15 +0200 |
| commit | 592b9a75fcfc1c857eb7f085bd9eec541262ed68 (patch) | |
| tree | 9e441fe81abfa274dfd4bcb26d4e3d69c8c44616 | |
| parent | 0773617140ab3b8f4192a52bff59deecbacbbcfe (diff) | |
| download | gcc-592b9a75fcfc1c857eb7f085bd9eec541262ed68.zip gcc-592b9a75fcfc1c857eb7f085bd9eec541262ed68.tar.gz gcc-592b9a75fcfc1c857eb7f085bd9eec541262ed68.tar.bz2 | |
* prj-nmsc.adb: Minor reformatting
From-SVN: r136024
| -rw-r--r-- | gcc/ada/prj-nmsc.adb | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index 7e61f55..d84ba7f 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -4692,7 +4692,7 @@ package body Prj.Nmsc is Data.Other_Sources_Present := False; else - -- If the configuration file does not define a language either + -- Fail if there is no default language defined if Def_Lang.Default then if not Default_Language_Is_Ada then @@ -4707,8 +4707,6 @@ package body Prj.Nmsc is end if; else - -- ??? Are we supporting a single default language in the - -- configuration file ? Get_Name_String (Def_Lang.Value); To_Lower (Name_Buffer (1 .. Name_Len)); Def_Lang_Id := Name_Find; @@ -5208,8 +5206,7 @@ package body Prj.Nmsc is In_Tree.Sources.Table (Source).Other_Part /= No_Source then - Source := - In_Tree.Sources.Table (Source).Other_Part; + Source := In_Tree.Sources.Table (Source).Other_Part; end if; String_Element_Table.Increment_Last |