diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-16 16:33:11 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-16 16:33:11 +0200 |
| commit | 3f1bc2cf467b4b05d02a51c74947f39099749cde (patch) | |
| tree | 56f2a46c5385f462155fe01b0bdcb4519cc7ea8a /gcc/ada/sem_ch13.adb | |
| parent | b07b7acecfd5b064a30b15b4767401ff56a60da7 (diff) | |
| download | gcc-3f1bc2cf467b4b05d02a51c74947f39099749cde.tar.gz | |
[multiple changes]
2014-07-16 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, sem_prag.adb, sem_util.adb, sem_res.adb, sem_ch13.adb:
Minor code reorganization (use Is_Access_Type, not in Access_Kind).
* exp_ch3.adb: Minor code reorganization, use Is_Access_Type,
not in Access_Kind.
* par-ch4.adb (At_Start_Of_Attribute): New function
(P_Simple_Expression): Better msg for bad attribute prefix.
* scans.ads: Minor reformatting.
2014-07-16 Ed Schonberg <schonberg@adacore.com>
* sem_attr.adb (Resolve_Attribute, case 'Update): If choice is a
static constant, check that in belongs to the corresponding index
subtype, to produce the proer warning when expansion is disabled.
2014-07-16 Robert Dewar <dewar@adacore.com>
* freeze.adb (Freeze_Entity): Warn on incompatible size/alignment.
* gnat_ugn.texi: Document -gnatw.z and -gnatw.Z.
* ug_words: VMS synonyms (WARNINGS=[NO]SIZE_ALIGN) for -gnatw.z/-gnatw.Z
* usage.adb: Add lines for -gnatw.z/-gnatw.Z.
* vms_data.ads: VMS synonyms (WARNINGS=[NO]SIZE_ALIGN) for
-gnatw.z/-gnatw.Z
* warnsw.adb: Set Warn_On_Size_Alignment appropriately.
* warnsw.ads (Warn_On_Size_Alignment): New flag Minor
reformatting.
From-SVN: r212656
Diffstat (limited to 'gcc/ada/sem_ch13.adb')
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index f3dd0585ef2..111e9a6078d 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -12024,8 +12024,8 @@ package body Sem_Ch13 is -- If the alignment of both is specified, we can do it here. if Serious_Errors_Detected = 0 - and then Ekind (Source) in Access_Kind - and then Ekind (Target) in Access_Kind + and then Is_Access_Type (Source) + and then Is_Access_Type (Target) and then Target_Strict_Alignment and then Present (Designated_Type (Source)) and then Present (Designated_Type (Target)) |