diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-01-07 10:22:51 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-01-07 10:22:51 +0000 |
| commit | e2c7aa50fe37a9ac2d730c26e6aac06aea885431 (patch) | |
| tree | 92e7f939154e78a6d1f27eeeb657dea9a7317fb0 /gcc/ada/clean.adb | |
| parent | 86c324a6ab35d14c597a9f86bfd97fc13c47cfe2 (diff) | |
| download | gcc-e2c7aa50fe37a9ac2d730c26e6aac06aea885431.tar.gz | |
2015-01-07 Robert Dewar <dewar@adacore.com>
* s-taprop-linux.adb, clean.adb: Minor reformatting.
2015-01-07 Arnaud Charlet <charlet@adacore.com>
* s-tassta.adb: Relax some overzealous assertions.
2015-01-07 Ed Schonberg <schonberg@adacore.com>
* sem_ch6.adb (Analyze_Return_Type): An call that returns a limited
view of a type is legal when context is a thunk generated for
operation inherited from an interface.
* exp_ch6.adb (Expand_Simple_Function_Return): If context is
a thunk and return type is an incomplete type do not continue
expansion; thunk will be fully elaborated when generating code.
2015-01-07 Doug Rupp <rupp@adacore.com>
* s-osinte-mingw.ads (LARGE_INTEGR): New subtype.
(QueryPerformanceFrequency): New imported procedure.
* s-taprop-mingw.adb (RT_Resolution): Call above and return
resolution vice a hardcoded value.
* s-taprop-solaris.adb (RT_Resolution): Call clock_getres and return
resolution vice a hardcoded value.
* s-linux-android.ads (clockid_t): New subtype.
* s-osinte-aix.ads (clock_getres): New imported subprogram.
* s-osinte-android.ads (clock_getres): Likewise.
* s-osinte-freebsd.ads (clock_getres): Likewise.
* s-osinte-solaris-posix.ads (clock_getres): Likewise.
* s-osinte-darwin.ads (clock_getres): New subprogram.
* s-osinte-darwin.adb (clock_getres): New subprogram.
* thread.c (__gnat_clock_get_res) [__APPLE__]: New function.
* s-taprop-posix.adb (RT_Resolution): Call clock_getres to
calculate resolution vice hard coded value.
2015-01-07 Ed Schonberg <schonberg@adacore.com>
* exp_util.adb (Make_CW_Equivalent_Type): If root type is a
limited view, use non-limited view when available to create
equivalent record type.
2015-01-07 Vincent Celier <celier@adacore.com>
* gnatcmd.adb: Remove command Sync and any data and processing
related to this command. Remove project processing for gnatstack.
* prj-attr.adb: Remove package Synchonize and its attributes.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@219291 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/clean.adb')
| -rw-r--r-- | gcc/ada/clean.adb | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/gcc/ada/clean.adb b/gcc/ada/clean.adb index a9dede587ba..6a7f7fa275b 100644 --- a/gcc/ada/clean.adb +++ b/gcc/ada/clean.adb @@ -897,9 +897,9 @@ package body Clean is -- object directory. if (Unit.File_Names (Impl) /= null - and then - In_Extension_Chain - (Unit.File_Names (Impl).Project, Project)) + and then + In_Extension_Chain + (Unit.File_Names (Impl).Project, Project)) or else (Unit.File_Names (Spec) /= null and then @@ -1387,8 +1387,8 @@ package body Clean is if Project_File_Name /= null then Put_Line - ("warning: gnatclean -P is obsolete and will not be available " & - "in the next release; use gprclean instead."); + ("warning: gnatclean -P is obsolete and will not be available " + & "in the next release; use gprclean instead."); end if; -- A project file was specified by a -P switch @@ -1655,8 +1655,9 @@ package body Clean is case Arg (2) is when '-' => - if Arg'Length > Subdirs_Option'Length and then - Arg (1 .. Subdirs_Option'Length) = Subdirs_Option + if Arg'Length > Subdirs_Option'Length + and then + Arg (1 .. Subdirs_Option'Length) = Subdirs_Option then Subdirs := new String' @@ -1790,7 +1791,8 @@ package body Clean is declare Prj : constant String := Arg (3 .. Arg'Last); begin - if Prj'Length > 1 and then Prj (Prj'First) = '=' + if Prj'Length > 1 + and then Prj (Prj'First) = '=' then Project_File_Name := new String' |