diff options
| author | Bob Duff <duff@adacore.com> | 2019-12-16 10:34:22 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-12-16 10:34:22 +0000 |
| commit | 0bba838d7f4e9b851416d463d077b28aff0b561f (patch) | |
| tree | 0cf75e351f183df935e1cfbea6da0358164e9618 /gcc/ada/par-ch12.adb | |
| parent | 17a98a3dbb7f4c0d9d734bbc8890d94daa2aa4c9 (diff) | |
| download | gcc-0bba838d7f4e9b851416d463d077b28aff0b561f.zip gcc-0bba838d7f4e9b851416d463d077b28aff0b561f.tar.gz gcc-0bba838d7f4e9b851416d463d077b28aff0b561f.tar.bz2 | |
[Ada] Syntax error on improperly indented imported subprogram
2019-12-16 Bob Duff <duff@adacore.com>
gcc/ada/
* par.adb: Add Scopes function to do range checking on the scope
stack. Call Scopes all over the parser. Add
SIS_Aspect_Import_Seen flag.
* par-ch6.adb (P_Subprogram): Initialize SIS_Aspect_Import_Seen
to False at the start, and check it at the end.
* par-ch13.adb (Get_Aspect_Specifications): Set
SIS_Aspect_Import_Seen to True when appropriate.
* par-ch10.adb, par-ch12.adb, par-ch2.adb, par-ch3.adb,
par-ch5.adb, par-ch7.adb, par-ch9.adb, par-endh.adb,
par-util.adb: Call Scopes.
From-SVN: r279428
Diffstat (limited to 'gcc/ada/par-ch12.adb')
| -rw-r--r-- | gcc/ada/par-ch12.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/par-ch12.adb b/gcc/ada/par-ch12.adb index 0861c7f..3216927 100644 --- a/gcc/ada/par-ch12.adb +++ b/gcc/ada/par-ch12.adb @@ -302,7 +302,7 @@ package body Ch12 is elsif Token /= Tok_Left_Paren and then Token_Is_At_Start_Of_Line - and then Start_Column <= Scope.Table (Scope.Last).Ecol + and then Start_Column <= Scopes (Scope.Last).Ecol then return No_List; |