diff options
| author | Gary Funck <gary@intrepid.com> | 2017-10-17 03:19:54 +0000 |
|---|---|---|
| committer | Gary Funck <gary@intrepid.com> | 2017-10-17 03:19:54 +0000 |
| commit | 94de5b24eede2f2ed005b253a2c584675cd682d8 (patch) | |
| tree | ac7aa645d5d9139bd11f7410e3654026e3e2cd44 /gcc/ada/par-ch8.adb | |
| parent | 7af4e6706d969f6d2402e0a50473a70a9c85e5be (diff) | |
| parent | 8905b0de50e8b67dda7c2e787c840720b98a637d (diff) | |
Merge trunk version 253779 into gupc branch.gupc
git-svn-id: https://gcc.gnu.org/svn/gcc/branches/gupc@253802 138bc75d-0d04-0410-961f-82ee72b054a4
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 |