diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-18 12:58:22 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-18 12:58:22 +0000 |
| commit | 97d14ea2997ec71ae36b49b33610b295f2cf75c2 (patch) | |
| tree | 101be37eb6b24b438927cbeac6c68bfcf9502723 /gcc/ada/exp_ch6.adb | |
| parent | b379e58c47468b3d5eff1fd4c8d73a874a17df90 (diff) | |
| download | gcc-97d14ea2997ec71ae36b49b33610b295f2cf75c2.tar.gz | |
2016-04-18 Arnaud Charlet <charlet@adacore.com>
* einfo.adb (Overridden_Operation): assert that
function is called for valid arguments.
* sem_aggr.adb, sem_ch3.adb, sem_ch5.adb, sem_type.adb,
s-osinte-vxworks.ads, a-ngcefu.adb, sem_ch10.adb, einfo.ads,
sem_prag.adb, sem_ch12.adb, sem.adb, i-cobol.ads, freeze.adb,
sem_util.adb, a-chtgop.ads, s-rannum.adb, exp_ch6.adb, s-bignum.adb,
s-osinte-freebsd.ads, par-ch5.adb, a-chtgbo.ads, a-cofove.adb:
No space after closing parenthesis except where required for
layout.
* sem_res.adb: Minor reformatting.
2016-04-18 Arnaud Charlet <charlet@adacore.com>
* exp_ch4.adb (Expand_N_Case_Expression): Convert into a case
statement when relevant.
2016-04-18 Bob Duff <duff@adacore.com>
* a-cuprqu.adb (Enqueue): Properly handle the
case where the new element has a unique priority.
2016-04-18 Tristan Gingold <gingold@adacore.com>
* adaint.h: Define stat structures and functions for iOS
simulator.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@235146 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index b1d4293146c..704a5c04dd3 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -3707,7 +3707,7 @@ package body Exp_Ch6 is Make_Explicit_Dereference (Loc, Prefix => Nam); - if Present (Parameter_Associations (Call_Node)) then + if Present (Parameter_Associations (Call_Node)) then Parm := Parameter_Associations (Call_Node); else Parm := New_List; @@ -3790,7 +3790,7 @@ package body Exp_Ch6 is (RTE (RE_Address), Relocate_Node (First_Actual (Call_Node)))); return; - elsif Is_Null_Procedure (Subp) then + elsif Is_Null_Procedure (Subp) then Rewrite (Call_Node, Make_Null_Statement (Loc)); return; end if; |