diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-02 15:45:58 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-02 15:45:58 +0100 |
| commit | cc96a1b85c11eb146d30867a0a826ac5c46f3f07 (patch) | |
| tree | bbed7d7ebe6eeb89d99e6704f8353abb0cbc973d /gcc/ada/sem_ch9.adb | |
| parent | 35fae080e6722415f3308bb3375236f657022b61 (diff) | |
| download | gcc-cc96a1b85c11eb146d30867a0a826ac5c46f3f07.zip gcc-cc96a1b85c11eb146d30867a0a826ac5c46f3f07.tar.gz gcc-cc96a1b85c11eb146d30867a0a826ac5c46f3f07.tar.bz2 | |
[multiple changes]
2011-12-02 Robert Dewar <dewar@adacore.com>
* sem_ch6.adb: Minor change in error message.
2011-12-02 Robert Dewar <dewar@adacore.com>
* sem_ch9.adb, prj-part.adb, vms_data.ads, sem_ch8.adb: Minor
reformatting.
2011-12-02 Javier Miranda <miranda@adacore.com>
* sem_ch3.adb (Constrain_Access): Enable on Ada 2005 mode the
static check of the rule of general access types whose designated
type has discriminants.
* sem_util.ads, sem_util.adb
(Effectively_Has_Constrained_Partial_View): New subprogram.
(In_Generic_Body): New subprogram.
* einfo.ads (Has_Constrained_Partial_View): Adding documentation.
* sem_prag.adb (Inside_Generic_Body): Removed. Replaced by new
subprogram In_Generic_Body.
* exp_attr.adb, checks.adb, sem_attr.adb, exp_ch4.adb,
sem_ch4.adb: In addition, this patch replaces the occurrences of
Has_Constrained_Partial_View by
Effectively_Has_Constrained_Partial_View.
2011-12-02 Matthew Heaney <heaney@adacore.com>
* a-comutr.adb, a-cimutr.adb, a-cbmutr.adb (Iterator): Rename
Position component.
(Finalize): Remove unnecessary access check.
(First): Forward to First_Child.
(Last): Forward to Last_Child.
(Iterate): Check preconditions for parent node parameter.
(Next): Forward to Next_Sibling.
(Previous): Forward to Previous_Sibling.
From-SVN: r181914
Diffstat (limited to 'gcc/ada/sem_ch9.adb')
| -rw-r--r-- | gcc/ada/sem_ch9.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch9.adb b/gcc/ada/sem_ch9.adb index 35c4eee..f9aab6a 100644 --- a/gcc/ada/sem_ch9.adb +++ b/gcc/ada/sem_ch9.adb @@ -953,7 +953,7 @@ package body Sem_Ch9 is Error_Msg_N ("entry family low bound must be '>'= ^!", D_Sdef); end if; - <<Skip_LB>> + <<Skip_LB>> if Is_Generic_Type (Etype (D_Sdef)) or else In_Instance or else Error_Posted (D_Sdef) @@ -979,7 +979,7 @@ package body Sem_Ch9 is Error_Msg_N ("entry family high bound must be '<'= ^!", D_Sdef); end if; - <<Skip_UB>> + <<Skip_UB>> null; end; end if; |