diff options
Diffstat (limited to 'gcc/ada/par-ch8.adb')
| -rw-r--r-- | gcc/ada/par-ch8.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/par-ch8.adb b/gcc/ada/par-ch8.adb index 456c86358be..4dea281647a 100644 --- a/gcc/ada/par-ch8.adb +++ b/gcc/ada/par-ch8.adb @@ -65,6 +65,7 @@ package body Ch8 is Append (Use_Node, Item_List); Is_Last := True; + else Set_More_Ids (Use_Node); @@ -152,11 +153,12 @@ package body Ch8 is -- Error recovery: cannot raise Error_Resync procedure P_Use_Type_Clause (Item_List : List_Id) is + Use_Sloc : constant Source_Ptr := Prev_Token_Ptr; + All_Present : Boolean; Is_First : Boolean := True; Is_Last : Boolean := False; Use_Node : Node_Id; - Use_Sloc : constant Source_Ptr := Prev_Token_Ptr; begin if Token = Tok_All then |