diff options
Diffstat (limited to 'gcc/ada/sprint.adb')
| -rw-r--r-- | gcc/ada/sprint.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 938d2b2..7a97492 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -1772,8 +1772,8 @@ package body Sprint is Sprint_Node (Name (Node)); Write_Char (';'); - when N_Exit_Statement => - Write_Indent_Str_Sloc ("exit"); + when N_Loop_Flow_Statement => + Write_Indent_Str_Sloc (Loop_Flow_Keyword (Node)); Sprint_Opt_Node (Name (Node)); if Present (Condition (Node)) then @@ -4634,7 +4634,7 @@ package body Sprint is Param : Entity_Id; begin - Param := First_Entity (Typ); + Param := First_Formal (Typ); loop Write_Id (Param); Write_Str (" : "); @@ -4646,7 +4646,7 @@ package body Sprint is end if; Write_Id (Etype (Param)); - Next_Entity (Param); + Next_Formal (Param); exit when No (Param); Write_Str (", "); end loop; |