mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-25 14:51:00 +08:00
Code Issues Packages Projects Releases Wiki Activity

* prj-nmsc.adb: Minor reformatting

Browse Source 
From-SVN: r136024
This commit is contained in:
Arnaud Charlet 2008-05-27 14:36:15 +02:00
parent 0773617140
commit 592b9a75fc
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ada/prj-nmsc.adb
View File

@ -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