diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-26 14:27:48 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-26 14:27:48 +0100 |
| commit | 48bb06a77e71672e09f409b719b76c3388cc3b99 (patch) | |
| tree | e4c74e1939cb28e61f886ff3194cbb241680e58d /gcc/ada/sem_eval.adb | |
| parent | a2c314c72b070a170ade9858c6a0ece2105c4508 (diff) | |
| download | gcc-48bb06a77e71672e09f409b719b76c3388cc3b99.zip gcc-48bb06a77e71672e09f409b719b76c3388cc3b99.tar.gz gcc-48bb06a77e71672e09f409b719b76c3388cc3b99.tar.bz2 | |
[multiple changes]
2015-10-26 Hristian Kirtchev <kirtchev@adacore.com>
* exp_util.adb, sem_aux.adb, exp_attr.adb, sem_eval.adb: Minor
reformatting.
* sem_util.adb, sem_ch5.adb: Minor reformatting.
2015-10-26 Ed Schonberg <schonberg@adacore.com>
* exp_unst.adb (Unnest_Subprogram): Add guard to prevent compiler
abort when handling a reference to a formal in an aspect of a
nested subprogram declaration as an uplevel reference.
From-SVN: r229359
Diffstat (limited to 'gcc/ada/sem_eval.adb')
| -rw-r--r-- | gcc/ada/sem_eval.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb index 5110f16..3f7e97b 100644 --- a/gcc/ada/sem_eval.adb +++ b/gcc/ada/sem_eval.adb @@ -3761,9 +3761,6 @@ package body Sem_Eval is Source_Type : constant Entity_Id := Etype (Operand); Target_Type : constant Entity_Id := Etype (N); - Stat : Boolean; - Fold : Boolean; - function To_Be_Treated_As_Integer (T : Entity_Id) return Boolean; -- Returns true if type T is an integer type, or if it is a fixed-point -- type to be treated as an integer (i.e. the flag Conversion_OK is set @@ -3796,6 +3793,11 @@ package body Sem_Eval is or else (Is_Fixed_Point_Type (T) and then not Conversion_OK (N)); end To_Be_Treated_As_Real; + -- Local variables + + Fold : Boolean; + Stat : Boolean; + -- Start of processing for Eval_Type_Conversion begin |