[gcc r10-10120] Fix internal error on pointer-to-pointer binding in LTO mode

[gcc r10-10120] Fix internal error on pointer-to-pointer binding in LTO mode

[Eric Botcazou]

https://gcc.gnu.org/g:bc4cc866114553ad0f487f83bc2cbfc85c88e92d

commit r10-10120-gbc4cc866114553ad0f487f83bc2cbfc85c88e92d
Author: Eric Botcazou <ebotcazou@adacore.com>
Date:   Tue Sep 14 10:44:34 2021 +0200

    Fix internal error on pointer-to-pointer binding in LTO mode
    
    gcc/ada/
            * gcc-interface/utils.c (update_pointer_to): Set TYPE_CANONICAL on
            pointer and reference types.

Diff:
---
 gcc/ada/gcc-interface/utils.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c
index 3dcdbb88703..db78c6e8eb3 100644
--- a/gcc/ada/gcc-interface/utils.c
+++ b/gcc/ada/gcc-interface/utils.c
@@ -4230,6 +4230,7 @@ update_pointer_to (tree old_type, tree new_type)
 	    TREE_TYPE (t) = new_type;
 	    if (TYPE_NULL_BOUNDS (t))
 	      TREE_TYPE (TREE_OPERAND (TYPE_NULL_BOUNDS (t), 0)) = new_type;
+	    TYPE_CANONICAL (t) = TYPE_CANONICAL (TYPE_POINTER_TO (new_type));
 	  }
 
       /* Chain REF and its variants at the end.  */
@@ -4246,7 +4247,10 @@ update_pointer_to (tree old_type, tree new_type)
       /* Now adjust them.  */
       for (; ref; ref = TYPE_NEXT_REF_TO (ref))
 	for (t = TYPE_MAIN_VARIANT (ref); t; t = TYPE_NEXT_VARIANT (t))
-	  TREE_TYPE (t) = new_type;
+	  {
+	    TREE_TYPE (t) = new_type;
+	    TYPE_CANONICAL (t) = TYPE_CANONICAL (TYPE_REFERENCE_TO (new_type));
+	  }
 
       TYPE_POINTER_TO (old_type) = NULL_TREE;
       TYPE_REFERENCE_TO (old_type) = NULL_TREE;