[gcc r12-3755] [Ada] Rename "optional" node subtypes that allow Empty

[gcc r12-3755] [Ada] Rename "optional" node subtypes that allow Empty

[Pierre-Marie de Rodat]

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

commit r12-3755-ge839168738cb28cd768492b0b998c2c606cd7526
Author: Yannick Moy <moy@adacore.com>
Date:   Mon Jul 12 12:44:36 2021 +0200

    [Ada] Rename "optional" node subtypes that allow Empty
    
    gcc/ada/
    
            * gen_il-gen.adb (Put_Opt_Subtype): Add suffix.

Diff:
---
 gcc/ada/gen_il-gen.adb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gcc/ada/gen_il-gen.adb b/gcc/ada/gen_il-gen.adb
index db2a5fc15b2..3bb98079b30 100644
--- a/gcc/ada/gen_il-gen.adb
+++ b/gcc/ada/gen_il-gen.adb
@@ -1503,7 +1503,7 @@ package body Gen_IL.Gen is
          procedure Put_Opt_Subtype (T : Node_Or_Entity_Type) is
          begin
             if Type_Table (T).Parent /= No_Type then
-               Put (S, "subtype Opt_" & Image (T) & " is" & LF);
+               Put (S, "subtype Opt_" & Id_Image (T) & " is" & LF);
                Increase_Indent (S, 2);
                Put (S, Id_Image (Root));
 
@@ -1513,8 +1513,8 @@ package body Gen_IL.Gen is
                if Enable_Assertions then
                   Put (S, " with Predicate =>" & LF);
                   Increase_Indent (S, 2);
-                  Put (S, "Opt_" & Image (T) & " = Empty or else" & LF);
-                  Put (S, "Opt_" & Image (T) & " in " & Id_Image (T));
+                  Put (S, "Opt_" & Id_Image (T) & " = Empty or else" & LF);
+                  Put (S, "Opt_" & Id_Image (T) & " in " & Id_Image (T));
                   Decrease_Indent (S, 2);
                end if;