diff options
| author | Robert Dewar <dewar@gnat.com> | 2004-09-21 15:31:03 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-09-21 17:31:03 +0200 |
| commit | 910d20fcb8c5fa83c64c1540cca945cc0c31d77c (patch) | |
| tree | 0f2f5fda62754d844de054ab5257854ecaf80e0f /gcc/ada/ada-tree.h | |
| parent | f1b1846249458e8b583b407f674fec541c4f6869 (diff) | |
| download | gcc-910d20fcb8c5fa83c64c1540cca945cc0c31d77c.zip gcc-910d20fcb8c5fa83c64c1540cca945cc0c31d77c.tar.gz gcc-910d20fcb8c5fa83c64c1540cca945cc0c31d77c.tar.bz2 | |
decl.c (gnat_to_gnu_type, [...]): Wrap modular packed array types in both little- and big-endian cases.
2004-09-21 Robert Dewar <dewar@gnat.com>
* decl.c (gnat_to_gnu_type, case E_Modular_Integer_Type): Wrap modular
packed array types in both little- and big-endian cases. This change
ensures that we no longer count on the unused bits being initialized
for such types (and in particular ensures that equality testing will
only read the relevant bits).
Change name TYPE_LEFT_JUSTIFIED_MODULAR_P to TYPE_JUSTIFIED_MODULAR_P
These changes mean that we no longer need to initialize small packed
arrays.
(gnat_to_gnu_entity) <E_Record_Subtype>: Apply the same
optimization to an LJM field as to its parent field.
* ada-tree.h:, trans.c, utils.c, utils2.c:
Change name TYPE_LEFT_JUSTIFIED_MODULAR_P to TYPE_JUSTIFIED_MODULAR_P
From-SVN: r87806
Diffstat (limited to 'gcc/ada/ada-tree.h')
| -rw-r--r-- | gcc/ada/ada-tree.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/ada-tree.h b/gcc/ada/ada-tree.h index 7d4a756..c087f78 100644 --- a/gcc/ada/ada-tree.h +++ b/gcc/ada/ada-tree.h @@ -86,8 +86,8 @@ struct lang_type GTY(()) {tree t; }; TYPE_LANG_FLAG_1 (FUNCTION_TYPE_CHECK (NODE)) /* For RECORD_TYPE, UNION_TYPE, and QUAL_UNION_TYPE, nonzero if this denotes - a left-justified modular type (will only be true for RECORD_TYPE). */ -#define TYPE_LEFT_JUSTIFIED_MODULAR_P(NODE) \ + a justified modular type (will only be true for RECORD_TYPE). */ +#define TYPE_JUSTIFIED_MODULAR_P(NODE) \ TYPE_LANG_FLAG_1 (RECORD_OR_UNION_CHECK (NODE)) /* Nonzero in an arithmetic subtype if this is a subtype not known to the @@ -290,4 +290,4 @@ struct lang_type GTY(()) {tree t; }; #define REGION_STMT_BLOCK(NODE) TREE_OPERAND_CHECK_CODE (NODE, REGION_STMT, 2) #define HANDLER_STMT_ARG(NODE) TREE_OPERAND_CHECK_CODE (NODE, HANDLER_STMT, 0) #define HANDLER_STMT_LIST(NODE) TREE_OPERAND_CHECK_CODE (NODE, HANDLER_STMT, 1) -#define HANDLER_STMT_BLOCK(NODE) TREE_OPERAND_CHECK_CODE (NODE, HANDLER_STMT, 2) +#define HANDLER_STMT_BLOCK(NODE) TREE_OPERAND_CHECK_CODE(NODE, HANDLER_STMT, 2) |