diff options
Diffstat (limited to 'gcc/ada/par-ch2.adb')
| -rw-r--r-- | gcc/ada/par-ch2.adb | 18 |
1 files changed, 5 insertions, 13 deletions
diff --git a/gcc/ada/par-ch2.adb b/gcc/ada/par-ch2.adb index 224c63b..2218dac 100644 --- a/gcc/ada/par-ch2.adb +++ b/gcc/ada/par-ch2.adb @@ -250,23 +250,15 @@ package body Ch2 is procedure Skip_Pragma_Semicolon is begin - if Token /= Tok_Semicolon then + -- If skipping the pragma, ignore a missing semicolon - -- If skipping the pragma, ignore a missing semicolon + if Token /= Tok_Semicolon and then Skipping then + null; - if Skipping then - null; - - -- Otherwise demand a semicolon - - else - T_Semicolon; - end if; - - -- Scan past semicolon if present + -- Otherwise demand a semicolon else - Scan; + T_Semicolon; end if; end Skip_Pragma_Semicolon; |