diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-13 12:08:57 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-13 12:08:57 +0100 |
commit | f8981f1984a0e66f165440ecbc72fd3a58075193 (patch) | |
tree | 9317cc3a5162c924b9eb44c8e7ec14b935c9bfbc /gcc/ada/atree.ads | |
parent | 996ce809cd29df96df27b7e7d75508fe2fe6fb93 (diff) | |
download | gcc-f8981f1984a0e66f165440ecbc72fd3a58075193.zip gcc-f8981f1984a0e66f165440ecbc72fd3a58075193.tar.gz gcc-f8981f1984a0e66f165440ecbc72fd3a58075193.tar.bz2 |
[multiple changes]
2017-01-13 Javier Miranda <miranda@adacore.com>
* sem_ch6.adb (Cloned_Expression): New subprogram.
(Freeze_Expr_Types): Complete previous patch since the expression
of an expression-function may have iterators and loops with
defining identifiers which, as part of the preanalysis of the
expression, may be left decorated with itypes that will not be
available in the tree passed to the backend.
2017-01-13 Ed Schonberg <schonberg@adacore.com>
* checks.adb (Apply_Type_Conversion_Checks): Optimize a type
conversion to Integer of an expression that is an attribute
reference 'Pos on an enumeration type.
2017-01-13 Bob Duff <duff@adacore.com>
* atree.ads: Minor comment fix.
From-SVN: r244423
Diffstat (limited to 'gcc/ada/atree.ads')
-rw-r--r-- | gcc/ada/atree.ads | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/atree.ads b/gcc/ada/atree.ads index bf4e52e..6739be2 100644 --- a/gcc/ada/atree.ads +++ b/gcc/ada/atree.ads @@ -298,10 +298,10 @@ package Atree is ------------------ -- The following variables denote the count of errors of various kinds - -- detected in the tree. Note that these might be more logically located - -- in Err_Vars, but we put it to deal with licensing issues (we need this - -- to have the GPL exception licensing, since Check_Error_Detected can - -- be called from units with this licensing). + -- detected in the tree. Note that these might be more logically located in + -- Err_Vars, but we put it here to deal with licensing issues (we need this + -- to have the GPL exception licensing, since Check_Error_Detected can be + -- called from units with this licensing). Serious_Errors_Detected : Nat := 0; -- This is a count of errors that are serious enough to stop expansion, |