diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2012-01-27 09:35:03 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2012-01-27 09:35:03 +0000 |
| commit | 5f2e59d44bc4aa1dd5e2fd9d2b412b85519fb39d (patch) | |
| tree | 2316952bdf1880a92959189d3c487e8302fcc19d /gcc/ada/gcc-interface/ada-tree.h | |
| parent | ae25db4568034756df727d432dd48caa5e5f41dc (diff) | |
| download | gcc-5f2e59d44bc4aa1dd5e2fd9d2b412b85519fb39d.zip gcc-5f2e59d44bc4aa1dd5e2fd9d2b412b85519fb39d.tar.gz gcc-5f2e59d44bc4aa1dd5e2fd9d2b412b85519fb39d.tar.bz2 | |
ada-tree.h (DECL_ALIASED_P): New flag.
* gcc-interface/ada-tree.h (DECL_ALIASED_P): New flag.
* gcc-interface/decl.c (is_variable_size): Rename to...
(type_has_variable_size): ...this.
(adjust_packed): Adjust to above renaming.
(gnat_to_gnu_field): Set DECL_ALIASED_P on the field.
(field_is_artificial): New predicate.
(field_is_aliased): Likewise.
(field_has_self_size): Likewise.
(field_has_variable_size): Likewise.
(components_to_record): Record information for the final layout during
the first pass on fields.
If there is an aliased field placed after a field whose length depends
on discriminants, put all the fields of the latter sort, last.
From-SVN: r183609
Diffstat (limited to 'gcc/ada/gcc-interface/ada-tree.h')
| -rw-r--r-- | gcc/ada/gcc-interface/ada-tree.h | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/ada-tree.h b/gcc/ada/gcc-interface/ada-tree.h index c408de3..0c32f21 100644 --- a/gcc/ada/gcc-interface/ada-tree.h +++ b/gcc/ada/gcc-interface/ada-tree.h @@ -6,7 +6,7 @@ * * * C Header File * * * - * Copyright (C) 1992-2011, Free Software Foundation, Inc. * + * Copyright (C) 1992-2012, Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * * terms of the GNU General Public License as published by the Free Soft- * @@ -344,6 +344,9 @@ do { \ pair of INDIRECT_REFs is needed to access the object. */ #define DECL_BY_DOUBLE_REF_P(NODE) DECL_LANG_FLAG_0 (PARM_DECL_CHECK (NODE)) +/* Nonzero in a FIELD_DECL if it is declared as aliased. */ +#define DECL_ALIASED_P(NODE) DECL_LANG_FLAG_0 (FIELD_DECL_CHECK (NODE)) + /* Nonzero in a TYPE_DECL if this is the declaration of a Taft amendment type in the main unit, i.e. the full declaration is available. */ #define DECL_TAFT_TYPE_P(NODE) DECL_LANG_FLAG_0 (TYPE_DECL_CHECK (NODE)) |