From e839168738cb28cd768492b0b998c2c606cd7526 Mon Sep 17 00:00:00 2001 From: Yannick Moy Date: Mon, 12 Jul 2021 12:44:36 +0200 Subject: [PATCH] [Ada] Rename "optional" node subtypes that allow Empty gcc/ada/ * gen_il-gen.adb (Put_Opt_Subtype): Add suffix. --- 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 db2a5fc..3bb9807 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; -- 2.7.4