From 592b9a75fcfc1c857eb7f085bd9eec541262ed68 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 27 May 2008 14:36:15 +0200 Subject: [PATCH] * prj-nmsc.adb: Minor reformatting From-SVN: r136024 --- gcc/ada/prj-nmsc.adb | 7 ++----- 1 file 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 -- 2.7.4