diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-31 10:09:08 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-31 10:09:08 +0000 |
| commit | aa0a69abb127974bd64b206be9529f49910d7f82 (patch) | |
| tree | f57566a77072c4f68d1cbfc9fa74d269655364e6 /gcc/ada/exp_ch3.adb | |
| parent | 051378617c7c9093275018fb0c471f006072c507 (diff) | |
| download | gcc-aa0a69abb127974bd64b206be9529f49910d7f82.tar.gz | |
2014-07-31 Robert Dewar <dewar@adacore.com>
* frontend.adb: Minor reformatting.
* sem.adb: Minor reformatting.
* sem_ch6.adb (Analyze_Null_Procedure): Set proper sloc for
identifiers on rewrite.
* par.adb: Minor comment updates.
* a-ngelfu.adb (Cos): Minor simplification.
* par-ch13.adb (Get_Aspect_Specifications): Improve messages
and recovery for bad aspect.
* exp_ch3.adb: Code clean up.
* sem_util.ads: Minor comment correction.
* sem_ch13.adb (Check_Array_Type): Properly handle large types.
* sem_ch3.adb: Code clean up.
* binderr.ads: Minor comment correction.
2014-07-31 Ed Schonberg <schonberg@adacore.com>
* exp_disp.adb (Expand_Interface_Conversion): A call whose
prefix is a static conversion to an interface type that is not
class-wide is not dispatching.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213338 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch3.adb')
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index d404d377b6a..5d5edf3bf78 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -4589,9 +4589,9 @@ package body Exp_Ch3 is -- Expand_Record_Extension is called directly from the semantics, so -- we must check to see whether expansion is active before proceeding -- Because this affects the visibility of selected components in bodies - -- of instances, it must also be called in ASIS mode. + -- of instances. - if not (Expander_Active or ASIS_Mode) then + if not Expander_Active then return; end if; |