diff options
| author | Yannick Moy <moy@adacore.com> | 2021-07-12 12:44:36 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-09-21 15:25:03 +0000 |
| commit | e839168738cb28cd768492b0b998c2c606cd7526 (patch) | |
| tree | d0a54463c9e82f5e729b89a5dbccaa4bccc77ab5 /gcc | |
| parent | 7d9735bbb88b6e61e5405d7c99e6cc97112e7a41 (diff) | |
| download | gcc-e839168738cb28cd768492b0b998c2c606cd7526.zip gcc-e839168738cb28cd768492b0b998c2c606cd7526.tar.gz gcc-e839168738cb28cd768492b0b998c2c606cd7526.tar.bz2 | |
[Ada] Rename "optional" node subtypes that allow Empty
gcc/ada/
* gen_il-gen.adb (Put_Opt_Subtype): Add suffix.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/gen_il-gen.adb | 6 |
1 files 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; |