diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-10-17 09:12:56 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-10-17 09:12:56 +0000 |
| commit | b85d62ecf9725856a93b95c1bc9750cded220de8 (patch) | |
| tree | 1d9943ad754fe87970c7c3350721947585e57d17 /gcc/ada/prj-nmsc.adb | |
| parent | 856a9917ae1b8088af710a53a68093bfc3bbc9da (diff) | |
| download | gcc-b85d62ecf9725856a93b95c1bc9750cded220de8.tar.gz | |
2014-10-17 Robert Dewar <dewar@adacore.com>
* sem_ch5.adb, sem_ch7.adb, prj-nmsc.adb, sem_ch13.adb, exp_ch3.adb:
Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@216381 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-nmsc.adb')
| -rw-r--r-- | gcc/ada/prj-nmsc.adb | 30 |
1 files changed, 17 insertions, 13 deletions
diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index 0e0117af7b4..5d3d6290799 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -5032,7 +5032,8 @@ package body Prj.Nmsc is if OK then for J in 1 .. Name_Len loop if Name_Buffer (J) = '/' - or else Name_Buffer (J) = Directory_Separator + or else + Name_Buffer (J) = Directory_Separator then OK := False; exit; @@ -5498,15 +5499,16 @@ package body Prj.Nmsc is Dir_Exists : Boolean; No_Sources : constant Boolean := - Project.Qualifier = Abstract_Project - or else - (((not Source_Files.Default - and then Source_Files.Values = Nil_String) - or else (not Source_Dirs.Default - and then Source_Dirs.Values = Nil_String) - or else (not Languages.Default - and then Languages.Values = Nil_String)) - and then Project.Extends = No_Project); + Project.Qualifier = Abstract_Project + or else (((not Source_Files.Default + and then Source_Files.Values = Nil_String) + or else + (not Source_Dirs.Default + and then Source_Dirs.Values = Nil_String) + or else + (not Languages.Default + and then Languages.Values = Nil_String)) + and then Project.Extends = No_Project); -- Start of processing for Get_Directories @@ -6305,7 +6307,7 @@ package body Prj.Nmsc is Dir_Exists := Is_Directory (Full_Path_Name.all); - if not Must_Exist or else Dir_Exists then + if not Must_Exist or Dir_Exists then declare Normed : constant String := Normalize_Pathname @@ -6484,7 +6486,8 @@ package body Prj.Nmsc is for J in 1 .. Last loop if Line (J) = '/' - or else Line (J) = Directory_Separator + or else + Line (J) = Directory_Separator then Error_Msg_File_1 := Name; Error_Msg @@ -6598,7 +6601,8 @@ package body Prj.Nmsc is for J in 1 .. Name_Len loop if Name_Buffer (J) = '/' - or else Name_Buffer (J) = Directory_Separator + or else + Name_Buffer (J) = Directory_Separator then Error_Msg_File_1 := Name; Error_Msg |