diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-12 14:48:12 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-12 14:48:12 +0200 |
| commit | c2658843ea5068503078a7ac9b280179739bb17f (patch) | |
| tree | f41d84652ea4871dbda37d882f5bfdb2c3d6c1da /gcc/ada/par-ch7.adb | |
| parent | 340772c0beef5ec63cff058453020d22c57b5465 (diff) | |
| download | gcc-c2658843ea5068503078a7ac9b280179739bb17f.tar.gz | |
[multiple changes]
2013-04-12 Bob Duff <duff@adacore.com>
* par-ch7.adb (P_Package): Initialize Sloc in the newly-pushed scope
stack entry.
2013-04-12 Robert Dewar <dewar@adacore.com>
* switch-c.adb: Minor fix to wording of error message for
-gnatet/eT.
2013-04-12 Robert Dewar <dewar@adacore.com>
* impunit.adb: Add s-multip and s-mudido to list of impl defined
system units.
* gnat_rm.texi: Add documentation for
System.Multiprocessors[.Dispatching_Domains].
2013-04-12 Ben Brosgol <brosgol@adacore.com>
* gnat_ugn.texi: Completion of menu cleanups.
2013-04-12 Arnaud Charlet <charlet@adacore.com>
* sem_prag.adb (Diagnose_Multiple_Pragmas): Relax the rules
in Relaxed_RM_Semantics.
2013-04-12 Arnaud Charlet <charlet@adacore.com>
* set_targ.adb (elab code): Add support for non gcc back-ends
where save_argv is null.
From-SVN: r197899
Diffstat (limited to 'gcc/ada/par-ch7.adb')
| -rw-r--r-- | gcc/ada/par-ch7.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/par-ch7.adb b/gcc/ada/par-ch7.adb index 15f98bfcfb3..d52a13d6c5b 100644 --- a/gcc/ada/par-ch7.adb +++ b/gcc/ada/par-ch7.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -138,6 +138,7 @@ package body Ch7 is end if; T_Body; + Scope.Table (Scope.Last).Sloc := Token_Ptr; Name_Node := P_Defining_Program_Unit_Name; Scope.Table (Scope.Last).Labl := Name_Node; TF_Is; @@ -182,6 +183,7 @@ package body Ch7 is -- Cases other than Package_Body else + Scope.Table (Scope.Last).Sloc := Token_Ptr; Name_Node := P_Defining_Program_Unit_Name; Scope.Table (Scope.Last).Labl := Name_Node; |