decl.c (set_nonaliased_component_on_array_type): Add missing guard for the…

decl.c (set_nonaliased_component_on_array_type): Add missing guard for the presence of TYPE_CANONICAL.

	* gcc-interface/decl.c (set_nonaliased_component_on_array_type): Add
	missing guard for the presence of TYPE_CANONICAL.
	(set_reverse_storage_order_on_array_type): Likewise.

From-SVN: r272811

gcc/ada/ChangeLog

 2019-06-29  Eric Botcazou  <ebotcazou@adacore.com>
 
+	* gcc-interface/decl.c (set_nonaliased_component_on_array_type): Add
+	missing guard for the presence of TYPE_CANONICAL.
+	(set_reverse_storage_order_on_array_type): Likewise.
+
+2019-06-29  Eric Botcazou  <ebotcazou@adacore.com>
+
 	* gcc-interface/gigi.h (make_packable_type): Remove default value.
 	(value_factor_p): Tweak prototype.
 	* gcc-interface/decl.c (gnat_to_gnu_entity): Add comment.

gcc/ada/gcc-interface/decl.c

@@ -6150,6 +6150,7 @@ static void
 set_nonaliased_component_on_array_type (tree type)
 {
   TYPE_NONALIASED_COMPONENT (type) = 1;
+  if (TYPE_CANONICAL (type))
     TYPE_NONALIASED_COMPONENT (TYPE_CANONICAL (type)) = 1;
 }
 
@@ -6160,6 +6161,7 @@ static void
 set_reverse_storage_order_on_array_type (tree type)
 {
   TYPE_REVERSE_STORAGE_ORDER (type) = 1;
+  if (TYPE_CANONICAL (type))
     TYPE_REVERSE_STORAGE_ORDER (TYPE_CANONICAL (type)) = 1;
 }