diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-13 11:39:38 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-13 11:39:38 +0100 |
commit | 3603fa5cfb32ced1402f31b174a3023826745160 (patch) | |
tree | e6760add6c9c6fce7091b39302201823702914ee /gcc/ada/contracts.ads | |
parent | 3abbc5c2409fae926307f5321debdf6191cd2152 (diff) | |
download | gcc-3603fa5cfb32ced1402f31b174a3023826745160.zip gcc-3603fa5cfb32ced1402f31b174a3023826745160.tar.gz gcc-3603fa5cfb32ced1402f31b174a3023826745160.tar.bz2 |
Code cleanups.
From-SVN: r244412
Diffstat (limited to 'gcc/ada/contracts.ads')
-rw-r--r-- | gcc/ada/contracts.ads | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/contracts.ads b/gcc/ada/contracts.ads index 1059fc6..d40200e 100644 --- a/gcc/ada/contracts.ads +++ b/gcc/ada/contracts.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2015, Free Software Foundation, Inc. -- +-- Copyright (C) 2015-2016, 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- -- @@ -131,7 +131,8 @@ package Contracts is procedure Analyze_Previous_Contracts (Body_Decl : Node_Id); -- Analyze the contracts of all source constructs found in the declarative -- list which contains entry, package, protected, subprogram, or task body - -- denoted by Body_Decl. The analysis stops once Body_Decl is reached. + -- denoted by Body_Decl. The analysis stops once Body_Decl is reached. In + -- addition, analyze the contract of the nearest enclosing package body. procedure Analyze_Protected_Contract (Prot_Id : Entity_Id); -- Analyze all delayed pragmas chained on the contract of protected unit |