diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-22 14:45:14 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-22 14:45:14 +0200 |
| commit | ccd6f4147ce06511cbcc8df80bdcea21d8afe639 (patch) | |
| tree | b16b5d2a728ab8a0162f8e588476afbd69f54938 /gcc/ada/sem_disp.adb | |
| parent | 167b47d9da9a82c0c8f426f1853a961f10322be0 (diff) | |
| download | gcc-ccd6f4147ce06511cbcc8df80bdcea21d8afe639.zip gcc-ccd6f4147ce06511cbcc8df80bdcea21d8afe639.tar.gz gcc-ccd6f4147ce06511cbcc8df80bdcea21d8afe639.tar.bz2 | |
[multiple changes]
2015-05-22 Robert Dewar <dewar@adacore.com>
* sem_ch12.adb, prj.ads, makeutl.ads, sem_ch6.adb, prj-nmsc.adb,
prj-conf.adb, sem_disp.adb: Minor reformatting.
2015-05-22 Vincent Celier <celier@adacore.com>
* clean.adb (Parse_Cmd_Line): For native gnatclean, check
for switch -P and, if found and gprclean is available, invoke
silently gprclean.
* make.adb (Initialize): For native gnatmake, check for switch -P
and, if found and gprbuild is available, invoke silently gprbuild.
2015-05-22 Eric Botcazou <ebotcazou@adacore.com>
* sem_ch13.adb (Validate_Unchecked_Conversions): Also issue
specific warning for discrete types when the source is larger
than the target.
From-SVN: r223555
Diffstat (limited to 'gcc/ada/sem_disp.adb')
| -rw-r--r-- | gcc/ada/sem_disp.adb | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/gcc/ada/sem_disp.adb b/gcc/ada/sem_disp.adb index 273b0cd..55e5dcd 100644 --- a/gcc/ada/sem_disp.adb +++ b/gcc/ada/sem_disp.adb @@ -818,15 +818,13 @@ package body Sem_Disp is -- (the only current case of a tag-indeterminate attribute -- is the stream Input attribute). - elsif - Nkind (Original_Node (Actual)) = N_Attribute_Reference + elsif Nkind (Original_Node (Actual)) = N_Attribute_Reference then Func := Empty; -- Ditto if it is an explicit dereference. - elsif - Nkind (Original_Node (Actual)) = N_Explicit_Dereference + elsif Nkind (Original_Node (Actual)) = N_Explicit_Dereference then Func := Empty; @@ -835,9 +833,8 @@ package body Sem_Disp is else Func := - Entity (Name - (Original_Node - (Expression (Original_Node (Actual))))); + Entity (Name (Original_Node + (Expression (Original_Node (Actual))))); end if; if Present (Func) and then Is_Abstract_Subprogram (Func) then |