diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-15 14:14:57 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-15 14:14:57 +0200 |
commit | 443614e35f5f491ae123ca92778947c47d3418f3 (patch) | |
tree | 5fbf723004043d0918a910e4684d2e5969f3cc72 /gcc/ada/prj-tree.ads | |
parent | 991395ab4fdc4f912b37616c6ed3e51efa4a831e (diff) | |
download | gcc-443614e35f5f491ae123ca92778947c47d3418f3.zip gcc-443614e35f5f491ae123ca92778947c47d3418f3.tar.gz gcc-443614e35f5f491ae123ca92778947c47d3418f3.tar.bz2 |
[multiple changes]
2009-04-15 Robert Dewar <dewar@adacore.com>
* rtsfind.adb: Minor reformatting.
2009-04-15 Emmanuel Briot <briot@adacore.com>
* prj-part.adb, prj-tree.adb, prj-tree.ads (Restore_And_Free): renames
Restore, and free the saved context.
2009-04-15 Gary Dismukes <dismukes@adacore.com>
* sem_ch3.adb (Analyze_Private_Extension_Declaration): Move error check
for illegal private extension from a synchronized interface parent in
front of check for illegal limited extension so that limited extension
from a synchronized interface will be rejected.
(Check_Ifaces): Check that a private extension that has a synchronized
interface as a progenitor must be explicitly declared synchronized.
Also check that a record extension cannot derive from a synchronized
interface.
From-SVN: r146103
Diffstat (limited to 'gcc/ada/prj-tree.ads')
-rw-r--r-- | gcc/ada/prj-tree.ads | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/prj-tree.ads b/gcc/ada/prj-tree.ads index 75961ff..57fe531 100644 --- a/gcc/ada/prj-tree.ads +++ b/gcc/ada/prj-tree.ads @@ -131,9 +131,9 @@ package Prj.Tree is -- Save in variable S the comment state. Called before scanning a new -- project file. - procedure Restore (S : Comment_State); + procedure Restore_And_Free (S : in out Comment_State); -- Restore the comment state to a previously saved value. Called after - -- scanning a project file. + -- scanning a project file. Frees the memory occupied by S procedure Reset_State; -- Set the comment state to its initial value. Called before scanning a |