Message ID | 20201130141712.GA117864@adacore.com |
---|---|
State | New |
Headers | show |
Series | [Ada] Improve error recovery | expand |
diff --git a/gcc/ada/par-ch6.adb b/gcc/ada/par-ch6.adb --- a/gcc/ada/par-ch6.adb +++ b/gcc/ada/par-ch6.adb @@ -1650,7 +1650,6 @@ package body Ch6 is elsif Token = Tok_Comma then T_Semicolon; - Scan; -- past comma -- Special check for omitted separator diff --git a/gcc/ada/par-tchk.adb b/gcc/ada/par-tchk.adb --- a/gcc/ada/par-tchk.adb +++ b/gcc/ada/par-tchk.adb @@ -436,7 +436,6 @@ package body Tchk is procedure T_Semicolon is begin - if Token = Tok_Semicolon then Scan;