Commit c2352415 by Eric Botcazou

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
parent 361af3e4
2019-06-25 Eric Botcazou <ebotcazou@adacore.com>
* 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.
2019-06-24 Jan Hubicka <jh@suse.cz> 2019-06-24 Jan Hubicka <jh@suse.cz>
* gcc-interface/decl.c (gnat_to_gnu_entity): Check that * gcc-interface/decl.c (gnat_to_gnu_entity): Check that
type is array or integer prior checking string flag. type is array or integer prior checking string flag.
* gcc-interface/gigi.h (gnat_signed_type_for, * gcc-interface/gigi.h (maybe_character_type): Likewise.
maybe_character_value): Likewise. (maybe_character_value): Likewise.
2019-06-24 Martin Sebor <msebor@redhat.com> 2019-06-24 Martin Sebor <msebor@redhat.com>
...@@ -12,15 +19,13 @@ ...@@ -12,15 +19,13 @@
2019-06-18 Arnaud Charlet <charlet@adacore.com> 2019-06-18 Arnaud Charlet <charlet@adacore.com>
PR ada/80590 PR ada/80590
* sem_ch5.adb (Analyze_Loop_Statement): Avoid exception propagation * sem_ch5.adb (Analyze_Loop_Statement): Avoid exception propagation
during normal processing. during normal processing.
2019-06-17 Arnaud Charlet <charlet@adacore.com> 2019-06-17 Arnaud Charlet <charlet@adacore.com>
PR ada/80590 PR ada/80590
* exp_ch9.adb (Expand_N_Delay_Relative_Statement): Swap the two * exp_ch9.adb (Expand_N_Delay_Relative_Statement): Swap the two
conditions to avoid a unnecessary exception propagation in the default conditions to avoid a unnecessary exception propagation in the default
case. case.
......
...@@ -1855,8 +1855,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition) ...@@ -1855,8 +1855,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition)
= Has_Biased_Representation (gnat_entity); = Has_Biased_Representation (gnat_entity);
/* Do the same processing for Character subtypes as for types. */ /* Do the same processing for Character subtypes as for types. */
if ((TREE_CODE (TREE_TYPE (gnu_type)) == INTEGER_TYPE if (TREE_CODE (TREE_TYPE (gnu_type)) == INTEGER_TYPE
|| TREE_CODE (TREE_TYPE (gnu_type)) == ARRAY_TYPE)
&& TYPE_STRING_FLAG (TREE_TYPE (gnu_type))) && TYPE_STRING_FLAG (TREE_TYPE (gnu_type)))
{ {
TYPE_NAME (gnu_type) = gnu_entity_name; TYPE_NAME (gnu_type) = gnu_entity_name;
......
...@@ -1139,7 +1139,8 @@ static inline tree ...@@ -1139,7 +1139,8 @@ static inline tree
maybe_character_type (tree type) maybe_character_type (tree type)
{ {
if (TREE_CODE (type) == INTEGER_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); type = gnat_unsigned_type_for (type);
return type; return type;
...@@ -1153,7 +1154,8 @@ maybe_character_value (tree expr) ...@@ -1153,7 +1154,8 @@ maybe_character_value (tree expr)
tree type = TREE_TYPE (expr); tree type = TREE_TYPE (expr);
if (TREE_CODE (type) == INTEGER_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); type = gnat_unsigned_type_for (type);
expr = convert (type, expr); expr = convert (type, expr);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment