diff options
| author | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2019-06-25 08:17:08 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2019-06-25 08:17:08 +0000 |
| commit | c23524153d2b7b683526969a0d9b85efdc8c2767 (patch) | |
| tree | 6eabb9c78a6660bd71ad8ce27a2b109f4521db25 /gcc/ada/gcc-interface | |
| parent | 361af3e4194ce1d9620e2c3506115bba9ef18efa (diff) | |
| download | gcc-c23524153d2b7b683526969a0d9b85efdc8c2767.zip gcc-c23524153d2b7b683526969a0d9b85efdc8c2767.tar.gz gcc-c23524153d2b7b683526969a0d9b85efdc8c2767.tar.bz2 | |
decl.c (gnat_to_gnu_entity): Remove superfluous test in previous change.
* gcc-interface/decl.c (gnat_to_gnu_entity): Remove superfluous test
in previous change.
* gcc-interface/gigi.h (maybe_character_type): Fix formatting.
(maybe_character_value): Likewise.
From-SVN: r272637
Diffstat (limited to 'gcc/ada/gcc-interface')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 3 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/gigi.h | 6 |
2 files changed, 5 insertions, 4 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index df40543..a083816 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -1855,8 +1855,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition) = Has_Biased_Representation (gnat_entity); /* Do the same processing for Character subtypes as for types. */ - if ((TREE_CODE (TREE_TYPE (gnu_type)) == INTEGER_TYPE - || TREE_CODE (TREE_TYPE (gnu_type)) == ARRAY_TYPE) + if (TREE_CODE (TREE_TYPE (gnu_type)) == INTEGER_TYPE && TYPE_STRING_FLAG (TREE_TYPE (gnu_type))) { TYPE_NAME (gnu_type) = gnu_entity_name; diff --git a/gcc/ada/gcc-interface/gigi.h b/gcc/ada/gcc-interface/gigi.h index 7254a16..c8eb637 100644 --- a/gcc/ada/gcc-interface/gigi.h +++ b/gcc/ada/gcc-interface/gigi.h @@ -1139,7 +1139,8 @@ static inline tree maybe_character_type (tree type) { if (TREE_CODE (type) == INTEGER_TYPE - && TYPE_STRING_FLAG (type) && !TYPE_UNSIGNED (type)) + && TYPE_STRING_FLAG (type) + && !TYPE_UNSIGNED (type)) type = gnat_unsigned_type_for (type); return type; @@ -1153,7 +1154,8 @@ maybe_character_value (tree expr) tree type = TREE_TYPE (expr); if (TREE_CODE (type) == INTEGER_TYPE - && TYPE_STRING_FLAG (type) && !TYPE_UNSIGNED (type)) + && TYPE_STRING_FLAG (type) + && !TYPE_UNSIGNED (type)) { type = gnat_unsigned_type_for (type); expr = convert (type, expr); |