diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-02 09:48:59 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-02 09:48:59 +0200 |
| commit | 767bb4e896d51ddb4aa6b44663f52f8be9d0f052 (patch) | |
| tree | 06749a59f6089a37e824cdbc898c258e53138c7e /gcc/ada/par-ch9.adb | |
| parent | 4ac2477e65c5b506eda0f3cef1696478270a1f97 (diff) | |
| download | gcc-767bb4e896d51ddb4aa6b44663f52f8be9d0f052.tar.gz | |
[multiple changes]
2011-08-02 Robert Dewar <dewar@adacore.com>
* par-ch10.adb: Minor code reorganization (use Nkind_In).
2011-08-02 Ed Schonberg <schonberg@adacore.com>
* par-ch9.adb: save location of entry for proper error message.
From-SVN: r177088
Diffstat (limited to 'gcc/ada/par-ch9.adb')
| -rw-r--r-- | gcc/ada/par-ch9.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/par-ch9.adb b/gcc/ada/par-ch9.adb index 83233b6ff9f..82907746fa2 100644 --- a/gcc/ada/par-ch9.adb +++ b/gcc/ada/par-ch9.adb @@ -1063,6 +1063,7 @@ package body Ch9 is Scope.Table (Scope.Last).Ecol := Start_Column; Scope.Table (Scope.Last).Lreq := False; Scope.Table (Scope.Last).Etyp := E_Name; + Scope.Table (Scope.Last).Sloc := Token_Ptr; Name_Node := P_Defining_Identifier; Set_Defining_Identifier (Entry_Node, Name_Node); |