OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Rename "optional" node subtypes that allow Empty

Browse Source 
gcc/ada/

	* gen_il-gen.adb (Put_Opt_Subtype): Add suffix.
This commit is contained in:
Yannick Moy 2021-07-12 12:44:36 +02:00 committed by Pierre-Marie de Rodat
parent 7d9735bbb8
commit e839168738
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/gen_il-gen.adb
View File

@ -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;